Weiterleitung durch Auslesen der besucher-IP-Adresse

[Torwächter]

Hallo,

geht (recht einfach):

#!/usr/bin/perl

$ip = $ENV{'REMOTE_ADDR'};

print "Content-type: text/html\n\n";

if($ip eq "127.0.0.1")
{
print "Location: http://www.ok.de/\n\n;
}
else
{
print "Location: http://www.failed.de/\n\n;
}

um es mal so einfach wie möglich zu halten.

Gruß
Torwächter