my($lhs, $mhs, $rhs) = ($`, $&, $');
# allows factoid arguments to be updated. -lear.
- $lhs =~ s/^(CMD: )?(.*)/$1||"" . lc $2/e;
+ $lhs =~ s/^(cmd: )?(.*)/$1||"" . lc $2/e;
# discard article.
$lhs =~ s/^(the|da|an?)\s+//i;
return;
}
- return if (!$addressed and $lhs =~ /\s+/);
+ # uncomment to prevent HUNGRY learning of rhs with whitespace
+ #return if (!$addressed and $lhs =~ /\s+/);
+ &::DEBUG("doStatement: $in:$lhs:$mhs:$rhs");
&status("statement: <$who> $message");
# verify the update statement whether there are any weird
# characters.
- ### this chan be simplified.
+ ### this can be simplified.
foreach (split //, $lhs.$rhs) {
my $ord = ord $_;
if ($ord > 170 and $ord < 220) {