From 8d85084f300c4145bf63a77936c2cac805a827a6 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Tue, 9 Nov 2004 00:01:18 +0000
Subject: [PATCH] allow <who>:

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@1033 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/Modules/pager.pl | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/src/Modules/pager.pl b/src/Modules/pager.pl
index 4176896..7ff5f77 100644
--- a/src/Modules/pager.pl
+++ b/src/Modules/pager.pl
@@ -39,6 +39,9 @@ sub pager::page {
 	my $to = $1;
 	my $msg = $2;
 
+	# allow optional trailing : ie: page foo[:] hello
+	$to =~ s/:$//;
+
 	my $tofactoid = &::getFactoid("${to}'s pager");
 	if ($tofactoid =~ /(\S+@\S+)/) {
 		my $toaddr = $1;
@@ -64,12 +67,12 @@ sub pager::page {
 			'X-Mailer' => "blootbot",
 		);
 
-		#my $logmsg;
-		#for (keys %headers) {
-		#	$logmsg .= "$_: $headers{$_}\n";
-		#}
-		#$logmsg .= "\n$msg\n";
-		#&main::status("pager:\n$logmsg");
+#		my $logmsg;
+#		for (keys %headers) {
+#			$logmsg .= "$_: $headers{$_}\n";
+#		}
+#		$logmsg .= "\n$msg\n";
+#		&main::status("pager:\n$logmsg");
 
 		my $failed;
 		my $mailer = new Mail::Mailer 'sendmail';
-- 
2.39.5