LDAP Daten Auslesen und weiter Verarbeiten - #188777 (Allgemeines zu Perl)

thomas38

2018-08-10 14:21

User since
2012-11-04
30 Artikel
BenutzerIn
[default_avatar]

Im Attribute "manager" wird somit das Benutzerobjekt gespeichert ...

Dann steht in "manager" somit der DN (=distinguished name).
In Deinen Beispieldaten stand nur "CN=John.Doh". Für den DN ist das nicht komplett. Der DN könnte so aussehen: "CN=John.Doh,OU=managers,dc=example,dc=com"

Aktualisierter Vorschlag:
Statt "CN" wird der DN gelesen und dessen E-Mail-Adresse gespeichert:

Code (perl): (dl )

# VORSICHT: Dieser Code ist nicht getestet
# ... nach dem search:
#
# E-Mail-Adressen aller Benutzer im Hash %email_by_dn speichern:
#
my %email_by_dn;
foreach my $entry (@entries) {
 my $dn     = $entry->dn();  # Hinweis: der DN wird nicht mit get_value ermittelt
 my $mail   = $entry->get_value('mail'); 
 $email_by_dn{$dn}=$mail;
}

Wenn Du später die E-Mail-Adresse des jeweiligen Managers wissen möchtest, kannst Du diese mit

Code (perl): (dl )

# VORSICHT: Dieser Code ist nicht getestet
# ...
$manager=$entry->get_value('manager');
my $email_adresse_des_managers=$email_by_dn{$manager};

herausfinden.