Sumit, Fetching the cookie has nothing to do with the Perl handlers. They are setting the cookie. You could check this with a small program such as:
#!/point/to/your/perl -T include CGI; use vars qw{$query}; # use vars qw{$cookie}; $query = new CGI; $cookie = $query->cookie("YOUR COOKIE NAME") || ""; print $query->header(); print "cookie was:$cookie"; print $query->end_html(); Unfortunately, I'm not familiar with Java JSP, but do a search on 'java cookies' to find out how to read cookies from Java. Rafael On Tue, 2007-02-20 at 11:56 -0500, Sumit Shah wrote: > Hello, > > I did a small test to see if I can fetch the cookies without using > PerlAccessHandler and PerlAuthenHandler. I was able to fetch the cookies > using the following directive: > > > <FilesMatch "\.(html)$"> > * SetHandler perl-script > PerlHandler CAS::SSO > *</FilesMatch> > > and NOT if I use the following: > > <FilesMatch "\.(jsp)$">* > PerlAccessHandler CAS::SSO > * ErrorDocument 403 > http://cas.gce2000.com/SecurityServices/JSP/SSOReLogin.jsp > </FilesMatch> > > or this: > > <FilesMatch "\.(jsp|class)$"> > * AuthName realm > AuthType Basic > PerlAuthenHandler CAS::SSO > Require valid-user > *</FilesMatch> > > I would appreciate if someone could tell me the reason for this. > > Thanks > Sumit > > Sumit Shah wrote: > > Hello, > > > > I have modified my code to handle such scenarios. But the handler > > still fails to fetch the cookies. The browser does pass the cookies. I > > can see them in IEHTTPHeaders. I would appreciate if someone could let > > me know why this could happen? > > > > Thanks > > Sumit > > > > Robert Landrum wrote: > >> Sumit Shah wrote: > >>> Hello, > >>> > >>> I have a Mod Perl authentication handler and it needs to retrieve > >>> the session id from a cookie. It is unable to retrieve any cookies > >>> and I get the following error. It does not even print any of the > >>> cookies. I would appreciate any help with this. > >>> > >>> > >>> my $token = $cookies{'SessionID'}->value; > >>> chomp($token); > >>> $log->error("3. Session ID ==> $token"); > >>> > >> > >> You're trying to call a method against a value that may or may not > >> exist. That's a big no-no. > >> > >> if(defined $cookies{'SessionID'}) { > >> $token = $cookies{'SessionID'}->value; > >> } > >> else { > >> $log->error("No SessionID cookie"); > >> } > >> > >> Rob > > > > > Analizado por ThMailServer para Linux. > > !DSPAM:45db27a5188765526914969! > Analizado por ThMailServer para Linux.