[SimBot-commits] CVS: simbot/tools rebuild_irc_stats.pl,1.2,1.3

[Pete P. <fou...@us...>]

Update of /cvsroot/simbot/simbot/tools
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28109/tools

Modified Files:
	rebuild_irc_stats.pl 
Log Message:
Only consider SAY and ACTION events for making the statistics graphs and the
channel nick list. This should reduce the number of uninteresting stats entries.


Index: rebuild_irc_stats.pl
===================================================================
RCS file: /cvsroot/simbot/simbot/tools/rebuild_irc_stats.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -p -r1.2 -r1.3
--- rebuild_irc_stats.pl	17 Aug 2005 13:01:54 -0000	1.2
+++ rebuild_irc_stats.pl	18 Aug 2005 18:56:08 -0000	1.3
@@ -40,7 +40,7 @@ print 'Resetting the nickname stats tabl
     local $dbh->{RaiseError}; # let's not die in this block
     local $dbh->{PrintError}; # and let's be quiet
     
-    $dbh->do('DROP TABLE nickstats');
+    $dbh->do('DROP TABLE nick_hour_counts');
     
     $dbh->do(<<EOT);
 CREATE TABLE nick_hour_counts (
@@ -56,7 +56,7 @@ print " Done.\n";
 
 # Now we loop through every line in the log.
 
-my $query = $dbh->prepare('SELECT time, channel_id, source_nick_id FROM chatlog');
+my $query = $dbh->prepare('SELECT time, channel_id, source_nick_id, event FROM chatlog');
 my $update_query = $dbh->prepare(
     'UPDATE nick_hour_counts'
     . ' SET count = count + 1'
@@ -73,16 +73,19 @@ $query->execute();
 print "Calculating users' hourly line counts";
 my $row_number = 0;
 
-while(my ($time, $channel_id, $nick_id) = $query->fetchrow_array) {
+while(my ($time, $channel_id, $nick_id, $event) = $query->fetchrow_array) {
     my $hour = (gmtime($time))[2];
     
-    unless(int $update_query->execute($nick_id, $channel_id, $hour)) {
-        $insert_query->execute($nick_id, $channel_id, $hour);
-    }
-    
     if(++$row_number % 800 == 0) {
         print '.';
     }
+    
+    if($event =~ m/SAY|ACTION/) {
+        unless(int $update_query->execute($nick_id, $channel_id, $hour)) {
+            $insert_query->execute($nick_id, $channel_id, $hour);
+        }
+    }
+    
 }
 print " Done\nCommitting...";