Проблема в следующем. Мне нужно получить email'ы определённого пользователя из AD. Если CN пишется латиницей, то всё получается, если CN пишется русскими символами, то получаю ошибку:
| Код |
Can't call method "get_value" on an undefined value at C:\INSTALL\works\scripts\ldap.pl line 17, <DATA> line 522.
|
Сама функция:
| Код |
my $ad = Net::LDAP->new('ldap://ad.domain.com') || die "$!\n";
$ad->bind('[email protected]', password => 'pasword', version => 3, debug => 1) || die "$!\n";
my $name = "Пупкин Василий";
my $results = $ad->search(base => 'CN=Users,DC=ad,DC=domain,DC=com',
filter => "cn=$name",
attrs => 'mail'
);
my $entry = $results->entry;
print $entry->get_value('mail');
|
|