use autodie;
use File::Slurp;
-use Net::Ping;
use Data::Dump qw/dump/;
use server;
use format;
use ip;
+use ping;
our $debug = $server::debug;
my $mac = shift;
$mac = format::mac($mac);
- my $p = Net::Ping->new;
-
my $prefix = $server::ip;
$prefix =~ s{\.\d+$}{.};
my $addr = $server::ip_from || die;
my $ip = $prefix . $addr;
- while ( -e ip_path($ip) || $p->ping( $ip, 0.7 ) ) {
+ while ( -e ip_path($ip) || ping::host($ip) ) {
$ip = $prefix . $addr++;
die "all addresses allocated!" if $addr == $server::ip_to;
warn "skip $ip\n";