From 9ecb64360568b205334ae23e1051249cb56491b6 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 14 Sep 2009 23:52:01 +0000
Subject: ping tool, RT#5845

---
 httemplate/misc/xmlhttp-ping.html | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 httemplate/misc/xmlhttp-ping.html

(limited to 'httemplate/misc/xmlhttp-ping.html')

diff --git a/httemplate/misc/xmlhttp-ping.html b/httemplate/misc/xmlhttp-ping.html
new file mode 100644
index 000000000..e99303207
--- /dev/null
+++ b/httemplate/misc/xmlhttp-ping.html
@@ -0,0 +1,20 @@
+<% objToJson($return) %>
+<%init>
+
+my $conf = new FS::Conf;
+
+my $sub = $cgi->param('sub');
+
+die "$sub not supported" unless $sub eq 'ping';
+
+my $ip = $cgi->param('arg');
+
+my $ping = new Net::Ping('external', 5);
+$ping->hires(1);
+#my $a=time; warn "pinging\n";
+my ($ret, $duration, $ip2) = $ping->ping($ip);
+#warn "done pinging (". int(time-$a). "s)\n";
+
+my $return = [ $ret, $duration ];
+
+</%init>
-- 
cgit v1.2.1