From 1364d764eb065c0df05c2600cb3d9d5ed6c67182 Mon Sep 17 00:00:00 2001
From: Andreas Scherbaum <andreas@scherbaum.biz>
Date: Sun, 22 Jan 2012 01:33:06 +0100
Subject: [PATCH] - add statistics

---
 docbot.pl | 38 +++++++++++++++++++++++++++++++-------
 1 file changed, 31 insertions(+), 7 deletions(-)

diff --git a/docbot.pl b/docbot.pl
index d7f68e9..daa6d0b 100755
--- a/docbot.pl
+++ b/docbot.pl
@@ -65,6 +65,9 @@ $main::loglevel = DEBUG;
 %main::sessions = ();
 # logfile name
 $main::logfile = 'docbot.log';
+# statistics
+%main::statistics = ();
+init_statistics();
 
 
 ######################################################################
@@ -243,6 +246,24 @@ exit 0;
 
 
 
+sub init_statistics {
+    $main::statistics{'docbot_start'} = time();
+
+    $main::statistics{'command_counter_search'} = 0;
+    $main::statistics{'command_counter_help'} = 0;
+    $main::statistics{'command_counter_info'} = 0;
+    $main::statistics{'command_counter_learn'} = 0;
+    $main::statistics{'command_counter_forget'} = 0;
+    $main::statistics{'command_counter_config'} = 0;
+    $main::statistics{'command_counter_status'} = 0;
+    $main::statistics{'command_access_denied'} = 0;
+
+    $main::statistics{'connects'} = 0;
+
+}
+
+
+
 # init_config()
 #
 # init configuration
@@ -1283,25 +1304,25 @@ sub handle_command {
 
     switch ($command) {
         case('search') {
-        
+            $main::statistics{'command_counter_search'}++;
         }
         case('help') {
-        
+            $main::statistics{'command_counter_help'}++;
         }
         case('info') {
-        
+            $main::statistics{'command_counter_info'}++;
         }
         case('learn') {
-        
+            $main::statistics{'command_counter_learn'}++;
         }
         case('forget') {
-        
+            $main::statistics{'command_counter_forget'}++;
         }
         case('config') {
-        
+            $main::statistics{'command_counter_config'}++;
         }
         case('status') {
-        
+            $main::statistics{'command_counter_status'}++;
         }
     }
 
@@ -1386,6 +1407,8 @@ sub on_connect {
 
 
     set_session_activity($session);
+    $main::statistics{'connects'}++;
+
 
     # join all channels for this session
     $main::sessions{$session}{'joined_channels'} = [];
@@ -1394,6 +1417,7 @@ sub on_connect {
         $irc->yield( join => $channel );
     }
 
+
     return;
 }
 
-- 
2.39.5