- some more information in the log, about who execited which command in which channel

diff --git a/docbot.pl b/docbot.pl
index 9505fc9f32565e9ef7d639366f63f7f774332e6e..82de02f1458497d5407ba941ad37fd841aa93ba9 100755 (executable)
--- a/docbot.pl
+++ b/docbot.pl
@@ -3591,7 +3591,7 @@ sub on_message {
                     # execute desired command
                     #$answer = $admin_commands->{$command}($kernel, $nick, $channel, $string);
                     $answer = "Execute command: $command";
-                    print_msg("Execute command: $command", INFO);
+                    print_msg("Execute command: $command, $nick, $channel", INFO);
                     $answer = handle_command($command, $string, 'admin', $kernel, $heap, $who, $nick, $where, $msg, $sender, $irc, $channel);
                 } else {
                     # user is not allowed to execute admin commands
@@ -3605,7 +3605,7 @@ sub on_message {
                     # execute desired command
                     #$answer = $admin_commands->{$command}($kernel, $nick, $channel, $string);
                     $answer = "Execute command: $command";
-                    print_msg("Execute command: $command", INFO);
+                    print_msg("Execute command: $command, $nick, $channel", INFO);
                     $answer = handle_command($command, $string, 'operator', $kernel, $heap, $who, $nick, $where, $msg, $sender, $irc, $channel);
                 } else {
                     # user is not allowed to execute admin commands
@@ -3622,7 +3622,7 @@ sub on_message {
             # execute desired command
             #$answer = $admin_commands->{$command}($kernel, $nick, $channel, $string);
             $answer = "Execute command: $command";
-            print_msg("Execute command: $command", INFO);
+            print_msg("Execute command: $command, $nick, $channel", INFO);
             $answer = handle_command($command, $string, 'user', $kernel, $heap, $who, $nick, $where, $msg, $sender, $irc, $channel);
 
         }