}
}
-warn $action;
-
unless ( $nologin_actions{$action} ) {
my %cookies = CGI::Cookie->fetch;
$fill_in->{$_} = $access_info->{$_} foreach keys %$access_info;
# update the user's authentication
- my $timeout = $access_info->{'timeout'} || '60';
+ my $timeout = $access_info->{'timeout'} || '3600';
my $cookie = CGI::Cookie->new('-name' => 'session',
'-value' => $session_id,
'-expires' => '+'.$timeout.'s',