Allow sessions to have a max lifetime

This commit is contained in:
Jamie Cameron
2025-05-19 22:17:59 -07:00
parent 62a52bfc56
commit c126e9f93e

View File

@@ -1411,20 +1411,20 @@ foreach my $s (keys %sessiondb) {
dbmclose(%sessiondb);
}
=head2 create_session_user(\%miniserv, user)
=head2 create_session_user(\%miniserv, user, [lifetime])
Creates a new session ID that's already logged in as the given user
=cut
sub create_session_user
{
my ($miniserv, $username) = @_;
my ($miniserv, $username, $lifetime) = @_;
return undef if (&is_readonly_mode());
&open_session_db($miniserv);
my $sid = &generate_random_session_id();
return undef if (!$sid);
my $t = time();
$sessiondb{$sid} = "$username $t 127.0.0.1";
$sessiondb{$sid} = "$username $t 127.0.0.1".($lifetime ? " ".$lifetime : "");
dbmclose(%sessiondb);
return $sid;
}