This works for me I can even do both local and Sys::HostIP at once ! :)
p.s. its called hostip now
PERL: 5.8.7
HTTPD: SVN - 2.3.0-dev prefork
MP: SVN - 2.0.3-dev this is 2.0.2 + 2 unrelated changes
Sys::HostIP: 1.0
OS: FreeBSD 6.0-RELEASE
<Location /env>
SetHandler modperl
PerlResponseHandler TEST::ENV
</Location>
package TEST::ENV;
use strict;
use warnings FATAL => 'all';
use Carp;
use Sys::HostIP;
use Apache2::RequestRec ();
use Apache2::Const -compile => qw(OK);
sub handler {
my $r = shift;
$r->content_type('text/html');
local %ENV;
$r->print("IP: " . hostip);
return Apache2::Const::OK;
}
1;
GET http://localhost:8099/env
IP: 127.0.0.1
GET http://localhost:8099/env
IP: 127.0.0.1
------------------------------------------------------------------------
"Love is not the one you can picture yourself marrying,
but the one you can't picture the rest of your life without."
"It takes a minute to have a crush on someone, an hour to like someone,
and a day to love someone, but it takes a lifetime to forget someone..."
Philip M. Gollucci ([EMAIL PROTECTED]) 301.254.5198
Consultant / http://p6m7g8.net/Resume/resume.shtml
Senior Software Engineer - TicketMaster - http://ticketmaster.com
