wingate -> Wingate

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

diff --git a/blootbot/src/Modules/pager.pl b/blootbot/src/Modules/pager.pl
index 7ff5f776622ea90adf1d2e19c703ef1af719894b..1753401ae25b03474fc1e814b9defc7246a1d966 100644 (file)
--- a/blootbot/src/Modules/pager.pl
+++ b/blootbot/src/Modules/pager.pl
@@ -27,10 +27,14 @@ BEGIN {
 sub pager::page {
        my ($message) = @_;
        my ($retval);
+
+       # TODO only allow registered users?
+
        if ($no_page) {
-               &main::status("page module requires Mail::Mailer.");
+               &main::status('page module requires Mail::Mailer.');
                return 'page module not active';
        }
+
        unless ($message =~ /^(\S+)\s+(.*)$/) {
                return undef;
        }
@@ -42,22 +46,25 @@ 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+)/) {
                        $fromaddr = $1;
                        $fromaddr =~ s/^mailto://;
                } else {
+                       # TODO require sender to have valid self-locked pager factoid?
                        $fromaddr = 'infobot@example.com';
                }
 
                my $channel = $::chan || 'infobot';
+               # TODO disallow use from private message? $chan="_default"
 
                &main::status("pager: from $from <$fromaddr>, to $to <$toaddr>, msg \"$msg\"");
                my %headers = (