/[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 42 by dpavlin, Wed Jul 29 17:42:48 2009 UTC revision 118 by dpavlin, Mon Aug 3 08:52:32 2009 UTC
# Line 1  Line 1 
1  package server;  package server;
2    
3  our $ip = '172.16.10.1';  use warnings;
4    use strict;
5    
6    use Module::Refresh;
7    
8    our $ip      = '172.16.10.1';
9    our $netmask = '255.255.255.0';
10    
11    our ( $ip_from, $ip_to ) = ( 10, 100 );
12    
13    our $base_dir = '/home/dpavlin/llin/pxelator';
14    
15    use config;
16    
17    our $debug;
18    sub debug { $debug = config::shared('debug', @_) || 0 }
19    
20    my $timestamp_interval = 3;
21    my $stderr_tell = 0;
22    
23    $SIG{ALRM} = sub {
24        if ( tell(STDERR) != $stderr_tell ) {
25            warn "\nTIMESTAMP: " . localtime() . "\n\n";
26            $stderr_tell = tell(STDERR);
27                    Module::Refresh->refresh;
28        }
29        alarm $timestamp_interval;
30    };
31    alarm $timestamp_interval;
32    
33    warn "loaded";
Legend:
Removed from v.42  
changed lines
  Added in v.118
  ViewVC Help
Powered by ViewVC 1.1.26