From 120cfa40c00f7ab27e4b08f3822da8f237b1d263 Mon Sep 17 00:00:00 2001 From: timriker Date: Thu, 21 Aug 2003 23:31:17 +0000 Subject: [PATCH] move debug to log, possible multiple instance fix comment git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@808 c11ca15a-4712-0410-83d8-924469b57eb5 --- src/IRC/Schedulers.pl | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl index e1646da..44b021f 100644 --- a/src/IRC/Schedulers.pl +++ b/src/IRC/Schedulers.pl @@ -686,11 +686,8 @@ sub ircCheck { } # debug. needed for testing - open(OUT, ">>irccheck.log"); - my $t = scalar(localtime); - printf OUT "%s: conn->connected = %s\n", $t, $conn->connected(); - printf OUT "%s: time()-msgtime = %d\n", $t, time() - $msgtime; - close OUT; + &TODO("conn->connected = " . $conn->connected()); + &TODO("time()-msgtime = " . time() - $msgtime); if (!$conn->connected or time() - $msgtime > 3600) { # todo: shouldn't we use cache{connect} somewhere? @@ -768,10 +765,11 @@ sub miscCheck { my ($shmid, $size) = ($2,$5); next unless ($shmid != $shm and $size == 2000); my $z = &shmRead($shmid); + # TODO - add nick to SHM so multiple instances can be running + # as the same unix user on the same host? if ($z =~ /^(\d+): /) { my $time = $1; next if (time() - $time < 60*60); - } else { # &DEBUG("shm: $shmid is not ours or old blootbot => ($z)"); # next; -- 2.39.2