--- lib/PXElator/client.pm 2009/08/25 15:00:20 286 +++ lib/PXElator/client.pm 2009/08/27 14:30:55 305 @@ -66,6 +66,17 @@ return $value; } +sub all_conf { + my $ip = shift; + my $path = ip_path $ip || return; + my $conf; + foreach my $file ( glob("$path/*") ) { + my $name = $file; + $name =~ s{^.+/([^/]+)$}{$1}; + $conf->{ $name } = read_file $file; + } + return $conf; +} sub next_ip($) { my $mac = shift;