6 |
use Net::Ping; |
use Net::Ping; |
7 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
8 |
use Time::HiRes; |
use Time::HiRes; |
9 |
|
use client; |
10 |
|
|
11 |
sub host { |
sub host { |
12 |
Net::Ping->new->ping( shift, 0.7 ); |
Net::Ping->new->ping( shift, 0.7 ); |
32 |
|
|
33 |
while (my ($host,$rtt,$ip) = $p->ack) { |
while (my ($host,$rtt,$ip) = $p->ack) { |
34 |
$status->{$ip}->{rtt} = $rtt * 1000; # ms |
$status->{$ip}->{rtt} = $rtt * 1000; # ms |
35 |
|
warn "# $host $rtt $ip\n"; |
36 |
|
client::conf( $ip => 'hostname', default => $host ) if $host ne $ip; |
37 |
} |
} |
38 |
|
|
39 |
warn dump($status); |
warn "# fping ",dump($status); |
40 |
|
|
41 |
return $status; |
return $status; |
42 |
|
|