debugging info

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@318 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/IRC/IrcHooks.pl b/src/IRC/IrcHooks.pl
index dd09af7acae4f0a9f9873ab1074b494d581dc8df..edfa0aa03a28c5f4575edeffcdb3bb469ad8e4e9 100644 (file)
--- a/src/IRC/IrcHooks.pl
+++ b/src/IRC/IrcHooks.pl
@@ -174,6 +174,7 @@ sub on_dcc {
     $self->whois($nick);
     $nuh{lc $nick}     = "GETTING-NOW";        # trying.
     $type ||= "???";
+    &DEBUG("on_dcc: nuh => GETTING-NOW.");
 
     if ($type eq 'SEND') {     # GET for us.
        # incoming DCC SEND. we're receiving a file.
@@ -266,6 +267,7 @@ sub on_dcc_open {
 sub on_dcc_open_chat {
     my(undef, $nick,$sock) = @_;
 
+    &DEBUG("nuh{$nick} => $nuh{$nick}.");
     if ($nuh{$nick} =~ /^(\S+)(\d+)$/) {
        my $i = $2;
        $i++;