From 043e54d73bc0846a03134cf26b731826ee1b93db Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sat, 29 May 2004 08:58:48 +0000
Subject: [PATCH] dump schedule list again

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@942 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/IRC/Schedulers.pl | 24 +++++++++++++-----------
 1 file changed, 13 insertions(+), 11 deletions(-)

diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl
index 15ec382..e52f4eb 100644
--- 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 {
-- 
2.39.2