Remove useless variable
This commit is contained in:
parent
24ecbb2f18
commit
0795454620
|
@ -144,8 +144,7 @@ sub getUser {
|
||||||
return PE_BADCREDENTIALS;
|
return PE_BADCREDENTIALS;
|
||||||
}
|
}
|
||||||
unless ( $req->data->{ldapentry} = $mesg->entry(0) ) {
|
unless ( $req->data->{ldapentry} = $mesg->entry(0) ) {
|
||||||
my $ipAddr = $req->address;
|
$self->userLogger->warn("$req->{user} was not found in LDAP directory (".$req->address.")");
|
||||||
$self->userLogger->warn("$req->{user} was not found in LDAP directory ($ipAddr)");
|
|
||||||
eval { $self->p->_authentication->setSecurity($req) };
|
eval { $self->p->_authentication->setSecurity($req) };
|
||||||
return PE_BADCREDENTIALS;
|
return PE_BADCREDENTIALS;
|
||||||
}
|
}
|
||||||
|
|
|
@ -180,8 +180,7 @@ sub userBind {
|
||||||
# Return direct unless control resonse
|
# Return direct unless control resonse
|
||||||
unless ( defined $resp ) {
|
unless ( defined $resp ) {
|
||||||
if ( $mesg->code == 49 ) {
|
if ( $mesg->code == 49 ) {
|
||||||
my $ipAddr = $req->address;
|
$self->{portal}->userLogger->warn("Bad password for $req->{user} (".$req->address.")");
|
||||||
$self->{portal}->userLogger->warn("Bad password for $req->{user} ($ipAddr)");
|
|
||||||
return PE_BADCREDENTIALS;
|
return PE_BADCREDENTIALS;
|
||||||
}
|
}
|
||||||
elsif ( $mesg->code == 0 ) {
|
elsif ( $mesg->code == 0 ) {
|
||||||
|
@ -263,8 +262,7 @@ sub userBind {
|
||||||
$req->data->{ldapError} = $mesg->error;
|
$req->data->{ldapError} = $mesg->error;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
my $ipAddr = $req->address;
|
$self->{portal}->userLogger->warn("Bad password for $req->{user} (".$req->address.")");
|
||||||
$self->{portal}->userLogger->warn("Bad password for $req->{user} ($ipAddr)");
|
|
||||||
return PE_BADCREDENTIALS;
|
return PE_BADCREDENTIALS;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user