if more than 1/4 users from channel gave version replies, verstats is active.

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

diff --git a/src/CommandStubs.pl b/src/CommandStubs.pl
index 705223a6c1566a3018e4dc2cd1e86ca2d549e453..6582de2fa5ea847eb272a3708afcbe15e78900e5 100644 (file)
--- a/src/CommandStubs.pl
+++ b/src/CommandStubs.pl
@@ -303,7 +303,7 @@ sub Modules {
                }
 
                my $value = &nickometer($str);
-               $nickometer{$value}{$_} = 1;
+               $nickometer{$value}{$str} = 1;
            }
 
            # step 2.
@@ -667,7 +667,7 @@ sub do_verstats {
        return;
     }
 
-    if (scalar keys %ver or scalar @vernick) {
+    if (scalar @vernick > scalar(keys %{ $channels{lc $chan}{''} })/4) {
        &msg($who, "verstats already in progress for someone else.");
        return;
     }
@@ -686,7 +686,7 @@ sub do_verstats {
        my $unknown     = $total - $vtotal;
        my $perc        = sprintf("%.1f", $unknown * 100 / $total);
        $perc           =~ s/.0$//;
-       $sorted{$perc}{"unknown/cloak"} = "$unknown ($perc %)";
+       $sorted{$perc}{"unknown/cloak"} = "$unknown ($perc%)";
 
        foreach (keys %ver) {
            my $count   = scalar keys %{ $ver{$_} };