/[pxelator]/lib/PXElator/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 /lib/PXElator/server.pm

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

revision 118 by dpavlin, Mon Aug 3 08:52:32 2009 UTC revision 128 by dpavlin, Mon Aug 3 19:59:08 2009 UTC
# Line 4  use warnings; Line 4  use warnings;
4  use strict;  use strict;
5    
6  use Module::Refresh;  use Module::Refresh;
7    sub refresh { Module::Refresh->refresh };
8    
9  our $ip      = '172.16.10.1';  our $ip      = '172.16.10.1';
10  our $netmask = '255.255.255.0';  our $netmask = '255.255.255.0';
# Line 17  use config; Line 18  use config;
18  our $debug;  our $debug;
19  sub debug { $debug = config::shared('debug', @_) || 0 }  sub debug { $debug = config::shared('debug', @_) || 0 }
20    
 my $timestamp_interval = 3;  
 my $stderr_tell = 0;  
   
 $SIG{ALRM} = sub {  
     if ( tell(STDERR) != $stderr_tell ) {  
         warn "\nTIMESTAMP: " . localtime() . "\n\n";  
         $stderr_tell = tell(STDERR);  
                 Module::Refresh->refresh;  
     }  
     alarm $timestamp_interval;  
 };  
 alarm $timestamp_interval;  
   
21  warn "loaded";  warn "loaded";
Legend:
Removed from v.118  
changed lines
  Added in v.128
  ViewVC Help
Powered by ViewVC 1.1.26