debug info for ircstats hash list

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

diff --git a/blootbot/src/UserExtra.pl b/blootbot/src/UserExtra.pl
index b2388d10649122fd0e775fbcd703d42c78537f47..c6343e4664c115968038fe1df356f99236565957 100644 (file)
--- a/blootbot/src/UserExtra.pl
+++ b/blootbot/src/UserExtra.pl
@@ -462,6 +462,10 @@ sub userCommands {
        my $format_time = &Time2String(time() - $ircstats{'ConnectTime'});
        my $reply;
 
+       foreach (keys %ircstats) {
+           &DEBUG("ircstats: $_ => '$ircstats{$_}'.");
+       }
+
        ### RECONNECT COUNT.
        if ($count == 1) {      # good.
            $reply = "I'm connected to $ircstats{'Server'} and have been so".