--- lib/PXElator/server.pm 2009/08/19 18:10:37 270 +++ lib/PXElator/server.pm 2010/01/02 17:45:02 458 @@ -3,26 +3,31 @@ use warnings; use strict; +use Data::Dump qw(dump); +use YAML qw(); -our $ip = '172.16.10.1'; -our $netmask = '255.255.255.0'; -our $bcast = '172.16.10.255'; - -if ( my $dev = $ENV{DEV} ) { - my $ifconfig = `ifconfig $dev`; - ( $ip, $bcast, $netmask ) = ( $1, $2, $3 ) if $ifconfig =~ m{inet addr:(\S+)\s+Bcast:(\S+)\s+Mask:(\S+)}s; - warn "DEV $dev $ip $bcast $netmask"; -} +our $base_dir = '/srv/pxelator'; -our ( $ip_from, $ip_to ) = ( 10, 100 ); +use ties; -our $domain_name = 'pxelator.lan'; +tie our $ip, 'ties', 'server_ip' => '172.16.10.1'; +tie our $netmask, 'ties', 'netmask' => '255.255.255.0'; +tie our $bcast, 'ties', 'bcast' => '172.16.10.254'; +tie our $ip_from, 'ties', 'ip_from' => 10; +tie our $ip_to, 'ties', 'ip_to' => 100; +tie our $domain, 'ties', 'domain' => 'pxelator.lan'; +tie our $new_clients, 'ties', 'new_clients' => $ip_to - $ip_from; -our $base_dir = '/srv/pxelator'; +warn "DEV $ip $bcast $netmask"; -our $conf = "$base_dir/conf/$ip"; +our $conf = "$base_dir/conf"; mkdir $conf unless -e $conf; +sub conf { + warn "## conf $conf"; + $conf; +} + use Module::Refresh qw//; sub refresh { Module::Refresh->refresh; @@ -54,6 +59,18 @@ sub debug { shared('debug', @_) || 0 } +sub as_hash_for { + my $ip = shift; + + my $server; + map { $server->{ $_ } = eval '$server::' . $_ } ( 'ip', 'netmask', 'bcast', 'domain', 'ip_from', 'ip_to', 'new_clients' ); + + my $server_path = "$server::conf/ip/$ip/server.yaml"; + $server = YAML::LoadFile $server_path if -e $server_path; + + return $server; +} + warn "loaded"; 1;