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/"
|
@$(MAKE) -C ${SRCHANDLERDIR} test FULLPERL="$(PERL) -I../${SRCCOMMONDIR}/blib/lib/"
|
||||||
|
|
||||||
portal_test: portal
|
portal_test: portal
|
||||||
|
env|sort
|
||||||
@$(MAKE) -C ${SRCPORTALDIR} test FULLPERL="$(PERL) -I../${SRCCOMMONDIR}/blib/lib/ -I../${SRCHANDLERDIR}/blib/lib/"
|
@$(MAKE) -C ${SRCPORTALDIR} test FULLPERL="$(PERL) -I../${SRCCOMMONDIR}/blib/lib/ -I../${SRCHANDLERDIR}/blib/lib/"
|
||||||
|
|
||||||
manager_test: manager
|
manager_test: manager
|
||||||
|
|
|
@ -246,6 +246,7 @@ sub checkXSSAttack {
|
||||||
|
|
||||||
sub extractFormInfo {
|
sub extractFormInfo {
|
||||||
my ( $self, $req ) = @_;
|
my ( $self, $req ) = @_;
|
||||||
|
return PE_ERROR unless ( $self->_authentication );
|
||||||
my $ret = $self->_authentication->extractFormInfo($req);
|
my $ret = $self->_authentication->extractFormInfo($req);
|
||||||
if ( $ret == PE_OK and not( $req->user or $req->continue ) ) {
|
if ( $ret == PE_OK and not( $req->user or $req->continue ) ) {
|
||||||
$self->logger->error(
|
$self->logger->error(
|
||||||
|
@ -273,6 +274,7 @@ sub extractFormInfo {
|
||||||
|
|
||||||
sub getUser {
|
sub getUser {
|
||||||
my ( $self, $req ) = @_;
|
my ( $self, $req ) = @_;
|
||||||
|
return PE_ERROR unless ( $self->_userDB );
|
||||||
return $self->_userDB->getUser($req);
|
return $self->_userDB->getUser($req);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user