URL: https://www.opennet.ru/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID9
Нить номер: 4566
[ Назад ]

Исходное сообщение
"Perl::LDAP - не полный результат"

Отправлено Dr. Nebula , 18-Авг-05 15:43 
Имеется следующая задача - под FreeBSD вытащить все пользовательские почтовые ящики из АД. Попробовал как ldapsearch из пакета OpenLDAP так и модуль Perl - результат одинаковый: что то выдергиваем, но почему то не все...
Вот код:

#!/usr/bin/perl
use Net::LDAP;

$ldap = Net::LDAP->new("newpdc.office.company.ru");

$ldap->bind("cn=ldapquery,dc=office,dc=company,dc=ru", password=>"PassworD");

$mesg = $ldap->search(filter=>"(objectClass=*)", base=>"dc=office,dc=company,dc=ru");

@entries = $mesg->entries;

foreach $entry (@entries) {
        @mail = $entry->get_value("proxyAddresses");
        if(defined(@mail)) {
                print "E-Mail: @mail\n";
        }
        undef(@mail);
}

P.S Под Виндой, VB скрипт вытаскивает все записи... То есть дело но в АД...


Содержание

Сообщения в этом обсуждении
"Perl::LDAP - не полный результат"
Отправлено levsha , 18-Авг-05 16:52 
>P.S Под Виндой, VB скрипт вытаскивает все записи... То есть дело но
>в АД...

Может быть дело таки в AD: например в настройках OpenLDAP сервера есть параметр sizelimit, который задает максимальное количество возвращаемых записей на search и который по умолчанию равен 500


"Perl::LDAP - не полный результат"
Отправлено Dr. Nebula , 18-Авг-05 17:21 
>>P.S Под Виндой, VB скрипт вытаскивает все записи... То есть дело но
>>в АД...
>
>Может быть дело таки в AD: например в настройках OpenLDAP сервера есть
>параметр sizelimit, который задает максимальное количество возвращаемых записей на search и
>который по умолчанию равен 500

Спасибо, я уже разобрался - действительно дело было в sizelimit, достаточно было ограничить правильно фильтром запрос и все стало хорошо :)