added disconnect and connect stats, just debug info for now

[infobot.git] / src / IRC / IrcHooks.pl

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;