> -----Original Message-----
> From: Jerry Preston [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, July 11, 2001 7:29 AM
> To: cgi
> Subject: cookies
>
>
> Hi!
>
> I guess I am missing the boat. I have read CGI::Cookie and
> played with the code, but I would think that I should be able to
> read the netscape cookies
> file in by NT system. My script is running on a unix server. Is
> this possible. I have tried to set a cookie and the read it, no luck.
>
> print "env $ENV{'HTTP_COOKIE'} <br>";
>
>
> $c = new CGI::Cookie( -name => 'Testing',
> -value => [ "jwp", '[EMAIL PROTECTED]' ],
> -expires => '+3M',
> -domain => 'xxxx.xxx',
> -path => '/'
> -secure => 0
> );
>
> print "Set-Cookie: $c\n<br>";
> print $query->header(-cookie=>$c);
> print "Set-Cookie: ",$c->as_string,"\n<br>";
>
> #Recovering Previous Cookies
>
> @defaults=$query->cookie('dm5apps.de.sc.ti.com');#'www.kitchenetc.com');
The above line should be:
@defaults = $query->cookie('Testing'); # always fetch a cookie with the
name you gave it.
>
> print "<br>defaults *@defaults*<br>";
>
> %cookies = fetch CGI::Cookie;
> foreach (keys %cookies) {
> print "<br>$_ - ($cookies{$_})<br>";
The above line should be:
print "<br>$_ - " . $cookie{$_}->value . "<br>";
fetch CGI::Cookie returns a hash of CGI::Cookie objects with the key as the
name of the cookie.
> }
>
> Thanks for YOUR help,
>
> Jerry
>
