cookie woes

wolverina has asked for the wisdom of the Perl Monks concerning the following question:

i'm doing my first cookie script.. but i'm having trouble.

#!/usr/local/bin/perl
use CGI;
$q = new CGI;

$cookie_out = $q->cookie(-name=>"cookieinfo", 
       -value=>$random,-expires=>'+24h');
print $q->header(-cookie=>$cookie_out);
[download]

That prints cookie to hard drive. Now using a different script, this should read it back in:

#!/usr/local/bin/perl
use CGI;
$q = new CGI;

print "Content-type: text/html\n\n";
$cookie_in = $q->cookie("cookieinfo"); 
print $cookie_in;
[download]

Why is $cookie_in empty, and nothing being printed to the screen? -Lisa

Comment on cookie woes Select or Download Code

Replies are listed 'Best First'.
Re: cookie woes by mikeirw (Pilgrim) on Nov 20, 2002 at 17:20 UTC
Does `$random` contain a value? When you read a cookie in, it only returns its `-value`.	[reply] [d/l] [select]
Re: Re: cookie woes by wolverina (Beadle) on Nov 20, 2002 at 17:47 UTC
yes, $random contains a value. I want to make sure that the script that reads in the cookie isn't missing a line of code. -Lisa	[reply]
Re: Re: Re: cookie woes by mikeirw (Pilgrim) on Nov 20, 2002 at 18:03 UTC
Are you executing the script within the same domain that the cookie is set for? In other words, you cannot read a cookie from a different domain.	[reply]
Re: cookie woes by dingus (Friar) on Nov 20, 2002 at 18:06 UTC
You may want to make the browser verify that it has the cookie you expect for testing. Do this by outputting somewhere on the page(s) `print "<script>alert(document.cookie)</script>` [download] Ths will make the browser open an alert window with the contents of the cookie string (i.e. all the cookies) for the page. This should include your cookie info variable. The most likely error - assuming that the first page has the cookie and the second doesn't is that ou have somehow changed domain. Dingus `Enter any 47-digit prime number to continue.`	[reply] [d/l]


Think about Loose Coupling
	PerlMonks