git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@942
c11ca15a-4712-0410-83d8-
924469b57eb5
-# &VERB("Scheduling \&$codename() for ".&Time2String($waittime),3);
+ #&VERB("Scheduling \&$codename() for " . &Time2String($waittime),3);
my $retval = $conn->schedule($waittime, sub {
\&$codename;
my $retval = $conn->schedule($waittime, sub {
\&$codename;
}
&status("Schedulers: $count will be running.");
}
&status("Schedulers: $count will be running.");
-# &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;
my $retval = $conn->schedule($waittime, \&$codename, @args);
$sched{$codename}{LABEL} = $retval;
- &DEBUG("sched:");
- foreach (keys %{ $irc->{_queue} }) {
+ my $reply = "sched:";
+ foreach (keys %{ $irc->{_queue}}) {
+ my $coderef = $irc->{_queue}->{$q}->[1];
my $sched;
foreach (keys %sched) {
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) {
last;
}
my $time = $irc->{_queue}->{$q}->[0] - time();
if (defined $sched) {
- &DEBUG(" $sched($q): ".&Time2String($time) );
+ $reply = "$reply, $sched($q):" . &Time2String($time);
- &DEBUG(" NULL($q): ".&Time2String($time) );
+ $reply = "$reply, NULL($q):" . &Time2String($time);
- &DEBUG("end of sList.");