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.
