dump schedule list again

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

diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl
index 15ec382df1a7a9f7833e53c6afdd4f958b0f4dcb..e52f4eb7ff93f583bc4a405ac5812fd5f089a1c1 100644 (file)
--- a/src/IRC/Schedulers.pl
+++ b/src/IRC/Schedulers.pl
@@ -43,7 +43,7 @@ sub queueTask {
        return;
     }
 
-#    &VERB("Scheduling \&$codename() for ".&Time2String($waittime),3);
+    #&VERB("Scheduling \&$codename() for " . &Time2String($waittime),3);
 
     my $retval = $conn->schedule($waittime, sub {
                \&$codename;
@@ -91,7 +91,7 @@ sub setupSchedulers {
     }
 
     &status("Schedulers: $count will be running.");
-###    &scheduleList();
+    &scheduleList();
 }
 
 sub ScheduleThis {
@@ -109,7 +109,7 @@ sub ScheduleThis {
        return;
     }
 
-#    &VERB("Scheduling \&$codename() for ".&Time2String($waittime),3);
+    #&DEBUG("Scheduling \&$codename() " . \&$codename . " for " . &Time2String($waittime),3);
 
     my $retval = $conn->schedule($waittime, \&$codename, @args);
     $sched{$codename}{LABEL}   = $retval;
@@ -1059,27 +1059,29 @@ sub scheduleList {
     #  b - weird time.
     ###
 
-    &DEBUG("sched:");
-    foreach (keys %{ $irc->{_queue} }) {
+    my $reply = "sched:";
+    foreach (keys %{ $irc->{_queue}}) {
        my $q = $_;
-
+       my $coderef = $irc->{_queue}->{$q}->[1];
        my $sched;
        foreach (keys %sched) {
-           next unless ($q eq $sched{$_});
-           $sched = $_;
+           my $schedname = $_;
+           next unless defined(\&$schedname);
+           next unless ($coderef eq \&$schedname);
+           $sched = $schedname;
            last;
        }
 
        my $time = $irc->{_queue}->{$q}->[0] - time();
 
        if (defined $sched) {
-           &DEBUG("   $sched($q): ".&Time2String($time) );
+           $reply = "$reply, $sched($q):" . &Time2String($time);
        } else {
-           &DEBUG("   NULL($q): ".&Time2String($time) );
+           $reply = "$reply, NULL($q):" . &Time2String($time);
        }
     }
 
-    &DEBUG("end of sList.");
+    &DEBUG("$reply");
 }
 
 sub mkBackup {