--- lib/PXElator/server.pm	2009/08/04 15:25:09	138
+++ lib/PXElator/server.pm	2009/08/05 23:22:17	153
@@ -9,11 +9,15 @@
 
 our ( $ip_from, $ip_to ) = ( 10, 100 );
 
+our $domain_name = 'pxelator.lan';
+
 our $base_dir = '/srv/pxelator';
 
 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) = @_;
@@ -21,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;
 	}