From 8b3824751431b82d24f616e9fe5cabfe4a8d8e33 Mon Sep 17 00:00:00 2001
From: djmcgrath <djmcgrath@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Wed, 31 Oct 2007 21:39:00 +0000
Subject: [PATCH] * Remove unused "test" code, queueTask and setupSchedulersII

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@1604 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/IRC/Schedulers.pl | 29 -----------------------------
 1 file changed, 29 deletions(-)

diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl
index a4ea985..2f1d75d 100644
--- a/src/IRC/Schedulers.pl
+++ b/src/IRC/Schedulers.pl
@@ -21,35 +21,6 @@ use vars qw(%sched %schedule);
 #	uptimeLoop => ('', 60, 1),
 #};
 
-sub setupSchedulersII {
-    foreach (keys %schedule) {
-	&queueTask($_, @{ $schedule{$_} });
-    }
-}
-
-sub queueTask {
-    my($codename, $chanconfdef, $intervaldef, $defer) = @_;
-    my $t = &getChanConfDefault($chanconfdef, $intervaldef, $chan);
-    my $waittime = &getRandomInt($t);
-
-    if (!defined $waittime) {
-	&WARN("interval == waittime == UNDEF for $codename.");
-	return;
-    }
-
-    my $time = $schedule{$codename}[3];
-    if (defined $time and $time > time()) {
-	&WARN("Sched for $codename already exists in " . &Time2String(time() - $time) . ".");
-	return;
-    }
-
-    #&VERB("Scheduling \&$codename() for " . &Time2String($waittime),3);
-
-    my $retval = $conn->schedule($waittime, sub {
-		\&$codename;
-    }, @args );
-}
-
 sub setupSchedulers {
     &VERB("Starting schedulers...",2);
 
-- 
2.39.5