#!/usr/local/bin/perl $|=1; BEGIN { require "../CGI.pm"; import Module CGI; } $raw=""; $query = new CGI; $host = $query->param('host'); if ($host) { $ipAddr=$host; } else { if ($ENV{"HTTP_X_FORWARDED_FOR"}) { @forward=split(",",$ENV{"HTTP_X_FORWARDED_FOR"}); $ipAddr=$forward[0]; } else { $ipAddr=$ENV{"REMOTE_ADDR"}; } } print "Content-type: text/html\n\n" ; print "
";
print <
FR
open TR ,"ping -s $ipAddr 56 10 |";
print "Ping From www.im.ncnu.edu.tw to $ipAddr
) {
if (/(\d*)\spackets\stransmitted,\s(\d*)\spackets\sreceived,\s(\d*%)\spacket\sloss/)
{
print <
PL
}
else {
if (/round-trip\s\(ms\)\s*min\/avg\/max\s=\s(\d*)\/(\d*)\/(\d*)\sms/) {
print <Packet Loss $3 # Packetes Sent $1 # Packetes Received $2
RRT
}
else {
$raw=$raw . $_ ."Round Trip Time Minimum Average Maximum $1 ms $2 ms $3 ms
" if (!(/^---/ || ($_ == "")));
}
}
}
close TR;
$raw="Unkown Host: $ipAddr" if ($raw == "");
print <
Detail Information $raw