comments

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

diff --git a/src/Modules/pager.pl b/src/Modules/pager.pl
index 7ff5f776622ea90adf1d2e19c703ef1af719894b..1452b0167ffb5820313dd08a134d89099ca4d850 100644 (file)
--- a/src/Modules/pager.pl
+++ b/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;
        }
@@ -46,6 +50,7 @@ sub pager::page {
        if ($tofactoid =~ /(\S+@\S+)/) {
                my $toaddr = $1;
                $toaddr =~ s/^mailto://;
+               # TODO require sender-locked factoid?
 
                my $fromfactoid = &::getFactoid("${from}'s pager");
 
@@ -54,10 +59,12 @@ sub pager::page {
                        $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 = (