Tracerouting

jvdboom · Aug 26, 2002

To view the route from a webserver(for windows) to a site I made this script.I uses the dos command tracert, however it's a very slow(but that's normal for tracert).but the script only shows the information at the end of the the tracert session (if i execute the script without a webserver I see the information when it comes avaible.
Is it possible to write to the browser when the program is still running?
#!c:\perl\bin\perl.exe

$test = $ENV{QUERY_STRING};

if ($test =~ /^url=(h?t?t?p?:?\/?\/?\w*\.?\w*\.?\w*\.\w*\/?~?\w*)/ ) {

open(TRACE, "tracert $1 |&quot

;
print "Content-type: text/html\n\n";
while(<TRACE>) {print $_ . "<br>";}
close(TRACE);
} else {
print "Content-type: text/html\n\n<h1>Error!!!</h1>" }

Rieekan · Sep 1, 2002

Add to your program the following line:

Code:

$| = 1; #turn flush on

This line should be at the very beginning of your program and will output the information from your script as it occurs instead of waiting for the completion of the script.

justice41 · Sep 3, 2002

I got this to work in IE6 (but not opera) running off an Apache server. I don't think the magic header is very portable.

Code:

#!/usr/bin/perl

$| = 1;

print &quot;Content-type: multipart/mixed\n\n&quot;;

my $url = $ENV{QUERY_STRING};

print &quot;<html><body>\n&quot;;

# I have traceroute instead of tracert on my box
open(TRACE, &quot;traceroute $url 2>&1 |&quot;);
print $_ . &quot;<br>&quot; while <TRACE>;
close(TRACE);

print &quot;</body></html>\n&quot;;

exit;

jaa

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Tracerouting

jvdboom

Programmer

Rieekan

Programmer

justice41

Programmer

Part and Inventory Search

Sponsor