* 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

diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl
index a4ea985004d63146dfef133f76e5ee5819422313..2f1d75da5f0b745377f773a582c033621ec6af87 100644 (file)
--- 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);