Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added some additional checks to handle timed-out sessions gracefully.

Browse Source
This commit is contained in:
Chris 2012-01-24 14:28:02 +00:00
parent 786b2d0720
commit 3639f2b4e9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
SessionHandler.pm
View File

@ -222,7 +222,7 @@ sub create_session {
# Do the key and user match? If so, fetch the user's data.
$userdata = $self -> {"auth"} -> get_user_byid($self -> {"sessuser"}, 1)
if($keyid -> {"user_id"} == $self -> {"sessuser"});
if($keyid && $keyid -> {"user_id"} == $self -> {"sessuser"});
# If we don't have a key and user in the cookies, do we have a user specified?
} elsif($user) {
@ -416,7 +416,7 @@ sub session_cookies {
sub ip_check {
my $self = shift;
my $userip = shift;
my $sessip = shift;
my $sessip = shift || "";
# How may IP address segments should be compared?
my $iplen = $self -> {"auth"} -> get_config('ip_check');