I have following Location directive in my applications conf file <Location ~ ^/((download|ARULink|WebApp)/.*)?$> PerlInitHandler ARULink::setup_request SetHandler perl-script PerlResponseHandler ARULink::handler PerlOptions +ParseHeaders +GlobalRequest Options ExecCGI AuthName Metalink AuthType Basic PerlAuthenHandler ARULink::MetalinkAuth require valid-user ErrorDocument 401 /handle_auth_failure </Location>
And the ARULink::MetalinkAuth::handler is sub handler { my ($req) = @_; my $status; my $username; my $userid; my $email; # # Create a Session object. # my $req_params = $req->args; my $cgi = CGI->new($req_params); my $session = ARU::Session::get_cgi_session($cgi); $req->subprocess_env; .... } When my handler reaches line '(my $cgi = new CGI($params);)' the application is spinning ,seems like $req->args is returning null and application line number 354 of CGI which is $req->subprocess_env; Error from log file Warning: Deep recursion on subroutine "CGI::new" at /m/isd/pm/ARULink/MetalinkAuth.pm line 114. Line File Sub Called Arg WntA ---- ---- ---------- --- ---- 359 Debug.pm Debug::stack_trace Y N 114 MetalinkAuth.pm Debug::__ANON__ Y N 114 MetalinkAuth.pm CGI::new Y N 354 CGI.pm ARULink::MetalinkAuth::handler Y N .. Any idea how can we get the $req->args which contains request information in PerlAuthenHandler or PerlInitHandler --Shibi Ns--