git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@970
c11ca15a-4712-0410-83d8-
924469b57eb5
# ONCE OFF.
# REPETITIVE.
# ONCE OFF.
# REPETITIVE.
- # 1 for run straight away, 2 for on next-run.
- &uptimeLoop(1);
&randomQuote(2);
&randomFactoid(2);
&randomQuote(2);
&randomFactoid(2);
- &logLoop(1);
- &chanlimitCheck(1);
- &netsplitCheck(1); # mandatory
- &floodLoop(1); # mandatory
&seenFlush(2);
&leakCheck(2); # mandatory
&seenFlush(2);
&leakCheck(2); # mandatory
- &ignoreCheck(1); # mandatory
- &ircCheck(1); # mandatory
- &miscCheck(1); # mandatory
&miscCheck2(2); # mandatory
&miscCheck2(2); # mandatory
- &shmFlush(1); # mandatory
&slashdotLoop(2);
&plugLoop(2);
&kernelLoop(2);
&wingateWriteFile(2);
&factoidCheck(2); # takes a couple of seconds on a 486. defer it
# TODO: convert to new format... or nuke altogether.
&slashdotLoop(2);
&plugLoop(2);
&kernelLoop(2);
&wingateWriteFile(2);
&factoidCheck(2); # takes a couple of seconds on a 486. defer it
# TODO: convert to new format... or nuke altogether.
+ &newsFlush(2);
+
+ # 1 for run straight away
+ &uptimeLoop(1);
+ &logLoop(1);
+ &chanlimitCheck(1);
+ &netsplitCheck(1); # mandatory
+ &floodLoop(1); # mandatory
+ &ignoreCheck(1); # mandatory
+ &miscCheck(1); # mandatory
+ &shmFlush(1); # mandatory
+ sleep 1;
+ &ircCheck(1); # mandatory
# TODO: squeeze this into a one-liner.
# my $count = map { exists $sched{$_}{TIME} } keys %sched;
# TODO: squeeze this into a one-liner.
# my $count = map { exists $sched{$_}{TIME} } keys %sched;
- #&DEBUG("Scheduling \&$codename() " . \&$codename . " for " . &Time2String($waittime),3);
+ &DEBUG("Scheduling \&$codename() " . \&$codename . " for " . &Time2String($waittime),3);
my $retval = $conn->schedule($waittime, \&$codename, @args);
$sched{$codename}{LABEL} = $retval;
my $retval = $conn->schedule($waittime, \&$codename, @args);
$sched{$codename}{LABEL} = $retval;