#!/usr/local/bin/perl # # traceroute: a CGI script that provides a Web interface to traceroute # # Copyright 1998 Gerald Oskoboiny # # This source code is available under the license at: # http://www.w3.org/Consortium/Legal/copyright-software # # $Id: traceroute,v 1.3 2001-12-21 23:39:27 gerald Exp $ # print <<"EOF"; Content-Type: text/html service discontinued

Sorry, the traceroute service that used to be here has been turned off due to abuse. There are a number of other traceroute gateways online, please use one of those instead. (if you are specifically interested in the route from MIT, see TraceRoute from MIT.)

Gerald Oskoboiny
\$Date: 2001-12-21 23:39:27 $ \
EOF exit; # turned off due to abuse; the real script follows: $| = 1; # accept either traceroute/foo or traceroute?foo; default to REMOTE_ADDR # if nothing else is specified $addr = $ENV{PATH_INFO} || $ENV{QUERY_STRING} || $ENV{REMOTE_ADDR}; $addr =~ tr/+/ /; $addr =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $addr =~ s,^addr=,,; $addr =~ s/[^A-Za-z0-9\.-]//g; # for security print <<"EOF"; Content-Type: text/html Traceroute from validator.w3.org to $addr

Here is the result of a traceroute from validator.w3.org to $addr: 

EOF

open( TRACEROUTE, "/usr/sbin/traceroute $addr | " ) ||
    die "couldn't open pipe to traceroute! $!";

while () {
    chomp;
    s/\&/\&/g;
    s/\





Gerald Oskoboiny

\$Date: 2001-12-21 23:39:27 $ \



EOF

exit;