kalipso/racalmas
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lib/calcms/user_sessions.pm: always write session

Browse Source
This commit is contained in:
Milan
2024-07-26 22:03:06 +02:00
parent 80cbaf70bc
commit 492bc44cda
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lib/calcms/user_sessions.pm
View File

@@ -86,9 +86,11 @@ sub insert ($$) {
$entry->{pid} = $$;
$entry->{expires_at} = time::time_to_datetime( time() + $entry->{timeout} );
$config->{access}->{write} = 1;
my $dbh = db::connect($config);
return db::insert( $dbh, 'calcms_user_sessions', $entry );
my $result = db::insert( $dbh, 'calcms_user_sessions', $entry );
$config->{access}->{write} = 0;
return $result;
}
# start session and return generated session id
@@ -176,6 +178,7 @@ sub update ($$) {
return undef unless defined $entry->{session_id};
$config->{access}->{write} = 1;
my $dbh = db::connect($config);
my @keys = sort keys %$entry;
my $values = join( ",", map { $_ . '=?' } @keys );
@@ -187,7 +190,9 @@ sub update ($$) {
set $values
where session_id=?
};
return db::put( $dbh, $query, \@bind_values );
my $result = db::put( $dbh, $query, \@bind_values );
$config->{access}->{write} = 0;
return $result;
}
#map schedule id to id