LogHandler.pm

public text v1 · immutable

#282454

·published 2006-12-17 16:28 UTC

package mod_perl::LogHandler;


use Apache2::Const qw{ HTTP_OK OK HTTP_FORBIDDEN REDIRECT};
use Apache2::Connection();
use Apache2::RequestRec();
use Apache2::RequestUtil();
use Apache2::ServerUtil();
use Apache2::Access();
use Apache2::Log();
#use Apache2::

sub handler {
my $r=shift;
my $s=$r->server;
my $user=$r->user || "";


$r->log_error ("connecting with user : $user");

#unless ( $remote eq '81.80.101.9' ) 
#	{
#	$r->internal_redirect('/got_Cookie.pl');
#	}

return Apache2::Const::OK;
}
1;