From ef480bf237b88e667ff525a1dfb881cb8bd7cf0a Mon Sep 17 00:00:00 2001
From: Kristian Lyngstol <kly@kly@.no>
Date: Tue, 22 Mar 2016 13:04:23 +0100
Subject: NMS: Ping increase delay, better search

---
 clients/ping.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'clients/ping.pl')

diff --git a/clients/ping.pl b/clients/ping.pl
index 27aa878..174342a 100755
--- a/clients/ping.pl
+++ b/clients/ping.pl
@@ -21,7 +21,7 @@ my $lq = $dbh->prepare("SELECT linknet,addr1,addr2 FROM linknets");
 while (1) {
 	# ping loopbacks
 	my $ping = Net::Oping->new;
-	$ping->timeout(0.2);
+	$ping->timeout(0.4);
 
 	$q->execute;
 	my %ip_to_switch = ();
@@ -73,7 +73,7 @@ while (1) {
 	$dbh->commit;
 	# ping linknets
 	$ping = Net::Oping->new;
-	$ping->timeout(0.2);
+	$ping->timeout(0.4);
 
 	$lq->execute;
 	my @linknets = ();
-- 
cgit v1.2.3


From 10271b0e95a424e191926a945fe785e9cce046c1 Mon Sep 17 00:00:00 2001
From: Kristian Lyngstol <kly@kly@.no>
Date: Tue, 22 Mar 2016 16:05:04 +0100
Subject: NMS: Update schema to FAP

---
 clients/ping.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'clients/ping.pl')

diff --git a/clients/ping.pl b/clients/ping.pl
index 174342a..3f4139e 100755
--- a/clients/ping.pl
+++ b/clients/ping.pl
@@ -15,7 +15,7 @@ my $dbh = nms::db_connect();
 $dbh->{AutoCommit} = 0;
 $dbh->{RaiseError} = 1;
 
-my $q = $dbh->prepare("SELECT switch,host(ip) as ip,host(secondary_ip) as secondary_ip FROM switches WHERE ip is not null ORDER BY random()");
+my $q = $dbh->prepare("SELECT switch,host(mgmt_v4_addr) as ip,host(mgmt_v6_addr) as secondary_ip FROM switches WHERE mgmt_v4_addr is not null ORDER BY random()");
 my $lq = $dbh->prepare("SELECT linknet,addr1,addr2 FROM linknets");
 
 while (1) {
-- 
cgit v1.2.3


From 8e2fb5f3c7fbfbb13224f0cb8a610837bfef364a Mon Sep 17 00:00:00 2001
From: Kristian Lyngstol <kly@kly@.no>
Date: Tue, 22 Mar 2016 19:54:00 +0100
Subject: Update nms-public code

---
 clients/ping.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'clients/ping.pl')

diff --git a/clients/ping.pl b/clients/ping.pl
index 3f4139e..1ad7b95 100755
--- a/clients/ping.pl
+++ b/clients/ping.pl
@@ -21,7 +21,7 @@ my $lq = $dbh->prepare("SELECT linknet,addr1,addr2 FROM linknets");
 while (1) {
 	# ping loopbacks
 	my $ping = Net::Oping->new;
-	$ping->timeout(0.4);
+	$ping->timeout(0.3);
 
 	$q->execute;
 	my %ip_to_switch = ();
@@ -73,7 +73,7 @@ while (1) {
 	$dbh->commit;
 	# ping linknets
 	$ping = Net::Oping->new;
-	$ping->timeout(0.4);
+	$ping->timeout(0.3);
 
 	$lq->execute;
 	my @linknets = ();
-- 
cgit v1.2.3


From 25409cdc01450279ce56b78ce962956a9990a175 Mon Sep 17 00:00:00 2001
From: Kristian Lyngstol <kly@kly@.no>
Date: Fri, 25 Mar 2016 23:28:12 +0100
Subject: Tweak linknet pings

---
 clients/ping.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'clients/ping.pl')

diff --git a/clients/ping.pl b/clients/ping.pl
index 1ad7b95..d945917 100755
--- a/clients/ping.pl
+++ b/clients/ping.pl
@@ -16,7 +16,7 @@ $dbh->{AutoCommit} = 0;
 $dbh->{RaiseError} = 1;
 
 my $q = $dbh->prepare("SELECT switch,host(mgmt_v4_addr) as ip,host(mgmt_v6_addr) as secondary_ip FROM switches WHERE mgmt_v4_addr is not null ORDER BY random()");
-my $lq = $dbh->prepare("SELECT linknet,addr1,addr2 FROM linknets");
+my $lq = $dbh->prepare("SELECT linknet,addr1,addr2 FROM linknets WHERE addr1 is not null and addr2 is not null");
 
 while (1) {
 	# ping loopbacks
-- 
cgit v1.2.3