}
}
- if (&validChan($thischan)) {
+ if (&validChan($thischan) and &IsFlag("o") ne "o") {
&msg($who,"I'm already on $thischan...");
return;
}
}
# User Processing, for all users.
- return '$noreply from userC' if &userCommands() eq $noreply;
+ if ($addressed) {
+ my $retval;
+ return 'returned from pCH' if &parseCmdHook("main",$message);
+
+ $retval = &userCommands();
+ return unless (defined $retval);
+ return if ($retval eq $noreply);
+ }
+
+ # 'identify'
+ if ($msgType =~ /private/ and $message =~ s/^identify//) {
+ $message =~ s/^\s+|\s+$//g;
+ my @array = split / /, $message;
+
+ if ($who =~ /^_default$/i) {
+ &pSReply("you are too eleet.");
+ return;
+ }
+
+ if (!scalar @array or scalar @array > 2) {
+ &help("identify");
+ return;
+ }
+
+ my $do_nick = $array[1] || $who;
+
+ if (!exists $users{$do_nick}) {
+ &pSReply("nick $do_nick is not in user list.");
+ return;
+ }
+
+ my $mask = "*!$user@".&makeHostMask($host);
+ ### TODO: prevent adding multiple dupe masks?
+ ### TODO: make &addHostMask() CMD?
+ &pSReply("Added $mask for $do_nick...");
+ $users{$do_nick}{HOSTS}{$mask} = 1;
+
+ return;
+ }
###
# once useless messages have been parsed out, we match them.
# here's where the external routines get called.
# if they return anything but null, that's the "answer".
if ($addressed) {
- &parseCmdHook();
+ if ( &parseCmdHook("extra",$message) ) {
+ return 'DID SOMETHING IN PCH.';
+ }
+
my $er = &Modules();
- if ($er =~ /\S/) {
- &performStrictReply($er) if ($er ne $noreply);
+ if (!defined $er) {
return 'SOMETHING 1';
}
return 'locked factoid' if (&IsLocked($faqtoid) == 1);
- &status("forget: <$who> '$faqtoid' =is=> '$result'");
- &delFactoid($faqtoid);
+ if (&IsParam("factoidDeleteDelay")) {
+ &status("forgot (safe delete): <$who> '$faqtoid' =is=> '$result'");
+ &setFactInfo($faqtoid, "factoid_key", $faqtoid." #DEL#");
+
+ ### delete info. modified_ isn't really used.
+ &setFactInfo($faqtoid, "modified_by", $who);
+ &setFactInfo($faqtoid, "modified_time", time());
+ } else {
+ &status("forget: <$who> '$faqtoid' =is=> '$result'");
+ &delFactoid($faqtoid);
+ }
&performReply("i forgot $faqtoid");
return;
}
+ # factoid unforget/undelete.
+ if ($message =~ s/^un(forget|delete)\s+//i) {
+ return 'unforget: no addr' unless ($addressed);
+
+ if (!&IsParam("factoidDeleteDelay")) {
+ &performReply("safe delete has been disable so what is there to undelete?");
+ return;
+ }
+
+ my $faqtoid = $message;
+ if ($faqtoid eq "") {
+ &help("undelete");
+ return;
+ }
+
+ $faqtoid =~ tr/A-Z/a-z/;
+ my $result = &getFactoid($faqtoid." #DEL#");
+ my $check = &getFactoid($faqtoid);
+
+ if (!defined $result) {
+ &performReply("i didn't have anything ('$faqtoid') to undelete.");
+ return;
+ }
+
+ if (defined $check) {
+ &performReply("cannot undeleted '$faqtoid' because it already exists?");
+ return;
+ }
+
+ &setFactInfo($faqtoid." #DEL#", "factoid_key", $faqtoid);
+
+ ### delete info. modified_ isn't really used.
+ &setFactInfo($faqtoid, "modified_by", "");
+ &setFactInfo($faqtoid, "modified_time", 0);
+
+ &performReply("Successfully recovered '$faqtoid'. Have fun now.");
+
+ $count{'Undelete'}++;
+
+ return;
+ }
+
# factoid locking.
if ($message =~ /^((un)?lock)(\s+(.*))?\s*?$/i) {
return 'lock: no addr 2' unless ($addressed);
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;
}
if ($_ = &getFactoid($to)) {
}
my $result = &doQuestion($message);
-
- return 'result is $noreply' if ($result eq $noreply);
+ if (!defined $result or $result eq $noreply) {
+ return 'result from doQ undef.';
+ }
if (defined $result and $result ne "") { # question.
&status("question: <$who> $message");
$count{'Question'}++;
- } elsif (&IsParam("perlMath") and $addressed) { # perl math.
+ } elsif (&IsChanConf("perlMath") > 0 and $addressed) { # perl math.
&loadMyModule("perlMath");
my $newresult = &perlMath();
}
# do the statement.
- if ($_ = &doStatement($message)) {
+ if (defined &doStatement($message)) {
return;
}
- if ($addressed) {
- &status("unparseable: $message");
- &performReply( &getRandom(keys %{$lang{'dunno'}}) );
- $count{'Dunno'}++;
+ return unless ($addressed);
+
+ if (length $message > 64) {
+ &status("unparseable-moron: $message");
+ &performReply( &getRandom(keys %{$lang{'moron'}}) );
+ $count{'Moron'}++;
+ return;
}
+
+ &status("unparseable: $message");
+ &performReply( &getRandom(keys %{$lang{'dunno'}}) );
+ $count{'Dunno'}++;
}
}