Kanji
User
/ Moderator
Oct 14, 2000, 2:42 PM
Post #2 of 2
(389 views)
|
No warranty. No support. :-)
<BLOCKQUOTE><font size="1" face="Arial,Helvetica,sans serif">code:</font><HR>
#!/usr/bin/perl -wT
use strict;
my $ip = $ENV{'REMOTE_HOST'} || $ENV{'REMOTE_ADDR'} || "";
while ( <DATA> ) {
chomp;
my ( $address, $url ) = split;
if ( $address && $url && $address eq $ip ) {
print "Location: $url\n\n";
exit;
}
}
print "Content-Type: text/plain\n\nOops!";
__END__
IP/HOST REDIRECT TO...
127.0.0.1 http://www.perlguru.com/</pre><HR></BLOCKQUOTE>
[This message has been edited by Kanji (edited 10-14-2000).]
|
MAIN
SEARCH
WHO'S 
LOG 