X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FProcess.pl;h=1e1cbbfb3a6e19e7d7c9d5a7e4d4581511559299;hb=f0a00b56d1497c3b3f0d33e0d57e5d31a0161a55;hp=699e00debdfaac3f6af9263b1def94422118e888;hpb=0a241de1cc04678cd76aaff8a55d449afb99e2f1;p=infobot.git

diff --git a/src/Process.pl b/src/Process.pl
index 699e00d..1e1cbbf 100644
--- a/src/Process.pl
+++ b/src/Process.pl
@@ -1,4 +1,7 @@
-# infobot :: Kevin Lenzo 1997-1999
+###
+### Process.pl: Kevin Lenzo 1997-1999
+###
+
 #
 # process the incoming message
 #
@@ -95,7 +98,7 @@ sub process {
     }
 
     # User Processing, for all users.
-    return 'NOREPLY from userC' if &userCommands() eq 'NOREPLY';
+    return '$noreply from userC' if &userCommands() eq $noreply;
 
     ###
     # once useless messages have been parsed out, we match them.
@@ -215,7 +218,7 @@ sub process {
     if ($addressed) {
 	my $er = &Modules();
 	if ($er =~ /\S/) {
-	    &performStrictReply($er) if ($er ne 'NOREPLY');
+	    &performStrictReply($er) if ($er ne $noreply);
 	    return 'SOMETHING 1';
 	}
 
@@ -243,8 +246,8 @@ sub FactoidStuff {
     # inter-infobot.
     if ($msgType =~ /private/ and $message =~ s/^:INFOBOT://) {
 	### identification.
-	&status("infobot <$nuh> identified") unless $infobots{$nuh};
-	$infobots{$nuh} = $who;
+	&status("infobot <$nuh> identified") unless $bots{$nuh};
+	$bots{$nuh} = $who;
 
 	### communication.
 
@@ -368,7 +371,7 @@ sub FactoidStuff {
 		my $author = &getFactInfo($from, "created_by");
 		if (&IsFlag("m") and $author =~ /^\Q$who\E\!/i) {
 		    &msg($who, "It's not yours to modify.");
-		    return 'NOREPLY';
+		    return $noreply;
 		}
 
 		if ($_ = &getFactoid($to)) {
@@ -460,7 +463,7 @@ sub FactoidStuff {
 
     my $result = &doQuestion($message);
 
-    return 'result is NOREPLY' if ($result eq 'NOREPLY');
+    return 'result is $noreply' if ($result eq $noreply);
 
     if (defined $result and $result ne "") {		# question.
 	&status("question: <$who> $message");