3 |
use warnings; |
use warnings; |
4 |
use strict; |
use strict; |
5 |
|
|
6 |
|
use Data::Dump qw(dump); |
7 |
|
use YAML qw(); |
8 |
|
|
9 |
our $base_dir = '/srv/pxelator'; |
our $base_dir = '/srv/pxelator'; |
10 |
|
|
11 |
use ties; |
use ties; |
59 |
|
|
60 |
sub debug { shared('debug', @_) || 0 } |
sub debug { shared('debug', @_) || 0 } |
61 |
|
|
62 |
|
sub as_hash_for { |
63 |
|
my $ip = shift; |
64 |
|
|
65 |
|
my $server; |
66 |
|
map { $server->{ $_ } = eval '$server::' . $_ } ( 'ip', 'netmask', 'bcast', 'domain' ); |
67 |
|
|
68 |
|
my $server_path = "$server::conf/ip/$ip/server.yaml"; |
69 |
|
$server = YAML::LoadFile $server_path if -e $server_path; |
70 |
|
|
71 |
|
return $server; |
72 |
|
} |
73 |
|
|
74 |
warn "loaded"; |
warn "loaded"; |
75 |
|
|
76 |
1; |
1; |