#!/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 "Ping $ipAddr"; print "

Ping Facility

"; print < Please Input Host IP Address or Name

FR open TR ,"ping -s $ipAddr 56 10 |"; print "

Ping From www.im.ncnu.edu.tw to $ipAddr

\n"; while () { if (/(\d*)\spackets\stransmitted,\s(\d*)\spackets\sreceived,\s(\d*%)\spacket\sloss/) { print <
Packet Loss
$3# Packetes Sent$1
# Packetes Received$2
PL } else { if (/round-trip\s\(ms\)\s*min\/avg\/max\s=\s(\d*)\/(\d*)\/(\d*)\sms/) { print <
Round Trip Time
MinimumAverageMaximum
$1 ms$2 ms$3 ms
RRT } else { $raw=$raw . $_ ."
" if (!(/^---/ || ($_ == ""))); } } } close TR; $raw="Unkown Host: $ipAddr" if ($raw == ""); print <
Detail Information
$raw
RAW