Commit 9d779015 authored by Yadd's avatar Yadd
Browse files

Set pivotal variables (needed for status)

parent 4ddd557d
...@@ -1145,7 +1145,7 @@ sub _subProcess { ...@@ -1145,7 +1145,7 @@ sub _subProcess {
sub updateStatus { sub updateStatus {
my $self = shift; my $self = shift;
my $p = $Lemonldap::NG::Handler::Main::tsv->{statusPipe}; my $p = $Lemonldap::NG::Handler::Main::tsv->{statusPipe};
print $p ( $self->{user} ? $self->{user} : $self->{ipAddr} ) print $p ( $self->{user} ? $self->{user} : $self->ipAddr )
. " => $ENV{SERVER_NAME}$ENV{SCRIPT_NAME} " . " => $ENV{SERVER_NAME}$ENV{SCRIPT_NAME} "
. $self->{error} . "\n" . $self->{error} . "\n"
if ($p); if ($p);
...@@ -1865,6 +1865,7 @@ sub controlExistingSession { ...@@ -1865,6 +1865,7 @@ sub controlExistingSession {
# A session has been found => call existingSession # A session has been found => call existingSession
my $r = $self->_sub( 'existingSession', $id, $self->{sessionInfo} ); my $r = $self->_sub( 'existingSession', $id, $self->{sessionInfo} );
if ( $r == PE_DONE ) { if ( $r == PE_DONE ) {
$self->{user} = $self->{sessionInfo}->{_whatToTrace};
$self->{error} = $self->_subProcess( $self->{error} = $self->_subProcess(
qw(checkNotification issuerDBInit authInit issuerForAuthUser authFinish autoRedirect) qw(checkNotification issuerDBInit authInit issuerForAuthUser authFinish autoRedirect)
); );
......
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