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

Ensure that auto_key doesn't contain binary

Browse Source
This commit is contained in:
Chris 2012-06-25 12:44:53 +01:00
parent 0b46c2fa83
commit 20f20d1f57
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
SessionHandler.pm
View File

@ -246,7 +246,7 @@ sub create_session {
my $initvars = shift;
my $userdata;
# nuke the cookies, it's the only way to be sure
# nuke the cookies from orbit, it's the only way to be sure
delete($self -> {"cookies"}) if($self -> {"cookies"});
# get the current time...
@ -827,7 +827,8 @@ sub set_login_key {
my $self = shift;
my $key = $self -> {"autokey"};
my $key_id = $self -> {"auth"} -> unique_id(substr($self -> {"sessid"}, 0, 8));
# key_id needs to be base64 encoded as it may contain binary.
my $key_id = encode_base64($self -> {"auth"} -> unique_id(substr($self -> {"sessid"}, 0, 8)), '');
# If we don't have a key, we want to create a new key in the table
if(!$key) {