problem with perl/cgi and cookie

shifter · 03-01-2010, 07:30 AM

I cannot set cookie in my page.
My procedure is:

Quote:

#!/usr/bin/perl

use CGI;
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use Template;

my $cgi = CGI->new();

print $cgi->header(-type => 'text/html');

my $cookie = $cgi->cookie(-name => 'sessionID', -value => 'user@networkstore', -expires => '+1h');
my $mycookie = $cgi->cookie('sessionID');

print $cgi->header(-cookie => $mycookie);

but I am not able to set $mycookie variable.

Where is the problem?

Thanks in advance for answers.
Savio

smoker · 03-01-2010, 09:36 AM

How many cookies are you setting ?
$mycookie isn't defined correctly.

http://devdaily.com/perl/edu/articles/pl010012/

shifter · 03-01-2010, 11:52 AM

My new code is:

Quote:

#!/usr/bin/perl -w
use strict;

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

my $cgi = CGI->new();
my $cookie = $cgi->cookie(-name => 'sessionID', -value => 'user@networkstore', -expires => '+1h');
print $cgi->header(-type => 'text/html', -cookie => '$cookie');

my $mycookie = $cgi->cookie('sessionID');

if ("$mycookie") {
print "<h2>Your cookie is $mycookie</h2>";
}
else {
print "<h2>$mycookie is not set</h2>";
}

and output is:

is not set

smoker · 03-01-2010, 01:10 PM

$mycookie isn't defined correctly.
And you have to declare the cookie before the headers.
What is the output of

Code:

if ("$cookie") {
print "<h2>Your cookie is $cookie</h2>";
}
else {
print "<h2>$cookie is not set</h2>";
}

shifter · 03-01-2010, 01:21 PM

Ok, thank you very much!