- ok, now it works. kill me, lear!

[infobot.git] / blootbot / src / Factoids / Statement.pl

diff --git a/blootbot/src/Factoids/Statement.pl b/blootbot/src/Factoids/Statement.pl
index ae0ffa4b6f78292d88c7d1909f08b75aab289212..aec268c0b98bcce4fde9c43513be228e41a4d786 100644 (file)
--- a/blootbot/src/Factoids/Statement.pl
+++ b/blootbot/src/Factoids/Statement.pl
@@ -55,8 +55,11 @@ sub doStatement {
     if ($in =~ /(^|\s)(is|are)(\s|$)/i) {
        my($lhs, $mhs, $rhs) = ($`, $&, $');
 
-       $lhs =~ tr/A-Z/a-z/;
-       $lhs =~ s/^(the|da|an?)\s+//i; # discard article
+       # allows factoid arguments to be updated. -lear.
+       $lhs =~ s/^(CMD: )?(.*)/$1||"" . lc $2/e;
+
+       # discard article.
+       $lhs =~ s/^(the|da|an?)\s+//i;
 
        # remove excessive initial and final whitespaces.
        $lhs =~ s/^\s+|\s+$//g;