sub getReply {
my($message) = @_;
my($lhs,$mhs,$rhs);
- my($reply);
+ my($reply, $count, $fauthor, $result, $factoid, $search, @searches);
$orig{message} = $message;
if (!defined $message or $message =~ /^\s*$/) {
}
$message =~ tr/A-Z/a-z/;
- $message =~ s/^cmd:/CMD:/;
- my ($count, $fauthor, $result) = &sqlSelect("factoids",
- "requested_count,created_by,factoid_value",
- { factoid_key => $message }
- );
+ @searches = split(/\s+/, &getChanConfDefault('factoidSearch', '_default', $chan));
+ &::DEBUG("factoidSearch: $chan is: " . join(':', @searches));
+ # requesting the _default one, ignore factoidSearch
+ if ($message =~ /^_default\s+/) {
+ @searches = ('_default');
+ $message =~ s/^_default\s+//;
+ }
+
+ # check for factoids with each prefix
+ foreach $search (@searches) {
+ if ($search eq '$chan') {
+ $factoid = "$chan $message";
+ } elsif ($search eq '_default') {
+ $factoid = $message;
+ } else {
+ $factoid = "$search $message";
+ }
+ ($count, $fauthor, $result) = &sqlSelect("factoids",
+ "requested_count,created_by,factoid_value",
+ { factoid_key => $factoid }
+ );
+ last if ($result);
+ }
if ($result) {
$lhs = $message;
$mhs = "is";
$rhs = $result;
- return "$lhs $mhs $rhs" if ($literal);
+ return "\"$factoid\" $mhs \"$rhs\"" if ($literal);
} else {
return '';
}
### FLOOD REPETION AND PROTECTION. -20000124
# stats code.
- ### FIXME: old mysql doesn't support
+ ### FIXME: old mysql/sqlite doesn't support
### "requested_count=requested_count+1".
$count++;
- &sqlSet("factoids", {'factoid_key' => $lhs}, {
+ &sqlSet("factoids", {'factoid_key' => $factoid}, {
requested_by => $nuh,
requested_time => time(),
requested_count => $count
} );
- # todo: rename $real to something else!
+ # TODO: rename $real to something else!
my $real = 0;
# my $author = &getFactInfo($lhs,"created_by") || '';
# $real++ if ($author =~ /^\Q$who\E\!/);
}
}
- return $reply if ($literal);
-
# remove excessive beginning and end whitespaces.
$reply =~ s/^\s+|\s+$//g;
###
# don't evaluate if it has factoid arguments.
- if ($message =~ /^CMD:/i) {
- &status("Reply: not doing substVars (eval dollar vars)");
- } else {
+# if ($message =~ /^cmd:/i) {
+# &status("Reply: not doing substVars (eval dollar vars)");
+# } else {
$reply = &substVars($reply,1);
- }
+# }
$reply;
}
}
&status("Reply.pl: $done SARs done.") if ($done);
+ # <URL></URL> type
+ #
+ while ($txt =~ /<URL>(.*)<\/URL>/){
+ &status("we have to norm this <URL></URL> stuff, SARing");
+ my $foobar = $1;
+ if ($foobar =~ m/(http:\/\/[^?]+)\?(.*)/){
+ my ($pig1,$pig2) = ($1,$2);
+ &status("SARing using URLencode");
+ $pig2=~s/([^\w])/sprintf("%%%02x",ord($1))/gie;
+ $foobar=$pig1."?".$pig2;
+ }
+ $txt =~ s/<URL>(.*)<\/URL>/$foobar/;
+ }
return $txt;
}
my($reply,$flag) = @_;
# $date, $time.
- # todo: support localtime.
+ # TODO: support localtime.
my $date = scalar(gmtime());
$date =~ s/\:\d+(\s+\w+)\s+\d+$/$1/;
$reply =~ s/\$date/$date/gi;