1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
--- timer.pl.orig 2003-11-17 14:36:19.000000000 +0100
+++ timer.pl 2006-01-20 14:46:10.934456144 +0100
@@ -142,11 +142,12 @@
command_bind 'timer list' => sub {
print( CRAP "Active timers:" );
foreach my $name ( keys %timers ) {
+ my $msg = "$name = $timers{$name}->{'command'} every $timers{$name}->{'interval'}s";
if ( $timers{$name}->{repeat} == -1 ) {
- print( CRAP "$name = $timers{$name}->{'command'} (until stopped)");
+ print( CRAP "$msg (until stopped)");
}
else {
- print( CRAP "$name = $timers{$name}->{'command'} ($timers{$name}->{'repeat'} repeats left)" );
+ print( CRAP "$msg ($timers{$name}->{'repeat'} repeats left)" );
}
}
print( CRAP "End of /timer list" );
|
