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