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 |