alias to fm for freshmeat forgotten

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@151 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/CommandStubs.pl b/src/CommandStubs.pl
index d63ae74359b992b48b7941d5972f16d85099536f..a877586806baa10628d0f0fb0fb00b0847a80b50 100644 (file)
--- a/src/CommandStubs.pl
+++ b/src/CommandStubs.pl
@@ -41,12 +41,12 @@ sub parseCmdHook {
        next unless ($args[0] =~ /^$ident$/i);
        shift(@args);   # just gotta do it.
 
-       &DEBUG("pCH: found $ident");
+       &DEBUG("pCH: $args[0] matched $ident");
        my %hash = %{ $cmdhooks{$ident} };
 
        ### DEBUG.
        foreach (keys %hash) {
-           &DEBUG(" $ident->$_ => '$hash{$_}'.");
+           &DEBUG(" $args[0]\->$_ => '$hash{$_}'.");
        }
 
        ### HELP.
@@ -143,7 +143,7 @@ sub parseCmdHook {
        'Cmdstats' => 'Uptime') );
 &addCmdHook('nullski', ('CODEREF' => 'nullski', ) );
 sub nullski { my ($arg) = @_; foreach (`$arg`) { &msg($who,$_); } }
-&addCmdHook('freshmeat', ('CODEREF' => 'Freshmeat::Freshmeat',
+&addCmdHook('(fm|freshmeat)', ('CODEREF' => 'Freshmeat::Freshmeat',
        'Identifier' => 'freshmeat', 'Cmdstats' => 'Freshmeat',
        'Module' => 'freshmeat', 'Help' => 'freshmeat') );