--- lib/PXElator/server.pm 2009/07/30 21:31:30 67 +++ lib/PXElator/server.pm 2009/08/03 20:59:35 131 @@ -2,25 +2,20 @@ use warnings; use strict; -use File::Slurp; + +use Module::Refresh; +sub refresh { Module::Refresh->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'; +our $base_dir = '/srv/pxelator'; + +use config; -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; -} +our $debug; +sub debug { $debug = config::shared('debug', @_) || 0 } warn "loaded";