# valid factoid.
if ($query =~ s/[!.]$//) {
- push(@query,$query);
+ push(@query, $query);
}
$x = &normquery($query);
my $qregex = join '|', keys %{ $lang{'qWord'} };
- # what's whats => what is; who'?s => who is, etc
- $query =~ s/ ($qregex)\'?s / $1 is /i;
- if ($query =~ s/\s+($qregex)\s+//i) { # check for question word
+ # purge prefix question string.
+ if ($query =~ s/^ ($qregex)//i) {
$questionWord = lc($1);
}
if ($questionWord eq "" and $finalQMark and $addressed) {
$questionWord = "where";
}
+ $query =~ s/^\s+|\s+$//g; # bleh. hacked.
+ push(@query, $query) if ($query ne $x);
if (&IsChanConf("factoidArguments")) {
$result = &factoidArgs($query[0]);
next if (/#DEL#/); # deleted.
s/^CMD: //i;
- &DEBUG("factarg: ''$str' =~ /^$_\$/'");
+# &DEBUG("factarg: '$str' =~ /^$_\$/");
my $arg = $_;
# todo: <greycat> ~punish apt for (Eating) (Parentheses)
}
# update stats.
- my $count = &getFactInfo($q, "requested_count") || 0;
- $count++;
- &setFactInfo($q, "requested_by", $nuh);
- &setFactInfo($q, "requested_time", time());
- &setFactInfo($q, "requested_count", $count);
+ if (0) { # old.
+ my $count = &getFactInfo($q, "requested_count") || 0;
+ $count++;
+ &setFactInfo($q, "requested_by", $nuh);
+ &setFactInfo($q, "requested_time", time());
+ &setFactInfo($q, "requested_count", $count);
+ } else {
+ &sqlUpdate("factoids", { factoid_key => $q }, {
+ requested_by => $nuh,
+ requested_time => time(),
+ -requested_count => "requested_count+1",
+ } );
+ }
+
# end of update stats.
$result = $r;