[Thu Mar  4 16:55:00 2004] [error] auth_type TestCookie::AuthCookieHandler
[Thu Mar  4 16:55:00 2004] [error] auth_name TestCookie
[Thu Mar  4 16:55:00 2004] [error] ses_key_cookie
[Thu Mar  4 16:55:00 2004] [error] uri /protected/
Can't locate object method "request" via package "Apache" at /home/httpd/htdocs/login.cgi line 5.

##</code><code>##


<Perl>
    use lib qw# /home/httpd/htdocs/libs #;
</Perl>
                                                                                                                                              
PerlModule Apache::AuthCookie
PerlModule TestCookie::AuthCookieHandler
PerlSetVar TestCookiePath /
PerlSetVar TestCookieLoginScript /login.cgi
PerlSetVar AuthCookieDebug 3
                                                                                                                                              
# These documents require user to be logged in.
<Location /protected>
 AuthType TestCookie::AuthCookieHandler
 AuthName TestCookie
 PerlAuthenHandler TestCookie::AuthCookieHandler->authenticate
 PerlAuthzHandler TestCookie::AuthCookieHandler->authorize
 Require user programmer
</Location>
                                                                                                                                              
                                                                                                                                              
#this is the action of the login.pl script above.
<Files LOGIN>
 AuthType TestCookie::AuthCookieHandler
 AuthName TestCookie
 SetHandler perl-script
 PerlHandler TestCookie::AuthCookieHandler->login
</Files>
<Location /perl-status>
 SetHandler perl-script
 PerlHandler Apache::Status
</Location>

##</code><code>##

package TestCookie::AuthCookieHandler;
use strict;
use Apache;
use Apache::Constants qw(:common);
use Apache::AuthCookie;
use vars qw($VERSION @ISA);
                                                                                                                                              
$VERSION = substr(q$Revision: 1.2 $, 10);
@ISA = qw(Apache::AuthCookie);

##</code><code>##

Server Version: Apache/1.3.27 (Unix) Resin/2.1.11 PHP/4.3.1 mod_perl/1.27