summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
2bc6315)
git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@303
c11ca15a-4712-0410-83d8-
924469b57eb5
# thanks.
if ($message =~ /^than(ks?|x)( you)?( \S+)?/i) {
# 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 'thank: no addr' unless ($message =~ /$ident/ or $talkok);
&performReply( &getRandom(keys %{$lang{'welcome'}}) );
return 'result from doQ undef.';
}
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 (&IsChanConf("perlMath") > 0 and $addressed) { # perl math.
&status("question: <$who> $message");
$count{'Question'}++;
} elsif (&IsChanConf("perlMath") > 0 and $addressed) { # perl math.
+ if ($result !~ /^0?$/) {
&performStrictReply($result);
return;
&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 (defined &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'}));
+ }
- return unless ($addressed);
+ # do the statement.
+ if (!defined &doStatement($message)) {
+ return;
+ }
- if (length $message > 64) {
- &status("unparseable-moron: $message");
- &performReply( &getRandom(keys %{$lang{'moron'}}) );
- $count{'Moron'}++;
- return;
- }
+ return unless ($addressed);
- &status("unparseable: $message");
- &performReply( &getRandom(keys %{$lang{'dunno'}}) );
- $count{'Dunno'}++;
+ 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'}++;