From 84be6a0d1ca61298428a588c7b5e5d362ae0d60f Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sun, 4 Feb 2001 12:13:13 +0000
Subject: [PATCH] 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
---
 src/CommandStubs.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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