it works just fine in my app, and 'just fine' maybe all that i need. do you have a better solution, or are you just pointing out the error?
>-----Original Message----- >From: Stas Bekman [mailto:[EMAIL PROTECTED] >Sent: Monday, June 02, 2003 10:08 PM >To: [EMAIL PROTECTED] >Cc: Perrin Harkins; modperl >Subject: Re: Apache::Cookie > > >cap wrote: >> Well, here's what I have to do to get direct access to values from the >> original cookie hash: >> >> my $cookies = Apache::Cookie->fetch; >> my %hash = defined $cookies->{'session'} ? $cookies->{'session'}->value : >> undef; >> >> Strange. Thanks for the lead. > >That's a bogus code. Obviously you are running without warnings >mode on. Add: > >use warnings; > >and you will see why it is bogus. Perhaps your cookie was always >valid so you >didn't notice it. Howerer: > >perl -lwe '%h = undef' >Name "main::h" used only once: possible typo at -e line 1. >Odd number of elements in hash assignment at -e line 1. >Use of uninitialized value in list assignment at -e line 1. > > > > >>>-----Original Message----- >>>From: Perrin Harkins [mailto:[EMAIL PROTECTED] >>>Sent: Monday, June 02, 2003 2:41 PM >>>To: [EMAIL PROTECTED] >>>Cc: modperl >>>Subject: Re: Apache::Cookie >>> >>> >>>On Mon, 2003-06-02 at 09:05, cap wrote: >>> >>>>i have an application that uses CGI and sets the cookie values >>> >>>as a hashref. >>> >>>>im then attempting to retreive the values with Apache::Cookie with: >>>> >>>>$cookies = Apache::Cookie->fetch; >>>> >>>>$ccokies is a hashref so i should be able to get the individual >>> >>>values with: >>> >>>>$cookies->{uid}; >>>> >>>>right? however, this doesn't appear to work. >>> >>>I see the problem. There is mistake in the Apache::Cookie >>>documentation, but the correct way to do this is shown in the mod_perl >>>guide: >>>http://perl.apache.org/docs/1.0/guide/porting.html#Converting_to_us >>>e_Apache_Perl_Modules >>> >>>Change your last line to this: >>> >>>my $uid = defined $cookies->{'uid'} ? $cookies->{'uid'}->value() : >>>undef; >>> >>>- Perrin >>> >> > > >-- > > >__________________________________________________________________ >Stas Bekman JAm_pH ------> Just Another mod_perl Hacker >http://stason.org/ mod_perl Guide ---> http://perl.apache.org >mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com >http://modperlbook.org http://apache.org http://ticketmaster.com > >
