From 84c3fce94925ddb1f51ad79afa8e96ac8b147071 Mon Sep 17 00:00:00 2001 From: Dietmar Maurer Date: Thu, 23 Mar 2017 12:55:25 +0100 Subject: [PATCH] PMG/LDAPCache.pm: do not save LDAP users without valid account name --- PMG/LDAPCache.pm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/PMG/LDAPCache.pm b/PMG/LDAPCache.pm index 4ddb43d..b9d53ff 100755 --- a/PMG/LDAPCache.pm +++ b/PMG/LDAPCache.pm @@ -211,13 +211,10 @@ sub queryusers { if ($account && ($account =~ m/^\S+$/s)) { $account = lc($account); $self->{dbstat}->{accounts}->{dbh}->put($account, $cuid); - } else { - $account = ''; + my $data = pack('n/a* n/a* n/a*', $pmail, $account, $dn); + $self->{dbstat}->{users}->{dbh}->put($cuid, $data); } - my $data = pack('n/a* n/a* n/a*', $pmail, $account, $dn); - $self->{dbstat}->{users}->{dbh}->put($cuid, $data); - foreach my $mail (@$addresses) { $self->{dbstat}->{mails}->{dbh}->put($mail, $cuid); } -- 2.39.5