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;