- add "wallchan" basics

diff --git a/docbot.pl b/docbot.pl
index 3d657eab650fae8dc83b5f122290cad7fe6824ce..ce0ae5a59879b8c2f451d92115f9b613bd0b39eb 100755 (executable)
--- 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'} );