take a few more things literally

[infobot.git] / src / Modules / pager.pl

diff --git a/src/Modules/pager.pl b/src/Modules/pager.pl
index 1452b0167ffb5820313dd08a134d89099ca4d850..c0e32854fdb1a7dd699cdb54f1d88b5ea7744471 100644 (file)
--- a/src/Modules/pager.pl
+++ b/src/Modules/pager.pl
@@ -31,7 +31,7 @@ sub pager::page {
        # TODO only allow registered users?
 
        if ($no_page) {
-               &main::status('page module requires Mail::Mailer.');
+               &::status('page module requires Mail::Mailer.');
                return 'page module not active';
        }
 
@@ -46,13 +46,13 @@ sub pager::page {
        # allow optional trailing : ie: page foo[:] hello
        $to =~ s/:$//;
 
-       my $tofactoid = &::getFactoid("${to}'s pager");
+       my $tofactoid = &::getFactoid(lc "${to}'s pager");
        if ($tofactoid =~ /(\S+@\S+)/) {
                my $toaddr = $1;
                $toaddr =~ s/^mailto://;
                # TODO require sender-locked factoid?
 
-               my $fromfactoid = &::getFactoid("${from}'s pager");
+               my $fromfactoid = &::getFactoid(lc "${from}'s pager");
 
                my $fromaddr;
                if ($fromfactoid =~ /(\S+@\S+)/) {
@@ -64,14 +64,14 @@ sub pager::page {
                }
 
                my $channel = $::chan || 'infobot';
-               # TODO disallow use from private message? $chan="_default"
+               # TODO disallow use from private message? $chan='_default'
 
-               &main::status("pager: from $from <$fromaddr>, to $to <$toaddr>, msg \"$msg\"");
+               &::status("pager: from $from <$fromaddr>, to $to <$toaddr>, msg \"$msg\"");
                my %headers = (
                        To => "$to <$toaddr>",
                        From => "$from <$fromaddr>",
                        Subject => "Message from $channel!",
-                       'X-Mailer' => "blootbot",
+                       'X-Mailer' => 'blootbot',
                );
 
 #              my $logmsg;
@@ -79,7 +79,7 @@ sub pager::page {
 #                      $logmsg .= "$_: $headers{$_}\n";
 #              }
 #              $logmsg .= "\n$msg\n";
-#              &main::status("pager:\n$logmsg");
+#              &::status("pager:\n$logmsg");
 
                my $failed;
                my $mailer = new Mail::Mailer 'sendmail';
@@ -98,5 +98,5 @@ sub pager::page {
        &::performStrictReply($retval);
 }
 
-"pager";
+'pager';
 # vim: ts=2 sw=2