Test backends before usage (#595)

This commit is contained in:
Xavier Guimard 2017-09-08 10:10:37 +00:00
parent 4606e77390
commit ef1a396a21
2 changed files with 3 additions and 0 deletions

View File

@ -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

View File

@ -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);
}