Initial checkin of mozbot code-reviewing functionality.

webtools/mozbot/mozbot.pl

@@ -76,6 +76,7 @@ my %pubcmds = (
                "debug" => \&bot_debug,
                "(stocks|stock)" => \&bot_pub_stocks,
                "(translate|xlate|x)" => \&bot_translate,
+               "review" -> \&bot_review,
                );
 
 my %admincmds = (
@@ -1145,6 +1146,11 @@ sub bot_translate {
     }
 }
 
+sub bot_review {
+    my ($nick, $cmd, $rest) = (@_);
+    sendmsg($nick, "$::speaker, I've reviewed your code, and it looks great.  r=mozbot.");
+}
+
 sub trim {
     ($_) = (@_);
     s/^\s+//g;