- add statistics

diff --git a/docbot.pl b/docbot.pl
index d7f68e9d04fac32e2435aaa294d44c6298935057..daa6d0b6aa0b5145553591dcc0bd81130c956e19 100755 (executable)
--- 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;
 }