From c2a2a2916f2dcf80368ec9a5fc5509a7059541cc Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Fri, 1 Sep 2000 14:19:33 +0000
Subject: [PATCH] added disconnect and connect stats, just debug info for now

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@67 c11ca15a-4712-0410-83d8-924469b57eb5
---
 blootbot/src/IRC/IrcHooks.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/blootbot/src/IRC/IrcHooks.pl b/blootbot/src/IRC/IrcHooks.pl
index bd6fa69..588594e 100644
--- a/blootbot/src/IRC/IrcHooks.pl
+++ b/blootbot/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;
-- 
2.39.5