From: Andreas Scherbaum <andreas@scherbaum.biz>
Date: Sat, 19 May 2012 20:41:17 +0000 (+0200)
Subject: - add "wallchan" basics
X-Git-Url: http://waps.l3s.uni-hannover.de/gitweb/?a=commitdiff_plain;h=45f2f69822dee104a85514f394f03b5770dfba45;p=docbot.git

- add "wallchan" basics
---

diff --git a/docbot.pl b/docbot.pl
index 3d657ea..ce0ae5a 100755
--- a/docbot.pl
+++ b/docbot.pl
@@ -293,6 +293,7 @@ sub init_statistics {
     $main::statistics{'command_counter_forget'} = 0;
     $main::statistics{'command_counter_config'} = 0;
     $main::statistics{'command_counter_status'} = 0;
+    $main::statistics{'command_counter_wallchan'} = 0;
     $main::statistics{'command_access_denied'} = 0;
 
     $main::statistics{'database_connects'} = 0;
@@ -1642,6 +1643,9 @@ sub handle_command {
             $main::statistics{'command_counter_status'}++;
             return handle_command_status($command, $string, $mode, $kernel, $heap, $who, $nick, $where, $msg, $sender, $irc, $channel);
         }
+        case('wallchan') {
+            $main::statistics{'command_counter_wallchan'}++;
+        }
     }
 
 
@@ -1710,6 +1714,7 @@ sub handle_command_status {
     push(@commands, 'learn: ' . $main::statistics{'command_counter_learn'});
     push(@commands, 'forget: ' . $main::statistics{'command_counter_forget'});
     push(@commands, 'config: ' . $main::statistics{'command_counter_config'});
+    push(@commands, 'wallchan: ' . $main::statistics{'command_counter_wallchan'});
     push(@commands, 'status: ' . $main::statistics{'command_counter_status'});
     $irc->yield( privmsg => $channel, 'Number of executed IRC commands: ' . join(", ", @commands) );
     $irc->yield( privmsg => $channel, 'Number of denied IRC requests: ' . $main::statistics{'command_access_denied'} );