$learnok = 0; # Able to learn?
$talkok = 0; # Able to yap?
$force_public_reply = 0;
+ $literal = 0;
return 'X' if $who eq $ident; # self-message.
return 'addressedother set' if ($addressedother);
# check if we have our head intact.
if ($lobotomized) {
if ($addressed and IsFlag("o") eq "o") {
- &msg($who, "give me an unlobotomy.");
+ my $delta_time = time() - ($cache{lobotomy}{$who} || 0);
+ &msg($who, "give me an unlobotomy.") if ($delta_time > 60*60);
+ $cache{lobotomy}{$who} = time();
}
return 'LOBOTOMY';
}
}
}
- # ignore.
- if ($ignore) {
- return 'IGNORE';
- }
-
# join, must be done before outsider checking.
if ($message =~ /^join(\s+(.*))?\s*$/i) {
return 'join: not addr' unless ($addressed);
$2 =~ /^($mask{chan})(,(\S+))?/;
my($thischan, $key) = (lc $1, $3);
- my $chankey = $thischan;
+ my $chankey = lc $thischan;
$chankey .= " $key" if (defined $key);
if ($thischan eq "") {
return;
}
- # Thanks to Eden Li (tile) for the channel key patch
- my @chans = split(/[\s\t]+/, $param{'join_channels'});
- if (!grep /^$thischan$/i, @chans) {
- if (&IsFlag("o") ne "o") {
+ if (&IsFlag("o") ne "o") {
+ if (!exists $chanconf{$thischan}) {
&msg($who, "I am not allowed to join $thischan.");
return;
}
- }
- if (&validChan($thischan)) {
- &msg($who,"I'm already on $thischan...");
- return;
+ if (&validChan($thischan)) {
+ &msg($who,"I'm already on $thischan...");
+ return;
+ }
}
- $joinverb{$thischan} = $who; # used for on_join self.
+ $cache{join}{$thischan} = $who; # used for on_join self.
&joinchan($chankey);
&status("JOIN $chankey <$who>");
return;
}
+ # 'identify'
+ if ($msgType =~ /private/ and $message =~ s/^identify//i) {
+ $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 $crypt = $users{$do_nick}{PASS};
+ if (!defined $crypt) {
+ &pSReply("user $do_nick has no passwd set.");
+ return;
+ }
+
+ if (!&ckpasswd($array[0], $crypt)) {
+ &pSReply("invalid passwd for $do_nick.");
+ 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;
+ }
+
+ # 'pass'
+ if ($msgType =~ /private/ and $message =~ s/^pass//i) {
+ $message =~ s/^\s+|\s+$//g;
+ my @array = split / /, $message;
+
+ if ($who =~ /^_default$/i) {
+ &pSReply("you are too eleet.");
+ return;
+ }
+
+ if (scalar @array != 1) {
+ &help("pass");
+ return;
+ }
+
+ # todo: use &getUser()?
+ my $first = (scalar keys %users) ? 1 : 0;
+ if (!exists $users{$who} and !$first) {
+ &pSReply("nick $who is not in user list.");
+ return;
+ }
+
+ if ($first) {
+ &pSReply("first time user... adding you as master.");
+ $users{$who}{FLAGS} = "mrsteon";
+ }
+
+ my $crypt = $users{$who}{PASS};
+ if (defined $crypt) {
+ &pSReply("user $who already has pass set.");
+ return;
+ }
+
+ if (!defined $host) {
+ &WARN("pass: host == NULL.");
+ return;
+ }
+
+ if (!scalar keys %{ $users{$who}{HOSTS} }) {
+ my $mask = "*!$user@".&makeHostMask($host);
+ &pSReply("added mask $mask to $who.");
+ $users{$who}{HOSTS}{$mask} = 1;
+ }
+
+ $crypt = &mkcrypt($array[0]);
+ $users{$who}{PASS} = $crypt;
+ &pSReply("new pass for $who, crypt $crypt.");
+
+ return;
+ }
+
# allowOutsiders.
if (&IsParam("disallowOutsiders") and $msgType =~ /private/i) {
my $found = 0;
}
}
+ # override msgType.
+ if ($msgType =~ /public/ and $message =~ s/^\+//) {
+ &status("found '+' flag; setting msgType to public.");
+ $force_public_reply++;
+ $msgType = 'public';
+ $who = $chan; # major hack to fix &msg().
+ &DEBUG("addressed => $addressed.");
+ }
+
# 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);
+ }
###
# once useless messages have been parsed out, we match them.
###
- # addressed.
- if ($message =~ /^\Q$ident\E\s*\?*$/i) {
- &status("feedback addressing from $who");
-
- &performReply("yes?");
-
- return;
- }
-
# confused? is this for infobot communications?
- foreach (keys %{$lang{'confused'}}) {
+ foreach (keys %{ $lang{'confused'} }) {
my $y = $_;
next unless ($message =~ /^\Q$y\E\s*/);
# customized random message.
my $tmp = (rand() < 0.5) ? ", $who" : "";
- &performStrictReply(&getRandom(keys %{$lang{'hello'}}) . $tmp);
+ &performStrictReply(&getRandom(keys %{ $lang{'hello'} }) . $tmp);
return;
}
# greetings.
if ($message =~ /how (the hell )?are (ya|you)( doin\'?g?)?\?*$/) {
- my $reply = &getRandom(keys %{$lang{'howareyou'}});
-
+ my $reply = &getRandom(keys %{ $lang{'howareyou'} });
+
&performReply($reply);
return;
# thanks.
if ($message =~ /^than(ks?|x)( you)?( \S+)?/i) {
- &DEBUG("thanks: talkok => '$talkok', addressed => '$addressed'.");
return 'thank: no addr' unless ($message =~ /$ident/ or $talkok);
&performReply( &getRandom(keys %{$lang{'welcome'}}) );
return;
}
-
###
### bot commands...
###
- # override msgType.
- if ($msgType =~ /public/ and $message =~ s/^\+//) {
- &status("found '+' flag; setting msgType to public.");
- $force_public_reply++;
- $msgType = 'public';
+ if ($message =~ s/^literal\s+//i) {
+ &status("literal ask of '$message'.");
+ $literal = 1;
}
-
# karma. set...
if ($message =~ /^(\S+)(--|\+\+)\s*$/ and $addressed) {
return '' unless (&hasParam("karma"));
# here's where the external routines get called.
# if they return anything but null, that's the "answer".
if ($addressed) {
+ 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';
}
}
}
-
# factoid forget.
if ($message =~ s/^forget\s+//i) {
return 'forget: no addr' unless ($addressed);
if (defined $result) {
my $author = &getFactInfo($faqtoid, "created_by");
- if (IsFlag("r") ne "r" && $author =~ /^\Q$who\E\!/i) {
- &msg($who, "you don't have access to remove that factoid");
+ if (IsFlag("r") ne "r") {
+ &msg($who, "you don't have access to remove factoids");
return;
}
return 'locked factoid' if (&IsLocked($faqtoid) == 1);
- &status("forget: <$who> '$faqtoid' =is=> '$result'");
+ if (&IsParam("factoidDeleteDelay")) {
+ if ($faqtoid =~ /#DEL#/ and !&IsFlag("o")) {
+ &msg($who, "cannot delete it ($faqtoid).");
+ return;
+ }
+ &status("forgot (safe delete): <$who> '$faqtoid' =is=> '$result'");
+ ### TODO: check if the "backup" exists and overwrite it
+ my $check = &getFactoid("$faqtoid #DEL#");
+ if (!$check) {
+ if ($faqtoid !~ /#DEL#/) {
+ &setFactInfo($faqtoid, "factoid_key", $faqtoid." #DEL#");
+
+ &setFactInfo($faqtoid, "modified_by", $who);
+ &setFactInfo($faqtoid, "modified_time", time());
+ } else {
+ &status("not backing up $faqtoid.");
+ }
+ } else {
+ &status("forget: not overwriting backup!");
+ }
+ } 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;
+ }
+
+ &DEBUG("unforget: check => $check");
+ 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);
return;
}
- # strongly requested by #debian on 19991028. -xk
- if (1 and $faqtoid !~ /^\Q$who\E$/i and &IsFlag("o") ne "o") {
- &msg($who,"sorry, locking cannot be used since it can be abused unneccesarily.");
- &status("Replace 1 with 0 in Process.pl#~324 for locking support.");
- return;
- }
-
if (&getFactoid($faqtoid) eq "") {
&msg($who, "factoid \002$faqtoid\002 does not exist");
return;
}
if ($function eq "lock") {
+ # strongly requested by #debian on 19991028. -xk
+ if (1 and $faqtoid !~ /^\Q$who\E$/i and &IsFlag("o") ne "o") {
+ &msg($who,"sorry, locking cannot be used since it can be abused unneccesarily.");
+ &status("Replace 1 with 0 in Process.pl#~324 for locking support.");
+ return;
+ }
+
&CmdLock($faqtoid);
} else {
&CmdUnLock($faqtoid);
my $result = &getFactoid($from);
if (defined $result) {
my $author = &getFactInfo($from, "created_by");
- if (&IsFlag("m") and $author =~ /^\Q$who\E\!/i) {
+
+ if (&IsFlag("m") or $author =~ /^\Q$who\E\!/i) {
&msg($who, "It's not yours to modify.");
- return $noreply;
+ return;
}
if ($_ = &getFactoid($to)) {
return;
}
-
# Fix up $message for question.
- for ($message) {
+ my $question = $message;
+ for ($question) {
# fix the string.
s/^hey([, ]+)where/where/i;
+ s/\s+\?$/?/;
s/whois/who is/ig;
s/where can i find/where is/i;
s/how about/where is/i;
$correction_plausible = 0;
}
- my $result = &doQuestion($message);
-
- return 'result is $noreply' if ($result eq $noreply);
+ my $result = &doQuestion($question);
+ if (!defined $result or $result eq $noreply) {
+ return 'result from doQ undef.';
+ }
- if (defined $result and $result ne "") { # question.
+ if (defined $result and $result !~ /^0?$/) { # 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();
}
}
- if ($result ne "") {
+ if ($result !~ /^0?$/) {
&performStrictReply($result);
return;
- } else {
- # why would a friendly bot get passed here?
- if (&IsParam("friendlyBots")) {
- return if (grep lc($_) eq lc($who), split(/\s+/, $param{'friendlyBots'}));
- }
+ }
- # do the statement.
- if ($_ = &doStatement($message)) {
- return;
- }
+ # why would a friendly bot get passed here?
+ if (&IsParam("friendlyBots")) {
+ return if (grep lc($_) eq lc($who), split(/\s+/, $param{'friendlyBots'}));
+ }
- if ($addressed) {
- &status("unparseable: $message");
- &performReply( &getRandom(keys %{$lang{'dunno'}}) );
- $count{'Dunno'}++;
- }
+ # do the statement.
+ if (!defined &doStatement($message)) {
+ return;
+ }
+
+ 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'}++;
}
1;