- change simple output into debugging message

diff --git a/docbot.pl b/docbot.pl
index 87b36d8e8834b1d7a79b0f04aaafab0b9922f708..07ef13d46465751ba437368aaeec2b08e546c36c 100755 (executable)
--- a/docbot.pl
+++ b/docbot.pl
@@ -1246,6 +1246,8 @@ sub on_connect {
     my $session = find_irc_session($irc);
 
 
+    print_msg("Session $session connected to " . $irc->server_name(), DEBUG);
+
     $main::sessions{$session}{'past_motd'} = 0;
     $main::sessions{$session}{'last_nick_change_attempt'} = time();
 
@@ -1262,11 +1264,9 @@ sub on_connect {
     print_msg("Channel list for session $session: " . join(", ", @join_channels), DEBUG);
 
 
-    print "Session $session connected to " . $irc->server_name() . "\n";
-
     set_session_activity($session);
 
-    # join all channels
+    # join all channels for this session
     $main::sessions{$session}{'joined_channels'} = [];
     foreach my $channel (@join_channels) {
         # based on the current configuration, each channel can only be joined by one bot session