CGI Session - Refresh Problem

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

Hi, I am having a plain html page (session.html) with UserName and password and SUBMIT button. After pressing SUBMIT button, it will open a page (query.cgi). On this page I am creating a session and writing the cookie.
2 Separate problems :
-----------
1. Cookies are not being written in Cookies folder.
2. If I press refresh button on browser for "query.cgi" it creates a new session. I want the same session after refresh button is pressed. Please helpme to achieve this. ( I dont want to use cookie)
###############- START Code for (session.html) -################

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<TITLE> Modify User </TITLE>
</HEAD> <BODY>
<form name="modifyuser" action="query.cgi" method="get" >
<BR> User id : <input type="text" name="lg_name" size=30>  
Password<input type="text" name="lg_password" size=30>
<input type="submit" value="SUBMIT" >
</form>

</BODY>
</HTML>
[download]

###############- END Code for (session.html) -################
###############- START Code for (query.cgi) -################

<BR>
#!/perl/bin/perl -wT

use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;        use DBI;
use vivek::session;    
use CGI::Session;
use CGI;
my $cgi = new CGI;
print $cgi->header;
print $cgi->start_html("query.cgi");

my $sid;    my $session;
my $f_name; my $lg_psswd ;

my $lg_name = $cgi->param("lg_name");
print "<BR> lg_name ---  $lg_name <BR>";

    $session = new CGI::Session(undef, $cgi, {Directory=>'/tmp'});

    my $cookie = $cgi->cookie(CGISESSID => $session->id );
    print "cookies is : $cookie <BR>" ;
    print $cgi->header(-cookie=>$cookie);

    $sid = $session->id();

    print "<BR>sid =  $sid <BR>";

print $cgi->end_html;
[download]

###############- END Code for ((query.cgi) -##################
OUT PUT FROM QUERY.CGI : http://localhost/~administrator/Session_managemnt/sm_15apr/query.cgi?lg_name=asas&lg_password=asasa
######################################################

lg_name --- asas 
cookies is : CGISESSID=f459ae140d01a8ed184d33c689816399; path=/ 
Set-Cookie: CGISESSID=f459ae140d01a8ed184d33c689816399; path=/ Date: T
+hu, 24 Apr 2008 09:13:42 GMT Content-Type: text/html; 

charset=ISO-8859-1 
sid = f459ae140d01a8ed184d33c689816399
[download]

######################################################

Comment on CGI Session - Refresh Problem Select or Download Code

Replies are listed 'Best First'.
Re: CGI Session - Refresh Problem by rhesa (Vicar) on Apr 24, 2008 at 10:37 UTC
You only get one chance to print the HTTP headers, so your second `print $cgi->header` isn't going to be effective. The solution is to first create/retrieve the session, then bake the cookie, and only then print the header: `#!/perl/bin/perl -wT use strict; use CGI; use CGI::Session; my $cgi = CGI->new; my $session = CGI::Session->new( undef, $cgi, {Directory=>'/tmp'} +); my $cookie = $cgi->cookie(CGISESSID => $session->id ); print $cgi->header(-cookie=>$cookie); print $cgi->start_html("query.cgi"); print "cookies is : $cookie <BR>" ; my $sid = $session->id(); print "<BR>sid = $sid <BR>"; print $cgi->end_html;` [download]	[reply] [d/l] [select]
Re^2: CGI Session - Refresh Problem by d0353101 (Novice) on Apr 25, 2008 at 05:32 UTC
Dear Rhesa, Many thanks for making this correction !! It worked like wonder. It resolved one query but still same Old questions are there: 1. I am having administrator privilleges. On which path cookies are being stored. Cookies are not being stored at "C:\Documents and Settings\Administrator\Cookies" 2. ( I do NOT want to use cookie) If I press refresh button on browser for "query.cgi" it creates a new session. I want the same session after refresh button is pressed. ( I do NOT want to use cookie) Please help me to achieve this.	[reply]
Re^3: CGI Session - Refresh Problem by rhesa (Vicar) on Apr 25, 2008 at 12:51 UTC
Those questions are answered in the manual, as well as in the excellent tutorial. You set the directory where sessions are stored with the `Dir` parameter; Instead of printing `$cgi->header(...)`, you can also use `$session->header()`. That contains the logic for whether you need a new cookie or not.	[reply] [d/l] [select]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks