VPF::Active Directory + Net::LDAP и русские буквы

kusok

Дата 30.8.2010, 10:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 27.8.2010

Репутация: нет
Всего: нет

Проблема в следующем. Мне нужно получить 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');

kosyakLA

Дата 3.6.2011, 08:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 16.2.2007

Репутация: нет
Всего: нет

Кстаит у меня та же проблема...есть решение?

arto

Дата 3.6.2011, 08:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

строка в utf?

kosyakLA

Дата 6.6.2011, 09:47 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 16.2.2007

Репутация: нет
Всего: нет

Нет. в Win1521

arto

Дата 6.6.2011, 10:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

AD поддерживает cp1251?

kosyakLA

Дата 14.6.2011, 06:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 16.2.2007

Репутация: нет
Всего: нет

перекодировал текст из UTF8 -> Win1251. Помогло.

Encode::from_to($REQ, 'utf8', 'windows-1251');

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »