Parent Directory | Revision Log | Patch
revision 313 by dpavlin, Thu Aug 27 18:59:12 2009 UTC | revision 322 by dpavlin, Fri Aug 28 16:41:46 2009 UTC | |
---|---|---|
# | Line 9 use Net::Ping; | Line 9 use Net::Ping; |
9 | ||
10 | use server; | use server; |
11 | use format; | use format; |
12 | use ip; | |
13 | ||
14 | our $debug = $server::debug; | our $debug = $server::debug; |
15 | ||
# | Line 149 sub change_ip($$) { | Line 150 sub change_ip($$) { |
150 | symlink ip_path($new), mac_path($mac); | symlink ip_path($new), mac_path($mac); |
151 | } | } |
152 | ||
153 | sub all_ips { | |
154 | sort { ip::to_int($a) cmp ip::to_int($b) } | |
155 | map { | |
156 | my $ip = $_; | |
157 | $ip =~ s{^.+/ip/}{}; | |
158 | $ip; | |
159 | } glob("$server::conf/ip/*") | |
160 | } | |
161 | ||
162 | 1; | 1; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |