From 8df8b26c7c1e253486dcdb02e33910934943cb31 Mon Sep 17 00:00:00 2001 From: dms Date: Fri, 1 Sep 2000 14:21:13 +0000 Subject: [PATCH] debug info for ircstats hash list git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@68 c11ca15a-4712-0410-83d8-924469b57eb5 --- src/UserExtra.pl | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/UserExtra.pl b/src/UserExtra.pl index b2388d1..c6343e4 100644 --- a/src/UserExtra.pl +++ b/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". -- 2.39.5