--- lib/PXElator/server.pm 2009/07/30 21:31:30 67 +++ lib/PXElator/server.pm 2009/08/03 19:59:08 128 @@ -2,7 +2,9 @@ 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'; @@ -11,16 +13,9 @@ 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; -} +use config; + +our $debug; +sub debug { $debug = config::shared('debug', @_) || 0 } warn "loaded";