X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FIRC%2FSchedulers.pl;h=2f1d75da5f0b745377f773a582c033621ec6af87;hb=8b3824751431b82d24f616e9fe5cabfe4a8d8e33;hp=a4ea985004d63146dfef133f76e5ee5819422313;hpb=59773bac6e4b50b2fd7d4db22bf21b0645e85770;p=infobot.git

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);