- irctextcounter: ORDER by counter, not nick!

[infobot.git] / src / CommandStubs.pl

diff --git a/src/CommandStubs.pl b/src/CommandStubs.pl
index bfcc42e43bba2818af22268f89c67f68c5353275..864d78b920b622b2f6dac22b129ae7231a6eb817 100644 (file)
--- a/src/CommandStubs.pl
+++ b/src/CommandStubs.pl
@@ -262,7 +262,7 @@ sub Modules {
     }
 
     # google searching. Simon++
-    if ($message =~ /^(?:search\s+)?(\S+)\s+for\s+['"]?(.*?)['"]?\s*\?*$/i) {
+    if ($message =~ /^(?:search\s+)?(\S+)\s+for\s+['"]?(.*?)["']?\s*\?*$/i) {
        return unless (&hasParam("wwwsearch"));
 
        &Forker("wwwsearch", sub { &W3Search::W3Search($1,$2); } );
@@ -282,12 +282,13 @@ sub Modules {
            my $arg     = $3;
 
            if (!defined $arg or $arg =~ /^\s*$/) {
-               # this is fucking ugly but it works :-)
+               # this is way fucking ugly.
                my $x = (&dbRawReturn("SELECT SUM(counter) FROM stats WHERE type=".&dbQuote($type) ))[0];
                my %hash = &dbGetCol("stats", "nick,counter", "type=".&dbQuote($type).
-                       " ORDER BY nick DESC LIMIT 3", 1);
+                       " ORDER BY counter DESC LIMIT 3", 1);
                my $i;
                my @top;
+
                # unfortunately we have to sort it again!
                # todo: make dbGetCol return hash and array? too much effort.
                foreach $i (sort { $b <=> $a } keys %hash) {