Plz Help Me Config Tracert ! misconfiguration

NuHoaXuLa · September 20, 2004

I download code at : http://forums.xisto.com/no_longer_exists/ and now i only config it !

I did config :

#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);

# TRACEROUTE GATEWAY for Windows NT
my $version = 'v1.2';
my $date = '14-Oct-2001';
my $cr = '© Gabor Szabo';
my $crmail = 'gabor@tracert.com';
# Free software - GNU GPL - AS IS, NO WARRANTY...
# please keep author's (my) reference...
#
# Name of the organization
my $orgname = 'quangthinh.trap17.com';
# Home page of the organization
my $orghome = 'http://forums.xisto.com/no_longer_exists/&%2339;;
# The location of the command:
my $command = '/usr/sbin/traceroute'; # this is usually good for Linux and UNIX

$|=1;
$ENV{PATH}="";

print <<HTML;
Content-type: text/html

<html><head><title>Traceroute Gateway</title></head><body bgcolor=white>
<h1>Traceroute Gateway</h1>
at <a href=$orghome> $orgname</a><p>
<font size=-1>Version: <b>$version</b> Date: <b>$date</b>
Copyright: <b><a href=mailto:$crmail>$cr</a></b></font>
@ <a href=http://forums.xisto.com/no_longer_exists/ Traceroute Gateway</a><br>
<a href=http://www3.traceroute-gateways.com/ Traceroute Gateways</a><p>

HTML

my $qs = $ENV{QUERY_STRING};
if (@ARGV) { $qs = $ARGV[0]; } # for command line testing only

if ((defined $qs) and ($qs ne "" )) {
if ($qs =~ /^t=(.*)/) {
$qs=$1;
}
if (($qs =~ /^(\d+\.\d+\.\d+\.\d+)$/) or
($qs =~ /^([a-zA-Z0-9][a-zA-Z0-9\.\-_]*)$/)) {
$qs = $1; # unTaint

print "<hr>";
print "<PRE>";
system "$command $qs";
print "</PRE>";
print "<hr>";
}
}

print <<HTML;
Please type in the IP address or the full name of the machine you want to Traceroute to
<font size=-2 color=white>
<form>
<input name=t>
</form>

HTML

and file at : http://forums.xisto.com/no_longer_exists/

But it don't work !

Sign In

Plz Help Me Config Tracert ! misconfiguration

Recommended Posts

NuHoaXuLa 0

Share this post

Link to post

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Browse

Activity

Important Information