Remove useless variable

This commit is contained in:
Baptiste Pecatte 2020-07-04 22:29:29 +02:00
parent 24ecbb2f18
commit 0795454620
2 changed files with 3 additions and 6 deletions

View File

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

View File

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