From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sun, 4 Feb 2001 12:13:13 +0000 (+0000)
Subject: if more than 1/4 users from channel gave version replies, verstats is active.
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e2a530d844027840aa4b48a956f582588990bed7;p=infobot.git

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@330 c11ca15a-4712-0410-83d8-924469b57eb5
---

diff --git a/blootbot/src/CommandStubs.pl b/blootbot/src/CommandStubs.pl
index 705223a..6582de2 100644
--- a/blootbot/src/CommandStubs.pl
+++ b/blootbot/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{$_} };