added disconnect and connect stats, just debug info for now

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

diff --git a/src/IRC/IrcHooks.pl b/src/IRC/IrcHooks.pl
index bd6fa69b839092ad24663e99907d8267ab60123c..588594e52ed8278955e776feca651dff60765b96 100644 (file)
--- a/src/IRC/IrcHooks.pl
+++ b/src/IRC/IrcHooks.pl
@@ -215,7 +215,9 @@ sub on_disconnect {
     my $what = ($event->args)[0];
 
     &status("disconnect from $from ($what).");
-    $ircstats{'DisconnectReason'} = $what;
+    $ircstats{'DisconnectTime'}                = time();
+    $ircstats{'DisconnectReason'}      = $what;
+    $ircstats{'DisconnectCount'}++;
 
     # clear any variables on reconnection.
     $nickserv = 0;