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 | dpavlin | 42 | package server; |
2 | |||
3 | dpavlin | 67 | use warnings; |
4 | use strict; | ||
5 | use File::Slurp; | ||
6 | |||
7 | dpavlin | 57 | our $ip = '172.16.10.1'; |
8 | our $netmask = '255.255.255.0'; | ||
9 | dpavlin | 42 | |
10 | dpavlin | 45 | our ( $ip_from, $ip_to ) = ( 10, 100 ); |
11 | |||
12 | dpavlin | 47 | our $base_dir = '/home/dpavlin/llin/pxelator'; |
13 | |||
14 | dpavlin | 67 | 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 | dpavlin | 45 | warn "loaded"; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |