From 296e931c104750327d9f341725cf110f1eaacbba Mon Sep 17 00:00:00 2001 From: dms Date: Tue, 30 Jan 2001 12:47:02 +0000 Subject: [PATCH] - typo for already-run check. should work now. git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@275 c11ca15a-4712-0410-83d8-924469b57eb5 --- src/IRC/Schedulers.pl | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl index c1d4975..f34ac51 100644 --- a/src/IRC/Schedulers.pl +++ b/src/IRC/Schedulers.pl @@ -42,10 +42,10 @@ sub setupSchedulers { &wingateWriteFile(1); &factoidCheck(1); -# my $count = map { exists $sched{$_}{RUNNING} } keys %sched; +# my $count = map { exists $sched{$_}{TIME} } keys %sched; my $count = 0; foreach (keys %sched) { - next unless (exists $sched{$_}{RUNNING}); + next unless (exists $sched{$_}{TIME}); $count++; } @@ -62,7 +62,7 @@ sub ScheduleThis { return; } - if (exists $sched{$codename}) { + if (exists $sched{$codename}{RUNNING}) { &WARN("Sched for $codename already exists."); return; } @@ -79,7 +79,7 @@ sub ScheduleChecked { # what the hell is this for? if (exists $sched{$codename}{RUNNING}) { - &DEBUG("SC: Removed $codename."); +### &DEBUG("SC: Removed $codename."); delete $sched{$codename}{RUNNING}; } else { ### &WARN("sched $codename already removed."); @@ -357,7 +357,8 @@ sub floodCycle { my $time = time(); foreach $who (keys %flood) { foreach (keys %{$flood{$who}}) { - if (!exists $flood{$who}{$_} or defined $flood{$who}{$_}) { + if (!exists $flood{$who}{$_}) { +# or !defined $flood{$who}{$_}) { &WARN("flood{$who}{$_} undefined?"); next; } -- 2.39.2