#!/usr/bin/perl -W use strict; select STDERR; $| = 1; select STDIN; $| = 1; select STDOUT; $| = 1; my $rip=$ENV{'REMOTE_ADDR'} || ' '; my $rhost=$ENV{'REMOTE_HOST'} || ' '; if ($rip =~ /^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/) { $rip=$1; } else { die 'No valid remote IP'; } my @now=localtime(time); $now[4]++; $now[5]+=1900; my $timestamp=sprintf "%04d-%02d-%02dT%02d:%02d:%02d+01:00", $now[5],$now[4],$now[3],$now[2],$now[1],$now[0]; print < Traceroute from news.unit0.net to you

Traceroute from news.unit0.net to $rhost [$rip]

EOHTLM if ($rip) { open(TR, '-|', "/usr/sbin/traceroute -m 25 -s 195.71.90.67 $rip 2>&1") or die ("Error executing traceroute: $!"); while() { chomp; $_ =~ s/\ /\ \;/g; print "$_
\n"; } close TR; } else { print "Nothing to trace...
\n"; } print < EOHTLM