in reply to Re^3: Issues with creating a new CGI Session everytime at start-up
in thread Issues with creating a new CGI Session everytime at start-up

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

  • Comment on Re^4: Issues with creating a new CGI Session everytime at start-up
  • Download Code