On Jun 29, 2005, at 12:10 PM, Alex Brelsfoard wrote:
> OK, so I've filed down my problem. I see where all my confusion has
> been
> coming.
> Of course I'm still left with one major problem.
> First, here's the situation:
>
> When I use the following code I can write cookies everywhere but in
> Safari:
> ----------------------------------------------
> my $cookie = "$COOKIENAME=$cookieContent; " .
> "domain=www.wpi.edu; " .
> "expires=+1h";
> print "Set-Cookie: $cookie\n";
> ----------------------------------------------
>
> After that code I can retrieve the cookie by the following method:
> ----------------------------------------------
> my %cookies = fetch CGI::Cookie;
> my $userInfo = $cookies{"WPI_REGI2500"}->value;
> ----------------------------------------------
>
> Interesting fact, I cannot use this same code to read any other random
> cookie I
> see in my browser (testing with Firefox).
>
> OK, Now, my fixed code to be able to write cookies in any browser is
> as follows:
> ----------------------------------------------
> my $cookie = $q->cookie( -name => $COOKIENAME,
> -value => $cookieContent,
> -domain => "www.wpi.edu",
> -expires => "+1h",
> -path => "/cgi-bin/Regi",
> -secure => 1 );
> print "Set-Cookie: $cookie\n";
> ----------------------------------------------
>
> However, once I write the cookie this way, my cookie retrieval
> function no
> longer works. I have verified that the cookie IS there. And it looks
> exactly
> the same as with the other code. But I simply can't read the cookie.
> I have tried reading the cookie in several different ways, including
> reading
> from $ENV{"HTTP_COOKIE"}, and doing both "fetch CGI::Cookie" and "parse
> CGI::Cookie".
> I MUST be reading in these cookies incorrectly in some way.
> Can anyone help me, or point me in any helpful direction (other than
> the pub)?
>
If you are using the OO interface to CGI.pm, the docs (`perldoc CGI`)
say that you should do the following:
Create a cookie using:
my $cookie = $q->cookie(-name=>'name', -value=>'value' ...);
print $q->header(-cookie=>$cookie);
[read the docs for the specifics on this; you may need to pass other
values to the cookie call, and there are ways to set multiple cookies]
To retrieve the cookie, use the cookie() method _without_ setting a
value:
my $val = $q->cookie('name');
Does this work?
Ricky
_______________________________________________
Boston-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/boston-pm
