in reply to Re: Re: Cookie question ....
in thread Cookie question ....

Nothing there seems to be the cause of your problem although you would do well to clean up your code just a bit. You have a bareword "fatalsToBrowser" on the 6th line. I suggest something like:

#!/usr/bin/perl -w

use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);

my $yySetCookies1 = cookie(
    -name    =>   "test",
    -value   =>   "test",
    -path    =>   "/",
    -expires =>   ""
    );

print header(
    -status=>"200 OK",
    -cookie=> $yySetCookies1
    );

[download]

-caedes

Replies are listed 'Best First'.
Re: Re: Re: Re: Cookie question ....
by Anonymous Monk on Feb 27, 2003 at 09:19 UTC
    Caedes,
    Thanks for your reply. Yeah I tried all that and for some reason it still didn't work. In the end, I figure it and got it working with this (messy, but I think I can make a function out of it now): 
    print "HTTP/1.0 200 OK\nCache-Control: no-cache, must-revalidate\nPrag
+ma: no-cache\nSet-Cookie: test=test; path=/; expires=Wed, 29 Mar 2005
+ 13:49:23 -0500\nContent-Encoding: \nContent-Type: text/html; charset
+=\n\n";

    [download]

    Thanks for your help. SP
[reply]
[d/l]

In Section Seekers of Perl Wisdom