From 0a98fb93cb3d18318c9ec14cdbfa753a11061b1b Mon Sep 17 00:00:00 2001
From: Victor Seva <vseva@sipwise.com>
Date: Tue, 5 Nov 2013 16:14:18 +0100
Subject: [PATCH] MT#4823 Add get_default_pingnodes script

---
 lib/get_default_pingnodes | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 lib/get_default_pingnodes

diff --git a/lib/get_default_pingnodes b/lib/get_default_pingnodes
new file mode 100644
index 00000000..f981f176
--- /dev/null
+++ b/lib/get_default_pingnodes
@@ -0,0 +1,11 @@
+[%
+  # Returns a list of IPs to ping.
+  #
+  # @return out		list of pingnodes.
+-%]
+[% PERL -%]
+my $gateway = (split(" ", `ip route | grep default`))[2];
+my @nodes = (split(" ", `grep nameserver /etc/resolv.conf | cut -f2 -d' '|xargs`));
+push(@nodes, $gateway);
+$stash->set(out => \@nodes);
+[% END -%]