/[Frey]/trunk/lib/Frey/Server.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Server.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1057 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;
Legend:
Removed from v.1057  
changed lines
  Added in v.1058
  ViewVC Help
Powered by ViewVC 1.1.26