diff --git a/Makefile b/Makefile index c7b732672..88d1b05e2 100644 --- a/Makefile +++ b/Makefile @@ -357,6 +357,7 @@ handler_test: handler @$(MAKE) -C ${SRCHANDLERDIR} test FULLPERL="$(PERL) -I../${SRCCOMMONDIR}/blib/lib/" portal_test: portal + env|sort @$(MAKE) -C ${SRCPORTALDIR} test FULLPERL="$(PERL) -I../${SRCCOMMONDIR}/blib/lib/ -I../${SRCHANDLERDIR}/blib/lib/" manager_test: manager diff --git a/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Process.pm b/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Process.pm index 399da7004..c5b269fc2 100644 --- a/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Process.pm +++ b/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Process.pm @@ -246,6 +246,7 @@ sub checkXSSAttack { sub extractFormInfo { my ( $self, $req ) = @_; + return PE_ERROR unless ( $self->_authentication ); my $ret = $self->_authentication->extractFormInfo($req); if ( $ret == PE_OK and not( $req->user or $req->continue ) ) { $self->logger->error( @@ -273,6 +274,7 @@ sub extractFormInfo { sub getUser { my ( $self, $req ) = @_; + return PE_ERROR unless ( $self->_userDB ); return $self->_userDB->getUser($req); }