Test backends before usage (#595)
This commit is contained in:
parent
4606e77390
commit
ef1a396a21
1
Makefile
1
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
|
||||
|
|
|
@ -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);
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user