I still don't know why CGI::Session->load(..) is not fetching the valid session but I modified login.cgi and delete_existing_session() as follows and it is working now..
-------------------------------------------- login.cgi - final -------------------------------------------- #!/usr/bin/perl -w ... ... # new query object my $cgi = CGI->new; # get existing id from cookie my $existing_id = $cgi->cookie('CGISESSID') or undef; # If existing_id is valid, then call sub to delete the session if ( defined $existing_id) { # Load and Delete existing session delete_existing_session($existing_id); } # Get a new session my $session = get_session($cgi); ... ... -------------------------------------------- delete_existing_session() - final -------------------------------------------- sub delete_existing_session { my $exist_sess_id = shift; # Load existing session my $session = CGI::Session->new( undef, $exist_sess_id, { Directory => '/usr/sessions' }) or die "can't create session: $!"; # Delete the session $session->delete(); $session->flush(); }
Thanks for the inputs, vgn
In reply to Re^4: Issues with creating a new CGI Session everytime at start-up
by Anonymous Monk
in thread Issues with creating a new CGI Session everytime at start-up
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |