Parent Directory | Revision Log | Patch
revision 457 by dpavlin, Sat Jan 2 17:20:40 2010 UTC | revision 458 by dpavlin, Sat Jan 2 17:45:02 2010 UTC | |
---|---|---|
# | Line 63 sub as_hash_for { | Line 63 sub as_hash_for { |
63 | my $ip = shift; | my $ip = shift; |
64 | ||
65 | my $server; | my $server; |
66 | map { $server->{ $_ } = eval '$server::' . $_ } ( 'ip', 'netmask', 'bcast', 'domain' ); | map { $server->{ $_ } = eval '$server::' . $_ } ( 'ip', 'netmask', 'bcast', 'domain', 'ip_from', 'ip_to', 'new_clients' ); |
67 | ||
68 | my $server_path = "$server::conf/ip/$ip/server.yaml"; | my $server_path = "$server::conf/ip/$ip/server.yaml"; |
69 | $server = YAML::LoadFile $server_path if -e $server_path; | $server = YAML::LoadFile $server_path if -e $server_path; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |