Hallo,also eins vorweg... bin kein Perl Experte, muss aber trotzdem was bearbeiten... Also:
Ich muss bei einem multivalue Attribute mehrer Werte auslesen und diese weiterverarbeiten... print hilft mir nix, daher meine Frage:
# perform search
my $Result = $Self->{LDAP}->search (
base => $Self->{BaseDN},
scope => $Self->{SScope},
filter => $Filter,
attrs => $attrs,
);
# log ldap errors
if ($Result->code()) {
$Self->{LogObject}->Log(
Priority => 'error',
Message => $Result->error(),
);
return;
}
# get first entry
my $Result2 = $Result->entry(0);
if (!$Result2) {
return;
}
# get customer user info
foreach my $Entry (@{$Self->{CustomerUserMap}->{Map}}) { my $Value = $Self->_Convert($Result2->get_value($Entry->[2])
# my $Value = $Self->_Convert($Result2->get_value($Entry->[2])
) || '';
if ($Value && $Entry->[2] =~ /^targetaddress$/i) {
$Value =~ s/SMTP:(.*)/$1/;
}
$Data{$Entry->[0]} = $Value;
}
Wie kann ichs erreichen, dass ich alle Werte, sagen wir mal durch "," getrennt, erhalte??
Danke und Grüße
Max
Datum: 05.05.2007-18:02
Ldap&perl
