- decrease debugging output in find_nick()

- clarify some debugging messages

diff --git a/docbot.pl b/docbot.pl
index b5c4ed27860d693096c8eb373b527c822dddc2a8..5c173453d8731f03d522ae60f7d6efcb90a1b529 100755 (executable)
--- a/docbot.pl
+++ b/docbot.pl
@@ -1465,7 +1465,7 @@ sub format_time_short_exact {
 #  none
 sub add_nick {
     my ($heap, $who, $channel, $session) = @_;
-    print_msg("add_nick($who, $channel, $session)", DEBUG2);
+    print_msg("add_nick($who, channel: $channel, session: $session)", DEBUG2);
 
     my %channels = %{$heap->{'chan_data_' . $session}};
     my @nicknames = ();
@@ -1495,9 +1495,9 @@ sub add_nick {
 sub remove_nick {
     my ($heap, $who, $channel, $session) = @_;
     if (defined($channel)) {
-        print_msg("remove_nick($who, $channel, $session)", DEBUG2);
+        print_msg("remove_nick($who, channel: $channel, session: $session)", DEBUG2);
     } else {
-        print_msg("remove_nick($who, $session)", DEBUG2);
+        print_msg("remove_nick($who, session: $session)", DEBUG2);
     }
 
     my %channels = %{$heap->{'chan_data_' . $session}};
@@ -1544,7 +1544,7 @@ sub remove_nick {
 #  none
 sub remove_channel {
     my ($heap, $channel, $session) = @_;
-    print_msg("remove_channel($channel, $session)", DEBUG2);
+    print_msg("remove_channel($channel, session: $session)", DEBUG2);
 
     my %channels = %{$heap->{'chan_data_' . $session}};
 
@@ -1567,7 +1567,7 @@ sub remove_channel {
 #  - array with channels
 sub find_nick {
     my ($heap, $who, $session) = @_;
-    print_msg("find_nick($who, $session)", DEBUG);
+    print_msg("find_nick($who, session: $session)", DEBUG2);
 
     my %channels = %{$heap->{'chan_data_' . $session}};
     my @channels;