478 my $cn = join( ", ", $e->get_value("cn") ); |
478 my $cn = join( ", ", $e->get_value("cn") ); |
479 my $mr = $e->get_value(AT_PRIMARYADDRESS) || ""; # ?? |
479 my $mr = $e->get_value(AT_PRIMARYADDRESS) || ""; # ?? |
480 my $ml = join( ", ", $e->get_value(AT_ADDRESS) ) || ""; # ?? |
480 my $ml = join( ", ", $e->get_value(AT_ADDRESS) ) || ""; # ?? |
481 my $mg = join( ", ", $e->get_value(AT_GROUP) ) || ""; # ?? |
481 my $mg = join( ", ", $e->get_value(AT_GROUP) ) || ""; # ?? |
482 my $forw = join( ", ", $e->get_value(AT_FORWARDINGADDRESS) ) || ""; |
482 my $forw = join( ", ", $e->get_value(AT_FORWARDINGADDRESS) ) || ""; |
483 my $ag = join ',$', split /,/, $e->get_value(AT_ACLGROUPS); |
483 my $ag = $e->get_value(AT_ACLGROUPS); |
484 $ag = "\$$ag" if $ag; |
484 $ag = '$' . join ',$', split /,/, $ag if $ag; |
485 |
485 |
486 print "$uid: $cn <$mr>"; |
486 print "$uid: $cn <$mr>"; |
487 |
487 |
488 #if (($e->get_value("iusRestrictedMail")||"") eq "TRUE") { |
488 #if (($e->get_value("iusRestrictedMail")||"") eq "TRUE") { |
489 #print " INTERNAL"; |
489 #print " INTERNAL"; |