Lines 210-216
sub ldap_entry_2_hash ($$) {
Link Here
|
210 |
$debug and print STDERR "Finsihed \%memberhash has ", scalar(keys %memberhash), " keys\n", |
210 |
$debug and print STDERR "Finsihed \%memberhash has ", scalar(keys %memberhash), " keys\n", |
211 |
"Referencing \%mapping with ", scalar(keys %mapping), " keys\n"; |
211 |
"Referencing \%mapping with ", scalar(keys %mapping), " keys\n"; |
212 |
foreach my $key (keys %mapping) { |
212 |
foreach my $key (keys %mapping) { |
213 |
my $data = $memberhash{$mapping{$key}->{is}}; |
213 |
my $data = $memberhash{ lc($mapping{$key}->{is}) }; # Net::LDAP returns all names in lowercase |
214 |
$debug and printf STDERR "mapping %20s ==> %-20s (%s)\n", $key, $mapping{$key}->{is}, $data; |
214 |
$debug and printf STDERR "mapping %20s ==> %-20s (%s)\n", $key, $mapping{$key}->{is}, $data; |
215 |
unless (defined $data) { |
215 |
unless (defined $data) { |
216 |
$data = $mapping{$key}->{content} || ''; # default or failsafe '' |
216 |
$data = $mapping{$key}->{content} || ''; # default or failsafe '' |
217 |
- |
|
|