Commit 14391d07 authored by Christophe Maudoux's avatar Christophe Maudoux

Append debug messages (#1509)

parent 52ac0442
......@@ -257,6 +257,7 @@ sub getApacheSession {
$self->error( $apacheSession->error );
return undef;
}
$self->logger->debug("Get session $id from Common::Session::REST");
return $apacheSession;
}
......
......@@ -460,8 +460,7 @@ sub retrieveSession {
unless ( $session->error ) {
$class->data( $session->data );
$class->logger->debug("Get session $id");
$class->logger->debug("Get session $id from Handler::Main::Run");
# Update the session to notify activity, if necessary
if (
......
......@@ -322,7 +322,6 @@ sub autoRedirect {
sub getApacheSession {
my ( $self, $id, %args ) = @_;
$args{kind} ||= "SSO";
if ($id) {
$self->logger->debug("Try to get $args{kind} session $id");
}
......@@ -359,17 +358,17 @@ sub getApacheSession {
$self->logger->debug("Session $args{kind} $id not found");
return;
}
$self->logger->debug("Get session $id from Portal::Main::Run") if ( $id );
$self->logger->debug( "Check session timeoutActivity" );
my $now = time;
if (
$id
and defined $as->data->{_utime}
and (
$now - $as->data->{_utime} > $self->conf->{timeout}
( ( $now - $as->data->{_utime} ) > $self->conf->{timeout} )
or ( $self->conf->{timeoutActivity}
and $as->data->{_lastSeen}
and $now - $as->data->{_lastSeen} >
$self->conf->{timeoutActivity} )
and ( ( $now - $as->data->{_lastSeen} ) > $self->conf->{timeoutActivity} ) )
)
)
{
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment