allow <who>:

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@1033 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/Modules/pager.pl b/src/Modules/pager.pl
index 41768960db81032998419229837a83a7526e5b38..7ff5f776622ea90adf1d2e19c703ef1af719894b 100644 (file)
--- 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';