lib/PXElator/server.pm

package server;

use warnings;
use strict;

use Module::Refresh;

our $ip      = '172.16.10.1';
our $netmask = '255.255.255.0';

our ( $ip_from, $ip_to ) = ( 10, 100 );

our $base_dir = '/home/dpavlin/llin/pxelator';

use config;

our $debug;
sub debug { $debug = config::shared('debug', @_) || 0 }

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;

warn "loaded";
1	dpavlin	42	package server;
2
3	dpavlin	67	use warnings;
4			use strict;
5
6	dpavlin	118	use Module::Refresh;
7
8	dpavlin	57	our $ip = '172.16.10.1';
9			our $netmask = '255.255.255.0';
10	dpavlin	42
11	dpavlin	45	our ( $ip_from, $ip_to ) = ( 10, 100 );
12
13	dpavlin	47	our $base_dir = '/home/dpavlin/llin/pxelator';
14
15	dpavlin	74	use config;
16
17	dpavlin	75	our $debug;
18			sub debug { $debug = config::shared('debug', @_) \|\| 0 }
19	dpavlin	67
20	dpavlin	118	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	dpavlin	45	warn "loaded";