--- lib/PXElator/server.pm 2009/07/29 17:42:48 42 +++ lib/PXElator/server.pm 2009/07/30 21:31:30 67 @@ -1,4 +1,26 @@ package server; -our $ip = '172.16.10.1'; +use warnings; +use strict; +use File::Slurp; +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'; + +our $debug = 0; +sub debug { + my $new = shift; + my $path ="$base_dir/conf/debug"; + if ( defined $new ) { + write_file $path, $debug = $new; + } else { + $debug = read_file $path if -e $path; + } + return $debug; +} + +warn "loaded";