# ------------------------------------------------------------------
# search LDAP database
# ------------------------------------------------------------------ 
$mesg = $ldap->search(  base=>$ldap_base_dir,
			filter => "(&(objectclass=*)(sn=*))");
			#filter=>"(name=*)",
my @entries = $mesg->entries;

my %email_by_dn;
foreach my $entry (@entries) {
        my $samACC     = $entry->get_value('samAccountName');
	my $name       = $entry->get_value('name');
	my $descr      = $entry->get_value('description');
	my $mail       = $entry->get_value('mail');
	my $expired    = readable_date($entry->get_value('accountExpires'));
	my $dn         = $entry->dn();
	my $manager    = $entry->get_value('manager');
        $email_by_dn{$dn}=$mail;
	my $mgmt_mail = $email_by_dn{$manager};
	print "rh email = $mgmt_mail\n";
	$mgmt_mail);
}