#!/usr/bin/perl -w use CGI; my $query = new CGI; $value = $query->param('trace'); #$value =~ s (/;#!"'`|)/ /g; $value =~ s /;/ /g; $value =~ s /#/ /g; $value =~ s /!/ /g; $value =~ s /"/ /g; $value =~ s /'/ /g; $value =~ s /`/ /g; #$value =~ s /|/ /g; open (TRACE, "traceroute $value |"); @traceroute = ; close (TRACE); print "Content-Type: text/html\n\n"; print "\n\n\nRavenGate TraceRoute Results\n\n\n\n"; print "Hello There- I am writing this from scratch so please be patient. Thanks!\n\n"; foreach $item (@traceroute) { print "
$item\n\n"; } print "\n\n"; exit (0);