All pastes #2226 Raw Edit

why wont sessions work

public text v1 · immutable
#2226 ·published 2004-11-21 06:33 UTC
rendered paste body
#!/usr/bin/perl -w

use strict;
use includes::User;
use DBI;
use CGI;
use CGI::Session;
use HTML::Template;

my $cgi = new CGI;
print $cgi->header;

my $session = new CGI::Session(undef, undef, {Directory => 'sessions'} );
my $cookie = $cgi->cookie(CGISESSID => $session->id);
print "Cookie: $cookie<br>";


########################################
# FILE 2
########################################

# It doesn't pickup the saved session (even though it saves the file in the 
# sessions directory

#!/usr/bin/perl -w

use strict;
use includes::User;
use DBI;
use CGI;
use CGI::Session;
use HTML::Template;

my $cgi = new CGI;

my $page_access=1;

print $cgi->header;
my $sid = $cgi->cookie("CGISESSID") || undef;
print "sid is $sid"; # Undefinned!