CODEWITHSUNDEEP
perlcookies
Fred Garvin
Fred Garvin

Reputation: 47

cgi::cookies Needs to return error

I'm using CGI::Cookie for my session cookies. I'd like to return an error if the cookie is gone or expired. What I have isn't working. Any ideas??

my %cookies = CGI::Cookie->fetch;
my $cookieID = $cookies{$session_key}->value || error("Your session has   ended. Please logon again");

Upvotes: 0

Views: 37

Answers (2)

Fred Garvin
Fred Garvin

Reputation: 47

This code works:

my %cookies = CGI::Cookie->fetch;
if ( $session_key == $cookies{$session_key}){  } else{ $session_key=""; error("Your session has ended. Please logon again"); exit; }

Thanks for the help.

Upvotes: 0

ikegami
ikegami

Reputation: 386501

According to your comment, you should be checking $cookies{$session_key}.

my $session_id_cookie = $cookies{$session_key}
   or error("Your session has ended. Please logon again");

my $session_id = $session_id_cookie->value();

Upvotes: 2

Related Questions