Parent Directory | Revision Log | Patch
revision 954 by dpavlin, Wed Jan 7 00:04:06 2009 UTC | revision 1058 by dpavlin, Fri Apr 24 15:31:28 2009 UTC | |
---|---|---|
# | Line 188 sub refresh { | Line 188 sub refresh { |
188 | |; # XXX newlines at end are important to flush content to browser | |; # XXX newlines at end are important to flush content to browser |
189 | } | } |
190 | ||
191 | my $timestamp_interval = 3; | |
192 | my $output_tell = 0; | |
193 | ||
194 | $SIG{ALRM} = sub { | |
195 | if ( tell(STDERR) != $output_tell ) { | |
196 | warn "\nTIMESTAMP: " . localtime() . "\n\n"; | |
197 | $output_tell = tell(STDERR); | |
198 | } | |
199 | alarm $timestamp_interval; | |
200 | }; | |
201 | alarm $timestamp_interval; | |
202 | ||
203 | 1; | 1; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |