place order from quotation view, RT#20688
[freeside.git] / httemplate / misc / xmlhttp-ping.html
1 <% encode_json($return) %>\
2 <%init>
3
4 my $conf = new FS::Conf;
5
6 my $sub = $cgi->param('sub');
7
8 die "$sub not supported" unless $sub eq 'ping';
9
10 my $ip = $cgi->param('arg');
11
12 my $ping = new Net::Ping('external', 5);
13 $ping->hires(1);
14 #my $a=time; warn "pinging\n";
15 my ($ret, $duration, $ip2) = $ping->ping($ip);
16 #warn "done pinging (". int(time-$a). "s)\n";
17
18 my $return = [ $ret, $duration ];
19
20 </%init>