#!/usr/bin/perl

use CGI;
$|=1;

$q = new CGI;

print $q->header();
print $q->start_html(-title=>'Penguin TraceRoute v1.01',
		-author=>'asbjorn@linux-directory.com',
		-BGCOLOR=>'#806dfb');

$host = $q->param('host');
$host =~ s/[;<>\*\|'&\$!?#\(\)\[\]\{\}:'"\\]//g; ### Added by Paul Jenkins, Mar 21 2002

print $q->h3("<font color=#ffffe8>Taceroute to $host</font>");
print "<font color=#ffffe8><b>";
open(TR,"/usr/sbin/traceroute $host 2>&1|") || die "Error";
while(<TR>) {
  if ( $_ !~ /interface/i ) {
    print;
    print "<br>";
  }
}
print "</font></b>";
print "<p><a href=/trace.shtml><font color=#ffffeb><b>Back</b></font></a>";