Parent Directory | Revision Log | Patch
revision 304 by dpavlin, Tue Aug 25 15:00:20 2009 UTC | revision 305 by dpavlin, Thu Aug 27 14:30:55 2009 UTC | |
---|---|---|
# | Line 66 sub conf { | Line 66 sub conf { |
66 | return $value; | return $value; |
67 | } | } |
68 | ||
69 | sub all_conf { | |
70 | my $ip = shift; | |
71 | my $path = ip_path $ip || return; | |
72 | my $conf; | |
73 | foreach my $file ( glob("$path/*") ) { | |
74 | my $name = $file; | |
75 | $name =~ s{^.+/([^/]+)$}{$1}; | |
76 | $conf->{ $name } = read_file $file; | |
77 | } | |
78 | return $conf; | |
79 | } | |
80 | sub next_ip($) { | sub next_ip($) { |
81 | my $mac = shift; | my $mac = shift; |
82 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |