diff options
author | Joachim Tingvold <joachim@tingvold.com> | 2015-03-31 05:09:33 +0200 |
---|---|---|
committer | Joachim Tingvold <joachim@tingvold.com> | 2015-03-31 05:09:33 +0200 |
commit | 381e194162092e6ca6d1da2248a41af8b4f7208d (patch) | |
tree | 224c1f7003a1ff3f9a5f4d844c1bea3c86f88958 /clients/ping.pl | |
parent | 191df1949e2e05eb20b49d5cb31afc7a1f70da91 (diff) | |
parent | e3d7c5cc86fedb458d9b091ca12245c01e7f285d (diff) |
Merge branch 'master' of github.com:tech-server/tgmanage
Diffstat (limited to 'clients/ping.pl')
-rwxr-xr-x | clients/ping.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/clients/ping.pl b/clients/ping.pl index b41febd..3bbdd8a 100755 --- a/clients/ping.pl +++ b/clients/ping.pl @@ -36,6 +36,7 @@ while (1) { $ping->host_add($secondary_ip); $secondary_ip_to_switch{$secondary_ip} = $switch; } + print "ip: $ip\n"; } my $result = $ping->ping(); die $ping->get_error if (!defined($result)); @@ -61,7 +62,7 @@ while (1) { $dbh->pg_putcopyend(); $dbh->commit; - + if (0) { # ping linknets $ping = Net::Oping->new; $ping->timeout(0.2); @@ -86,6 +87,7 @@ while (1) { $dbh->pg_putcopyend(); $dbh->commit; + } sleep 1; } |