fix delayed task mechanism to verstats... we have to cache chan/nick/msgType.

[infobot.git] / blootbot / src / CommandStubs.pl

diff --git a/blootbot/src/CommandStubs.pl b/blootbot/src/CommandStubs.pl
index 904141566b05813ddf4ebdf4c2e81014a2098796..695139a10e057b26a35f88ee5a4a74a97568e651 100644 (file)
--- a/blootbot/src/CommandStubs.pl
+++ b/blootbot/src/CommandStubs.pl
@@ -136,7 +136,7 @@ sub parseCmdHook {
 &addCmdHook("extra", 'dauthor', ('CODEREF' => 'Debian::searchAuthor',
        'Forker' => 1, 'Identifier' => 'debian',
        'Cmdstats' => 'Debian Author Search', 'Help' => "dauthor" ) );
-&addCmdHook("extra", '(d|search)desc', ('CODEREF' => 'Debian::searchDesc',
+&addCmdHook("extra", '(d|search)desc', ('CODEREF' => 'Debian::searchDescFE',
        'Forker' => 1, 'Identifier' => 'debian',
        'Cmdstats' => 'Debian Desc Search', 'Help' => "ddesc" ) );
 &addCmdHook("extra", 'dnew', ('CODEREF' => 'DebianNew',
@@ -674,14 +674,18 @@ sub do_verstats {
 
     &msg($who, "Sending CTCP VERSION...");
     $conn->ctcp("VERSION", $chan);
-    $cache{verstats}   = $chan;
+    $cache{verstats}{chan}     = $chan;
+    $cache{verstats}{who}      = $who;
+    $cache{verstats}{msgType}  = $msgType;
 
     $conn->schedule(60, sub {
        my $vtotal      = 0;
-       my $c           = lc $cache{verstats};
+       my $c           = lc $cache{verstats}{chan};
        my $total       = keys %{ $channels{$c}{''} };
-       delete $cache{verstats};
        $chan           = $c;
+       $who            = $cache{verstats}{who};
+       $msgType        = $cache{verstats}{msgType};
+       delete $cache{verstats};        # sufficient?
 
        foreach (keys %ver) {
            $vtotal     += scalar keys %{ $ver{$_} };