equal
deleted
inserted
replaced
342 $filter = "(|" . join("", map { "(uid=$_)" } @ARGV) . ")"; |
342 $filter = "(|" . join("", map { "(uid=$_)" } @ARGV) . ")"; |
343 |
343 |
344 my $r = $ldap->search( |
344 my $r = $ldap->search( |
345 filter => $filter, |
345 filter => $filter, |
346 base => $ubase, |
346 base => $ubase, |
347 attrs => [qw/uid cn mail userPassword/] |
347 #attrs => [qw/uid cn mail userPassword/, (AT_PRIMARYADDRESS)] |
348 ); |
348 ); |
349 die $r->error if $r->code; |
349 die $r->error if $r->code; |
350 |
350 |
351 |
351 |
352 while (my $e = $r->shift_entry) { |
352 while (my $e = $r->shift_entry) { |