From: Andreas Scherbaum <andreas@scherbaum.biz>
Date: Wed, 29 Feb 2012 15:10:29 +0000 (+0100)
Subject: - decrease debugging output in find_nick()
X-Git-Url: http://git.postgresql.org/gitweb/?a=commitdiff_plain;h=81d0e549e180c18258f26fbb3eb2ecb8bee588fd;p=docbot.git

- decrease debugging output in find_nick()
- clarify some debugging messages
---

diff --git a/docbot.pl b/docbot.pl
index b5c4ed2..5c17345 100755
--- 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;