From 65932ba32e5b50cf65bd0f19453b9a46605c4eac Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Tue, 9 Nov 2004 00:20:07 +0000
Subject: [PATCH] comments

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

diff --git a/src/Modules/pager.pl b/src/Modules/pager.pl
index 7ff5f77..1452b01 100644
--- 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 = (
-- 
2.39.5