Parent Directory | Revision Log
implemented correct start/stop logic (which now works!) and pushed debug state into $server::debug and file conf/debug for shared state between servers
1 | package server; |
2 | |
3 | use warnings; |
4 | use strict; |
5 | use File::Slurp; |
6 | |
7 | our $ip = '172.16.10.1'; |
8 | our $netmask = '255.255.255.0'; |
9 | |
10 | our ( $ip_from, $ip_to ) = ( 10, 100 ); |
11 | |
12 | our $base_dir = '/home/dpavlin/llin/pxelator'; |
13 | |
14 | our $debug = 0; |
15 | sub debug { |
16 | my $new = shift; |
17 | my $path ="$base_dir/conf/debug"; |
18 | if ( defined $new ) { |
19 | write_file $path, $debug = $new; |
20 | } else { |
21 | $debug = read_file $path if -e $path; |
22 | } |
23 | return $debug; |
24 | } |
25 | |
26 | warn "loaded"; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |