File: timer.pl.diff

package info (click to toggle)
irssi-scripts 20100512
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 3,420 kB
  • ctags: 2,479
  • sloc: perl: 58,204; sh: 171; makefile: 33
file content (17 lines) | stat: -rw-r--r-- 727 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
--- a/scripts/timer.pl
+++ b/scripts/timer.pl
@@ -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" );