--- lib/PXElator/server.pm 2009/08/05 23:22:17 153 +++ lib/PXElator/server.pm 2009/08/06 15:15:53 156 @@ -13,16 +13,19 @@ our $base_dir = '/srv/pxelator'; +our $conf = "$base_dir/conf/$ip"; + use Module::Refresh qw//; sub refresh { Module::Refresh->refresh }; -mkdir $_ foreach grep { ! -e $_ } map { "$base_dir/conf/$server::ip/$_" } ( 'ip', 'mac', 'hostname', 'deploy' ); + +mkdir $_ foreach grep { ! -d $_ } map { "$conf/$_" } ( 'ip', 'mac' ); use File::Slurp; sub shared { my ($name, $value) = @_; - my $path ="$base_dir/conf/$server::ip/$name"; + my $path ="$conf/$name"; if ( defined $value ) { write_file $path, $value; warn "update $path = $value";