git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@275
c11ca15a-4712-0410-83d8-
924469b57eb5
&wingateWriteFile(1);
&factoidCheck(1);
&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) {
my $count = 0;
foreach (keys %sched) {
- next unless (exists $sched{$_}{RUNNING});
+ next unless (exists $sched{$_}{TIME});
- if (exists $sched{$codename}) {
+ if (exists $sched{$codename}{RUNNING}) {
&WARN("Sched for $codename already exists.");
return;
}
&WARN("Sched for $codename already exists.");
return;
}
# what the hell is this for?
if (exists $sched{$codename}{RUNNING}) {
# 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.");
delete $sched{$codename}{RUNNING};
} else {
### &WARN("sched $codename already removed.");
my $time = time();
foreach $who (keys %flood) {
foreach (keys %{$flood{$who}}) {
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;
}
&WARN("flood{$who}{$_} undefined?");
next;
}