fairhousing — Mon, 08 Nov 1999 19:07:00 +0000

whow! wish all my post got this quick of a helpful response.

thanks to the both of u

----------
My Site Got Hacked, Check It Out!
http://www.birminghamnet.com

Federico Carnales — Mon, 08 Nov 1999 04:31:00 +0000

My code was shorter

BTW... I just tested and it works.

----------
Reviews of the best resources for webmasters in your e-mail every week!
Subscribe for [red]FREE[/red] by going to http://www.web-reviews.com/

Stefen Enns — Mon, 08 Nov 1999 04:14:00 +0000

Here's some simple code that should do what you want.

-------------------
#!/usr/bin/perl

$ip=$ENV{'REMOTE_ADDR'};
@numbers=split(/\./,$ip);

$newip="@numbers[0].@numbers[1].@numbers[2]";

print "Content-Type: text/plain\n\n";
print "Your real IP address: $ip\n";
print "Here's how it looks now: $newip\n";
-------------------

I'm sure there are better ways to do it, but this is the simplest way.

Hope this helps!

Federico Carnales — Mon, 08 Nov 1999 04:06:00 +0000

Code:

$IP = $ENV{'REMOTE_ADDR'};
$IP =~ s/(.+?)\.(.+?)\.(.+?)\.(.+?)/$1.$2.$3/;

Haven't tested it but should work just fine

----------
Reviews of the best resources for webmasters in your e-mail every week!
Subscribe for [red]FREE[/red] by going to http://www.web-reviews.com/