From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Thu, 1 Jul 2004 06:23:08 +0000 (+0000)
Subject: re-order and wait a sec for nickserv to catch up
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=6bae4d2df7f08be4b49a120c201a30d5841b449d;p=infobot.git

re-order and wait a sec for nickserv to catch up


git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@970 c11ca15a-4712-0410-83d8-924469b57eb5
---

diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl
index 739d788..932dd94 100644
--- a/src/IRC/Schedulers.pl
+++ b/src/IRC/Schedulers.pl
@@ -56,29 +56,32 @@ sub setupSchedulers {
     # ONCE OFF.
 
     # REPETITIVE.
-    # 1 for run straight away, 2 for on next-run.
-    &uptimeLoop(1);
+    # 2 for on next-run.
     &randomQuote(2);
     &randomFactoid(2);
-    &logLoop(1);
-    &chanlimitCheck(1);
-    &netsplitCheck(1);	# mandatory
-    &floodLoop(1);	# mandatory
     &seenFlush(2);
     &leakCheck(2);	# mandatory
-    &ignoreCheck(1);	# mandatory
     &seenFlushOld(2);
-    &ircCheck(1);	# mandatory
-    &miscCheck(1);	# 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.
-    &newsFlush(1);
+    &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;
@@ -109,7 +112,7 @@ sub ScheduleThis {
 	return;
     }
 
-    #&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;