From 45f2f69822dee104a85514f394f03b5770dfba45 Mon Sep 17 00:00:00 2001
From: Andreas Scherbaum <andreas@scherbaum.biz>
Date: Sat, 19 May 2012 22:41:17 +0200
Subject: [PATCH] - add "wallchan" basics

---
 docbot.pl | 5 +++++
 1 file changed, 5 insertions(+)

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'} );
-- 
2.39.5