equal
deleted
inserted
replaced
368 base => $ubase, |
368 base => $ubase, |
369 #attrs => [qw/uid cn mail userPassword/, (AT_PRIMARYADDRESS)] |
369 #attrs => [qw/uid cn mail userPassword/, (AT_PRIMARYADDRESS)] |
370 ); |
370 ); |
371 die $r->error if $r->code; |
371 die $r->error if $r->code; |
372 |
372 |
|
373 #if (-t STDOUT) { open(LESS, "|less -F -X") and select LESS; } |
|
374 |
373 |
375 |
374 while (my $e = $r->shift_entry) { |
376 while (my $e = $r->shift_entry) { |
375 my $uid = $e->get_value("uid"); |
377 my $uid = $e->get_value("uid"); |
376 my $cn = join(", ", $e->get_value("cn")); |
378 my $cn = join(", ", $e->get_value("cn")); |
377 my $mr = $e->get_value(AT_PRIMARYADDRESS) || ""; # ?? |
379 my $mr = $e->get_value(AT_PRIMARYADDRESS) || ""; # ?? |