in reply to Cookie Woes
use strict; use CGI qw(:all); use CGI::Cookie; # insert definition of $sessionID: my $sessionID = "hello world"; my ($domain, $name, $value, $expires) = ('65.1.136.248', 'SessionID', +$sessionID, '+1Y'); my $cookieheader = new CGI::Cookie(-name => $name, -value => $value, -expires => $expires) || die; # left out domain so it wd work on my web space print header(-cookie=>$cookieheader); my $badcookie = fetch CGI::Cookie('SessionID'); # print $badcookie as hashref, not scalar: print $badcookie->{'SessionID'};
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: Cookie Woes
by vbrtrmn (Pilgrim) on Oct 22, 2001 at 09:56 UTC |