#!/usr/bin/perl
$| = 1;
$remote = "$ENV{'REMOTE_ADDR'}";
print "HTTP/1.0 200 Document follows\n";
print "Content-Type: text/html\n\n";
print "traceroute $remote\n";
print "traceroute $remote
\n";
print "
<![CDATA[";
open (F, "/usr/sbin/traceroute $remote|");
#open (F, "/usr/local/sbin/ntraceroute -AOQ $remote|");
$i = 3;
while (<F>) {
print "$_";
if (/\*.*\*.*\*/ && --$i) {
print "]]>Cancelled.";
last;
}
}
close (F);
print "
";
print "\n"