#!/usr/local/bin/perl $|=1; BEGIN { require "../CGI.pm"; import Module CGI; } $query = new CGI; $host = $query->param('host'); if ($host) { @tempHost=split(" ",$host); $ipAddr=$tempHost[0]; } 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 "Traceroute $ipAddr"; print "

Traceroute

"; print < IP Address or Host Name:
FR open TR ,"/usr/sbin/traceroute $ipAddr |"; print "

"; print ""; while () { if (/([\s,\d]\d*)\s+([^*]*)\s\((.*)\)\s*(.*)$/) { print "\n"; } else { if (/([\s|\d]\d*)\s+\*\s(.*)\s\((.*)\)\s*(.*)$/) { print "\n"; } else { if (/([\s|\d]\d*)\s+\*\s\*\s(.*)\s\((.*)\)\s*(.*)$/) { print "\n"; } else { if (/([\s|\d]\d*)\s+\*\s\*\s\*/) { print "\n"; } else { if (/unknown host/) { print "

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

Host NameIP AddressRound Trip Time
$1$2$3$4
$1$2$3* $4
$1$2$3* * $4
$1* * *

"; print "" } else { print ""; } } } } } } print "
Unknown Host: $ipAddr
$_

"; close TR;