WWW.DISSERS.RU

БЕСПЛАТНАЯ ЭЛЕКТРОННАЯ БИБЛИОТЕКА

   Добро пожаловать!

Pages:     | 1 |   ...   | 2 | 3 || 5 | 6 |   ...   | 7 |

«Perl для системного администрирования Дэвид Я. Бланк-Эделъман Canlm /iCj Lx Lx '/ Дэвид Н. Бланк-Эдельман Perl для системного ...»

-- [ Страница 4 ] --

Additional (Дополнительно) Содержит любую информацию, которую вернет сервер помимо пря мого ответа на вопрос.

Наша программа имеет дело только с первыми тремя из этих разделов.

Для создания необходимой структуры данных для заголовка DNS-na кета и его содержимого используется набор команд pack(). Эти струк туры данных передаются модулю 10: : Socket, который посылает их в виде пакета. Этот же модуль получает ответ и возвращает его для обра ботки (при помощи unpack()). Умозрительно такой процесс не очень сложен.

Но перед тем как посмотреть на саму программу, нужно сказать об од ной особенности в этом процессе. В RFC1035 (Раздел 4.1.4) определя ются два способа представления доменных имен в DNS-пакетах: не сжатые и сжатые. Под несжатым доменным именем подразумевается полное имя домена (например host.oog.org) в пакете. Этот способ ничем За подробной информацией советую обратиться к разделу «Сообщения» из RFC1035.

198 Глава 5. Службы имен ТСР/|р не примечателен. Но если это же доменное имя встретится в пакете еще несколько раз, то, скорее всего, оно будет представлено в сжатом виде BO всех вхождениях, кроме первого. В сжатом представлении информация (или ее часть) о домене заменяется двубайтовым указателем на несжа тое представление этого же доменного имени. Это позволяет использо вать в пакете hostl, host2 и host3 в longsubdomain.longsubdomain.oog.org вместо того чтобы каждый раз включать лишние байты для longsubdo main.longsubdomain.oog.org. Нам необходимо обработать оба представ ления, поэтому и существует подпрограмма &decompress. Дальше обойдемся без фанфар и взглянем на код:

use 10:

-.Socket;

Shostname = $ARGV[0];

Sdefdomain = ".oog.org";

# домен по умолчанию „ ©servers = qw(nameserver1 nameserver2 nameserverS);

* имена серверов имен foreach Sserver (©servers) { &lookupaddress($hostname, Sserver);

# записываем значения в %results ••>- : } %inv = reverse %results;

ft инвертируем -полученный хэш if (scalar(keys %inv) > 1) { # проверяем, сколько в нем элементов print "Между ONS-серверами есть разногласия :\п";

use Data: : Dumper;

print Data: :Dumper->Dump([\%results], ["results"]), "\n";

sub lookupaddress{ my($hostname, Sserver) = @_;

my($qname,$rname,$header,$question,$lformat,@labels,$count);

local($position,$buf);

да да Конструируем заголовок пакета да $header = pack("n C2 n4", ++$id, # идентификатор запроса 1, и поля qr, opcode, aa, tc, rd (установлено только rd) 0, # rd, ra 1, # один вопрос (qdcount) О, tt нет ответов (ancount) О, # нет записей ns в разделе authority (nscount) 0);

# нет rr addtl (arcount) # если в имени узла нет разделителей, # дописываем домен по умолчанию if (index($hostname, '. ' ) == -1) { $hostname.= $def domain;

енных имен (DNS) » конструируем раздел qname пакета (требуемое доменное имя) for (split(/\./,$hostname)) { Slformat.= "С а* ";

$labels[$count++]=length;

$labels[$count++]=$_;

888 конструируем вопрос flftft Squestion = pack($lformat. "С п2", ©labels, 0, it конец меток 1, 8 qtype A 1);

8 qclass IN ##» ППП посылаем пакет серверу и читаем ответ т $sock = new 10: : Socket : :INET(PeerAddr => Sserver, PeerPort => "domain", Proto => "udp");

$sock->send($header.$question);

8 используется UDP, так что максимальный размер пакета известен $sock->recv($buf,512);

close($sock);

8 узнаем размер ответа, так как мы собираемся отслеживать О позицию в пакете при его анализе (через Sposition) Srespsize = length($buf);

ttttn nn# распаковываем раздел заголовка ($id, $q r_opcode_aa_tc_rd, $rd_ra, Sqdcount, Sancount, Snscount, Sarcount) = unpack("n C2 n4",$buf);

if (!$ancount) { warn "Невозможно получить информацию для $hostname с $server!\n" return;

«ft» nntt распаковываем раздел вопроса т 200 Глава 5. Службы имен ТСР/|р ппп П раздел вопроса начинается после 12 байтов ($position,$qname) = &decompress(12);

($qtype,$qclass)=unpack( '@'.$position. 'n2',$buf );

П переходим к концу вопроса Sposition += 4;

ttnn ### распаковываем все записи о ресурсах ппп for ( ;

$ancount;

$ancount--){ (Sposition, Srname) = &decompress($position);

(Srtype, $rclass, $rttl, $rdlength)= unpack( '@',$position. 'n2 N n',$buf);

Sposition +=10;

# следующую строку можно изменить и использовать более # сложную структуру данных;

сейчас мы подбираем # последнюю возвращенную запись гг $results{$server}= join( '. ', unpack( '@'. Sposition. 'С'. $rdlength, $buf ));

Sposition +=$rdlength;

# обрабатываем информацию, "сжатую" в соответствии с RFC # мы переходим в первую позицию в пакете и возвращаем # найденное там имя (после того как разберемся с указателем # сжатого формата) и место, которое мы оставили в конце # найденного имени sub decompress { my($start) = $_[0];

my($domain,$i,$lenoct);

for ($i=$start;

$i<=$respsize;

) { $lenoct=unpack('',$i. 'C', $buf);

# длина метки if (!$lenoct){ # 0 означает, что этот раздел обработан $i++;

last;

if ($lenoct == 192) { « встретили указатель, # следовательно, выполняем рекурсию $domain.=(&decompress((unpack('@'.$i. 'n',$buf) & $i+=2;

last } else { К в противном случае это простая метка $domain.=unpack( '@'. ++$i. 'a'.Slenoct, $buf ). '. ' ;

$i += Slenoct;

6а доменных имен (DNS) Ж return($i, Sdomain);

Надо заметить, что эта программа не является точным эквивалентом предыдущего примера, потому что мы не пытаемся эмулировать все нюансы поведения nslookup (тайм-ауты, повторные попытки и списки поиска). Рассматривая все три подхода, представленные здесь, обяза тельно обратите внимание на такие различия.

Преимущества этого подхода заключаются в следующем:

• Он не зависит от каких-либо других программ. Нет необходимости разбираться в работе других людей.

• Это настолько же быстро, а может быть, и еще быстрее, чем вызов внешней программы.

• Проще обработать параметры ситуации (тайм-ауты и прочее).

Недостатки же такого подхода в том, что:

• Для написания подобной программы понадобится больше времени и, кроме того, она сложнее предыдущей.

• Этот подход требует дополнительных знаний, не имеющих прямого отношения к вашей задаче (т. е. вам, возможно, потребуется уз нать, как вручную собирать DNS-пакеты, чего при использовании nslookup знать было не нужно).

• Вам, вероятно, придется самостоятельно справиться с различиями между операционными системами (в предыдущем подходе они бы ли скрыты благодаря тому, что эту работу выполнил автор внешней программы).

Использование Net::DNS Как уже говорилось в главе 1, одна из сильных сторон Perl заключает ся в поддержке обширным сообществом разработчиков, создающих программы, которые могут применяться другими людьми. Если необ ходимо сделать на Perl нечто, на ваш взгляд, универсальное, то высо ка вероятность того, что кто-то уже написал модуль для работы с по добной проблемой. В данном случае можно воспользоваться отличным модулем Net: :DNS Майкла Фура (Michael Fuhr), который упростит ра боту. Чтобы справиться с нашей задачей, необходимо создать новый объект, передать ему имя DNS-сервера, к которому следует обратить ся, указать, что нужно послать запрос, и затем применить имеющиеся методы для анализа ответов:

use Net: :DNS;

^servers = qw(nameserver1 nameserver2 nameserverS);

# имена серверов имен foreach Sserver (^servers) { 202 Глава 5. Службы имен ТСР/|р &lookupaddress($hostname,$server);

в заполняем значениями %results > %inv = reverse %results;

(t инвертируем полученный хэш if (scalar(keys %inv) > 1) { n проверяем, сколько в нем элементов print "Между DNS-серверами есть разногласияДп";

use Data: : Dumper;

print Data: :Dumper->Dump([\%results], ["results"]), "\n";

fl всего лишь несколько измененный пример из страниц руководства по Net::DNS sub lookupaddressi my($hostname, $server) = @_;

$res = new Net: :DNS: :Resolver;

$res->nameservers($server);

Spacket = $res->query($hostname);

if (!$packet) { warn "Невозможно получить данные о $hostname с $server!\n";

return;

} в сохраняем последний полученный ответ RR foreach $rr ($packet->answer) { $results{$server}=$rr->address;

Преимущества такого подхода:

• Помимо прочего, получаемый код легко читать.

• Написать его можно быстрее.

• В зависимости от того, как реализован применяемый модуль (толь ко на Perl или с использованием библиотечных вызовов из С или C++), написанная программа может выполняться так же быстро, как и вызов внешней программы.

• Потенциально, это переносимая программа - все зависит только от того, что именно сделал автор модуля. Везде, где можно установить модуль, программа будет работать.

• Как и в первом рассмотренном случае, написать программу можно быстро и просто, если кто-то другой сделает за вас всю работу, про исходящую «за сценой». Вам не нужно знать, как работает модуль!

вы только должны знать, как его применять.

• Код используется повторно. Нет необходимости каждый раз изоб ретать велосипед.

главы цнФ°Рмация ° М°ДУЛЯХ из Недостатки данного подхода:

• Снова появилась зависимость. На этот раз необходимо убедиться, что модуль доступен вашей программе. Приходится поверить, что автор модуля проделал хорошую работу.

• Может не существовать подходящего вам модуля или он может не запуститься на выбранной вами операционной системе.

В большинстве случаев я предпочитаю использовать уже существую щие модули. Тем не менее, для выполнения поставленной задачи по дойдет любой подход. Существует несколько способов сделать одно и то же - значит, вперед, действуйте!

Информация о модулях из этой главы Модуль Идентифика- Версия тор на CPAN CFRETER Res 0. Net::NIS RIK а Data : : Dumper (входит в состав Perl) GSAR 2. 10 : : Socket (входит в состав Perl) GBARR 1. MFUHR N e t : : DNS 0. Рекомендуемая дополнительная литература «DNS and BIND», 3rd Edition, Paul Albitz, Cricket Liu (O'Reilly, 1998).

«RFC849: Suggestions For Improved Host Table Distribution», Mark Crispin, 1983.

«RFC881: The Domain Names Plan and Schedule», J. Postel, 1983.

«RFC882: Domain Names: Concepts And Facilities», P. Mockapetris, 1983.

«RFC 1035: Domain Names: Implementation And Specification», P. Moc kapetris, 1987.

Что такое каталог?

Finger: простая служба каталогов Служба каталогов WHOIS LDAP: сложная служба каталогов ADSI (Интерфейсы служб активных каталогов) Информация о модулях из этой главы Рекомендуемая дополнительная литература Службы каталогов Чем больше информационная система, тем сложнее найти в ней что либо конкретное или выяснить, что именно в ней доступно. Когда сети разрастаются и увеличивается их сложность, обслуживать их удобно при помощи тех или иных каталогов. Пользователи в сетях могут при менять службы каталогов для поиска других пользователей, для поч товых служб и иных служб сообщений. Такие сетевые ресурсы, как принтеры или доступные по сети дисковые пространства, могут быть объявлены при помощи службы каталогов. Средствами служб катало гов также можно распространять открытые ключи и сертификаты. В этой главе мы рассмотрим, как использовать Perl для взаимодействия с некоторыми из наиболее популярных служб каталогов, включая Fin ger, WHOIS, LDAP и ADSI.

Что такое каталог?

В главе 7 «Администрирование баз данных SQL» мною сделано пред положение, согласно которому мир системного администрирования представляет собой базу данных. Каталоги - хороший пример такой оценки. Отметим некоторые явные характеристики каталогов, чтобы в дальнейшем разговоре различать «базы данных* и «каталоги»:

Использование сети Каталоги практически всегда связаны сетью. В отличие от некото рых баз данных, расположенных на той же машине, что и их клй' енты (как хорошо известный файл /etc/passwd), службы каталогов обычно предоставляются по сетям.

: простая служба каталогов Простое взаимодействие /манипуляция данными Базы данных зачастую имеют сложные языки запросов для получе ния и обработки данных. Самый распространенный из них - SQL, ему уделено внимание в главе 7 и приложении D «Пятнадцатими нутное руководство по SQL». Взаимодействие с каталогами значи тельно проще. Клиент каталогов обычно выполняет только элемен тарные операции и не использует для работы с сервером никакого специального языка.

Иерархичность Современные службы каталогов поддерживают древоподобные ин формационные структуры, в то время как базы данных в целом нет.

Читаем много, пишем мало Современные службы каталогов оптимизированы под очень специ фичную передачу данных. При обычном использовании количество операций чтения /запросов к службе каталогов во много раз превос ходит количество операций записи/обновлений.

Если вам встретится нечто, похожее на базу данных, но обладающее приведенными выше характеристиками, то, скорее всего, вы имеете дело с каталогом. Во всех четырех службах каталогов, которые мы рассмотрим, эти характеристики несложно заметить.

Finger: простая служба каталогов Finger и WHOIS - отличные примеры простых служб каталогов. Fin ger, в особенности, предоставляет доступную только для чтения инфор мацию о пользователях на машине (впрочем, скоро мы увидим более творческий подход к его применению). Более поздние версии Finger, такие как сервер GNU Finger и его производные, имеют расширенную разновидность этой функциональности, они позволяют обращаться к одной машине и получать информацию от всех машин из вашей сети.

Finger был одной из первых широко используемых служб каталогов.

Когда-то очень давно при необходимости выяснить адрес электронной почты пользователя на другом узле или даже на вашем собственном лучшим решением было применение команды finger. Команда finger harry@hogwarts.edu сообщала адрес электронной почты Гарри, будь он h a r r y, hpotter или даже что-то менее очевидное (правда, эта команда выводила список всех остальных учащихся школы с именем Гарри). И хотя finger применяется до сих пор, популярность команды со време нем уменьшилась, т. к. вошли в обиход домашние страницы и свобод ное получение информации о пользователе стало делом проблематич ным.

206 Глава 6. Службы каталогов Использование протокола Finger из Perl - еще один хороший примеп правила TMTOWTDI. Когда я первый раз искал на CPAN хоть что-то выполняющее операции с Finger, мне не удалось найти ни одного та кого модуля. Сейчас-то там можно натолкнуться на модуль N e t : : Finge r Дениса Тейлора (Dennis Taylor), который появился спустя примерно шесть месяцев после моего первого посещения. Скоро вы с ним позна комитесь, а пока предположим, что его не существует, и не упустим случая выяснить, как применять более общий модуль, позволяющий «связываться» по специфическому протоколу.

Протокол Finger - это очень простой текстовый протокол на базе TCP/IP.

В соответствии с определением в RFC1288, он ожидает стандартное TCP-соединение на порту 79. После установки соединения клиент пе редает простую строку, завершающуюся последовательностью CRLF.i В этой строке запрашивается информация либо о конкретном пользо вателе, либо обо всех пользователях на машине, если строка пустая.

Сервер отвечает на запрос и закрывает соединение после передачи по тока данных. Можно увидеть, как это происходит, если подсоединить ся к порту Finger на удаленной машине напрямую при помощи telnet:

$ telnet kantine.diku.dk Trying 192.38.109.142...

Connected to kantine.diku.dk.

Escape character is '"]'.

cola Login: cola Name: RHS Linux User Directory: /home/cola Shell: /bin/noshell Never logged in.

No mail.

Plan:

Current state of the coke machine at DIKU This file is updated every 5 seconds At the moment, it's necessary to use correct change.

This has been the case the last 19 hours and 17 minutes Column 1 is currently *empty*.

It's been 14 hours and 59 minutes since it became empty.

31 items were sold from this column before it became empty.

Column 2 contains some cokes.

It's been 2 days, 17 hours, and 43 minutes since it was filled.

Meanwhile, 30 items have been sold from this column.

Column 3 contains some cokes.

It's been 2 days, 17 hours, and 41 minutes since it was filled.

Meanwhile, 11 items have been sold from this column.

Column 4 contains some cokes.

It's been 5 days, 15 hours, and 28 minutes since it was filled.

Возврат каретки + перевод строки, т. е. символы с ASCII-кодами 13 и!0.

finger: простая служба каталогов Meanwhile, 26 items have been sold from this column.

Column 5 contains some cokes.

It's been 5 days, 15 hours, and 29 minutes since it was filled.

Meanwhile, 18 items have been sold from this column.

Column 6 contains some coke-lights.

It's been 5 days, 15 hours, and 30 minutes since it was filled.

Meanwhile, 16 items have been sold from this column.

Connection closed by foreign host.

$ В данном примере мы напрямую соединились с портом Finger, набра ли имя пользователя «cola», и сервер вернул требуемую информацию.

Я выбрал этот узел и этого пользователя только затем, чтобы показать, какие чудеса творились на заре появления Интернета. Серверы Finger превратились в службы для задач различного вида. В этом случае кто угодно может посмотреть, заполнен ли автомат газированных напит ков, расположенный на факультете компьютерных наук в университе те Копенгагена. Примеры странных устройств, подключенных к сер верам Finger, можно найти на страницах Беннета Йи (Bennet Yee) в «Internet Accessible Coke Machines» и «Internet Accessible Machines» n&http://www.cs.ucsd.edu/~bsy/fun.html.

Перенесем сетевое соединение, установленное с помощью telnet, в мир Perl. Средствами Perl можно открыть сокет и общаться через него.

Вместо того чтобы применять низкоуровневые команды сокета, вос пользуемся модулем N e t : : Telnet Джея Роджера (Jay Roger) и познако мимся с семейством модулей, работающих с сетевыми соединениями.

Другие модули этого семейства (некоторые из них будут применяться в иных главах) включают Comm.pl Эрика Арнольда (Eric Arnold), Ex pect.рт Остина Шатца (Austin Schutz) и хорошо известный, но уста ревший и непереносимый модуль chat2.pl Рэндала Л. Шварца (Randal L. Schwartz).

N e t : : T e l n e t устанавливает соединение и обеспечивает четкий интер фейс для отправки и получения данных через это соединение. Кроме того, Net::Telnet предоставляет удобные механизмы сканирования шаблонов, позволяющие программам наблюдать за определенными ответами от другого сервера, но в примере подобные свойства исполь зоваться не будут.

Вот Net: : Telnet-версия простого Finger-клиента. Эта программа при нимает аргумент в виде user@finger_server. Если имя пользователя пропущено, будет возвращен список всех активных пользователей с сервера. Если пропущено имя узла, будет запрашиваться локальный узел:

use Net::Telnet;

($username,$host) = split(/\@/,$ARGV[0]);

•иг 208 Глава 6. Службы каталогов $host = $host ? $host : 'localhost';

# создаем новое соединение $cn = new Net: : Telnet ( Host => $host, Port => 'finger');

# посылаем имя пользователя unless ($cn->print("$username")){ # может быть "/W $username" $cn->close;

die "Невозможно отправить строку: ". $cn->errmg. "\n";

# собираем все полученные данные, останавливаясь при завершении соединения while (defined ($ret = $cn->get)1) { $data.= $ret;

# закрываем соединение $cn->close;

tt отображаем полученные данные print $data;

В RFC1288 определено, что перед именем пользователя, отправля емым на сервер, можно добавить ключ /W для «вывода подробной ин формации о пользователе», поэтому в программу добавлен коммента рий об этом ключе.

Если нужно соединиться, используя помимо Finger другой текстовый протокол на основе TCP, можно применить очень похожую програм му. Например, для соединения с сервером Daytime (который выводит локальное время) используется очень похожая программа:

use Net: :Telnet;

$host = $ARGV[0] ? $ARGV[0] : ' localhost';

$cn = new Net: :Telnet(Host => Shost, Port => 'daytime' );

while (defined ($ret = $cn->get)2) { $data.= $ret;

} $cn->close;

Скобки поставлены в соответствии с требованиями Perl 5.6.I. В тексте оригинала скобки отсутствуют. - Примеч. науч.ред.

Скобки поставлены в соответствии с требованиями Perl 5.6.I. В тексте оригинала скобки отсутствуют. - Примеч. науч. ред.

Служба каталогов WHOIS print $data;

Теперь читатель имеет представление о том, насколько легко созда вать типовые сетевые клиенты на основе TCP. Если кто-то уже потра тил время и написал модуль, специально созданный для работы с про токолом, все окажется еще проще. В случае с Finger можно воспользо ваться модулем N e t. : Finger и заменить все вызовом одной функции:

use Net:

-.Finger;

» finger() принимает строку user@host и возвращает полученные данные print finger($ARGV[OJ);

Желая показать все варианты, упомянем о возможности вызвать внешнюю программу (если она существует):

($username,$host) = split('@',$ARGV[0]);

$host = $host ? $host : 'localhost';

# местоположение команды finger executable, пользователи MacOS К этим методом воспользоваться не могут Sfingerex = ($"0 eq "MSWin32") ?

$ENV{'SYSTEMROOT'}."\\System32\\finger" :

"/usr/ucb/finger";

# (также может быть и /usr/bin/finger) print 'Sfingerex ${username}\@${host}' Вы познакомились с тремя различными способами выполнения Fin ger-запросов. Третий метод, вероятно, самый неудачный, т. к. в нем порождается другой процесс. N e t : : F i n g e r обрабатывает простые Fin ger-запросы;

все остальное может очень хорошо выполнить N e t : : Telnet или родственные ему модули.

Служба каталогов WHOIS WHOIS - это еще одна полезная служба каталогов, предоставляющая доступную только для чтения информацию. WHOIS обеспечивает ус луги, подобные телефонному справочнику для машин, сетей и людей.

Некоторые крупные организации, такие как IBM, UC Berkeley и MIT, предоставляют услуги WHOIS, но самые известные WHOIS-серверы принадлежат InterNIC и другим компаниям, занимающимся вопроса ми регистрации в Интернете, в том числе RIPE (имеет дело с европей скими IP-адресами) и APNIC (Asia/Pacific, Азиатские/Тихоокеанские адреса).

При необходимости связаться с системным администратором какого либо узла, чтобы сообщить ему о подозрительных действиях в сетях, следует использовать службу WHOIS для получения контактной ин формации. В большинстве операционных систем для выполнения 210 Глава б. Службы каталогов WHOIS-запросов существуют как GUI-инструменты, так и инструмб11.

ты, запускаемые из командной строки. Типичный запрос в Unix вы глядит так:

% whois -h whois.networksolutions.com brandeis.edu Registrant:

Brandeis University (BRANDEIS-DOM) Information Technology Services Waltham, MA 02454- US Domain Name: BRANDEIS.EDU Administrative Contact:

Koskovich, Bob (BK138) user@BRANDEIS.EDU +1-781-555-1212 (FAX) +1-781-555- Technical Contact, Zone Contact:

Hostmaster, Brandeis С (RCG51) hostmaster@BRANDEIS.EDU +1-781-555-1212 (FAX) +1-781-555- Billing Contact:

Koskovich, Bob (BK138) user@BRANDEIS.EDU +1-781-555-1212 (FAX) +1-781-555- Record last updated on 13-0ct-1999.

Record created on 27-May-1987.

Database last updated on 19-Dec-1999 17:42:19 EST.

Domain servers in listed order:

LILITH.UNET.BRANDEIS.EDU 129.64.99. FRASIER.UNET.BRANDEIS.EDU 129.64.99. DIAMOND.CS.BRANDEIS.EDU 129.64.2. DNSAUTH1.SYS.GTEI.NET 4.2.49. DNSAUTH2.SYS.GTEI.NET 4.2.49. Если же нужно выяснить владельца определенного диапазона IP-адре сов, то и тут поможет WHOIS:

% whois -h whois.arin.net 129.64. Brandeis University (NET-BRANDEIS) 415 South Street Waltham, MA Netname: BRANDEIS Netnumber: 129.64.0. Coordinator:

Koskovich, Bob (BK138-ARIN) user@BRANDEIS.EDU 617-555- Служба каталогов WHOIS Domain System inverse mapping provided by:

BINAH.CC.BRANDEIS.EDU 129.64.1, NIC.NEAR.NET 192.52.71. NOC.CERF.NET 192.153.156. Record last updated on 10-Jul-97.

Database last updated on 9-Oct-98 16:10:44 EOT.

The ARIN Registration Services Host contains ONLY Internet Network Information: Networks, ASN's, and related POC's.

Please use the whois server at rs.internic.net for DOMAIN related Information and nic.mil for NIPRNET Information.

В предыдущем примере применялся WHOIS-клиент из Unix, работаю щий в командной строке. В Windows NT и MacOS подобные клиенты не входят, тем не менее, это не должно остановить пользователей дан ных систем от получения доступа к нужной информации. Существует много условно бесплатных клиентов, но не так трудно с помощью мо дуля Net: : Whois создать на Perl очень простой клиент (модуль Net: : Who is первоначально был написан Чипом Салзенбергом (Chip Salzenberg), а теперь поддерживается Даной Хьюдес (Dana Hudes)). Следующий код - это лишь несколько измененная версия примера из документа ции, поставляемой вместе с модулем:

use Net::Whois;

# запрашиваем сервер, возвращая объект с результатами my $w = new Net::Whois::Domain $ARGV[0] or die "Невозможно соединиться с сервером Whois\n";

die "Никакой информации о домене $ARGV[0] не найдено\п " unless ($w->ok);

П выводим части этого объекта print "Домен: ", $w->domain, "\n";

print "Имя: ", $w->name, "\n";

print "Тег: ", $w->tag, "\n";

print "Адрес:\n", map { " $_\гГ } $w->address;

print "Страна: ", $w->country, "\n";

print "Запись создана: ".$w->record_created."\n";

print "Запись обновлена: ".$w->record_updated."\n";

# выводим серверы имен ($w->servers returns a list of lists) print "Серверы именДп", map { " $$_[0] ($$_[1])\n" } @{$w->servers};

# выводим список контактов ($w->contacts returns a hash of lists) my($c,$t);

if ($c = $w->contacts) { print "Contacts:\n";

for $t (sort keys %$c) { print " $t:\n";

212 Глава б. Службы каталогов print map { "\t$_\n" } @{$$c{$t}};

Запрос WHOIS сервера InterNIC/Network Solutions - это простой про цесс. Для возвращения результата применяется мо«дуль Net::Wh 0.

is : : Domain. Методы этого объекта, названные в соответствии с полями которые получает WHOIS-запрос, обеспечивают доступ к данным.

WHOIS предстоит сыграть значительную роль в главе 8 «Электронная почта», а сейчас перейдем к более сложным службам каталогов. Мы уже начали этот переход, переключаясь со службы Finger на WHOIS.

Между рассмотренными способами использования Finger и WHOIS су ществует важное различие - структура.

Вывод Finger отличается от реализации к реализации. И хотя сущест вуют некоторые соглашения, форму он имеет свободную. WHOIS-cep вер InterNIC/Network Solutions возвращает данные более постоянной структуры. Можно рассчитывать на то, что у каждой записи будут, по крайней мере, поля Name, Address и Domain. Модуль Net : :Whois полагается на эту структуру и анализирует результаты, разбивая их на поля. Су ществует еще один модуль Випула Вед Пракаша (Vipul Ved Prakash) Net: :Xwhois, который делает шаг вперед, обеспечивая интерфейс для анализа информации, по-разному отформатированной различными WHOIS-серверами.

И хотя в протоколе WHOIS нет никакого упоминания о полях, вызы ваемые нами модули начинают полагаться на структуру информации.

Службы каталогов, о которых пойдет речь, более серьезно относятся к этой структуре.

LDAP: сложная служба каталогов Службы LDAP (Lightweight Directory Access Protocol, облегченный протокол доступа к каталогам) и ADSI гораздо богаче и более сложны в обращении. В настоящее время существуют две популярные версии протокола LDAP (версия 2 и версия 3;

при необходимости номер вер сии будет указываться). Этот протокол быстро стал промышленным стандартом для доступа к каталогам. Системные администраторы вос пользовались протоколом LDAP, т. к. он предлагал способ централи зовать и сделать доступной всю информацию об инфраструктуре. По мимо стандартного «каталога компании» существуют такие примеры приложений:

• Шлюзы NIS-K-LDAP • Шлюзы Finger-K-LDAP • Всевозможные базы данных аутентификации (в частности, для ис пользования в Сети) р: сложная служба каталогов • Объявления о ресурсах (какие машины и периферийные устройст ва доступны) Кроме того, LDAP является базой для других сложных служб катало гов, подобных активным каталогам Microsoft (Microsoft Active Direc tory), о которых пойдет речь в разделе «ADSI (Интерфейсы служб ак тивных каталогов)».

Даже в случае, когда LDAP применяется только для ведения «домаш ней» телефонной книги, существуют веские причины научиться ис пользовать этот протокол. LDAP-серверы можно администрировать при помощи этого же протокола;

что очень напоминает серверы баз данных SQL, которые тоже можно администрировать средствами SQL.

И в этом случае Perl предлагает отличные механизмы склейки для ав томатизации задач администрирования LDAP. Но сначала нужно убе диться, что протокол LDAP разобран и понятен.

В приложении В «Десятиминутное руководство по LDAP» приводится краткое введение в LDAP для тех, кто не знаком с протоколом. Самая большая преграда, встающая перед системным администратором при изучении LDAP, - это неуклюжая терминология, унаследованная от родительских протоколов службы каталогов Х.500. LDAP является уп рощенной версией Х.500, но, к сожалению, терминология от этого лег че не стала. Стоит потратить время на приложение В и изучение терми нов - тогда вам будет проще понять, как использовать LDAP из Perl.

Программирование LDAP на Perl Как и с многими другими задачами системного администрирования в Perl, первым делом при программировании LDAP следует выбрать нужный модуль. Хотя LDAP еще не самый сложный протокол, но это уже и не обычный текстовый протокол. В результате, создать что-ни будь, «говорящее» на LDAP, задача нетривиальная. К счастью, другие авторы уже сделали эту работу за нас: Грэм Бар (Graham Barr) написал модуль Net: : LDAP, а Лейф Хедстром (Leif Hedstrom) и Клейтон Донли (Clayton Donley) создали модуль Mozilla: :LDAP (также известный как PerLDAP). Отметим некоторые различия между этими двумя модулями (табл. 6.1).

Таблица 6.1. Сра внение двух j ^DAP-модулей Net::LDAP Mozilla::LDAP (PerLDAP) Возможность Только Perl Требует Mozilla/Netscape LDAP C-SDK (исход Переносимость ный код свободно доступен). SDK компилиру ется на многих вариантах Unix, NT и MacOS Зашифрован- Да Да ные SSL-сеансы Асинхронные Только с не объектно-ориентированными API Да операции низкого уровня 214 Глава 6. Службы каталогст Оба модуля обладают функциональностью, необходимой для выполне ния обсуждаемых ниже простых задач, связанных с системным адми.

нистрированием, но предоставляют ее немного различными способа ми. Это.создает, с точки зрения обучения, редкую возможность уви.

деть, как два разных автора реализовали важные модули, примени мые в одной и той же области. Скрупулезное сравнение обоих модулей поможет разобраться с процессом их содания, что и будет показано в главе 10 «Безопасность и наблюдение за сетью». Для облегчения срав нения в большей части примеров из этого раздела приведен синтаксис обоих LDAP-модулей. Строка use modulename в тексте каждого примера подскажет, какой модуль используется на этот раз.

В демонстрационных целях мы почти равнозначно будем использо вать коммерческий сервер Netscape 4.0 Directory Server и свободно рас пространяемый сервер OpenLDAP (они находятся на http://www.netsca pe.com и http:// www.openldap.org). В состав обоих серверов входят практически идентичные утилиты командной строки, которые можно использовать для прототипирования и проверки программ на Perl.

Первоначальное LDAP-соединение Соединение с аутентификацией - это, обычно, первый шаг в любой клиент-серверной LDAP-транзакции. На «языке» LDAP это называет ся «связыванием с сервером» (binding to the server). B LDAPv2 требо валось связаться с сервером перед отправкой команд, в LDAPvS усло вия не такие жесткие.

Связывание с LDAP-сервером выполняется в контексте определенного отличительного имени (Distinguished name, DN), описанного как при вязанное отличительное имя (bind DN) для данного сеанса. Такой контекст похож на регистрацию пользователя в многопользователь ской системе. В многопользовательской системе текущее регистраци онное имя (по большей части) определяет уровень доступа пользовате ля к данным в этой системе. В LDAP именно привязанное отличитель ное имя определяет, какие данные на LDAP-сервере доступны для просмотра и изменения. Существует также специальное корневое от личительное имя (root Distinguished Name), дабы не путать его с отно сительным (Relative Distinguished Name) именем, для которого не су ществует акронима. Корневое отличительное имя имеет полный конт роль над всем деревом, что очень похоже на регистрацию с правами пользователя root в Unix или с правами пользователя Administrator в NT/2000. На некоторых серверах это имя называется manager DN.

Если клиент не предоставляет аутентификационной информации (например, DN-имя и пароль) во время связывания или вообще не свя зывается с сервером до оправки команд, это называется анонимной аутентификацией (anonymous authentication). Анонимно зарегист рированные клиенты обычно получают очень ограниченный доступ # данным на сервере.

i рдР: сложная служба каталогов В спецификации LDAPvS определяется два типа связывания: простой и SASL. В простом связывании для аутентификации используются обычные текстовые пароли. SASL (Simple Authentication and Security Layer, слой простой аутентификации и безопасности) - это расширен ный интерфейс аутентификации, определенный в RFC2222, позволя ющий авторам клиентов/серверов встраивать различные схемы аутен тификации, подобные Kerberos и одноразовым паролям. Когда клиент соединяется с сервером, он запрашивает определенный механизм аутентификации. Если сервер его поддерживает, он начнет диалог, со ответствующий такому механизму, для аутентификации клиента. Во время этого диалога клиент и сервер могут договориться об уровне бе зопасности (например, «весь трафик между нами будет зашифрован при помощи TLS»), применяемом после завершения аутентификации.

Некоторые серверы и клиенты LDAP добавляют еще один метод аутен тификации к SASL и стандартному простому способу. Этот метод яв ляется побочным продуктом использования LDAP по зашифрованным SSL (Secure Socket Layer, уровень защищенных сокетов). Для установ ки этого канала серверы и клиенты LDAP обмениваются криптографи ческими сертификатами на основе открытого ключа так же, как веб сервер и броузеры при работе по протоколу HTTPS. LDAP-серверу можно дать указание использовать в качестве аутентификационной информации только надежный клиентский сертификат (trusted cli ent's certificate). Из доступных Perl-модулей только PerLDAP предла гает LDAPS (зашифрованные SSL-соединения). В примерах, для того чтобы не слишком усложнять их, будем пользоваться только простой аутентификацией и незашифрованными соединениями.

Вот как выполняется простое соединение и его завершение средствами Perl:

use Mozilla::LDAP::Conn;

и используем пустые Sbinddn и Spasswd для анонимной связи $с = new Mozilla::LDAP::Conn($server, Sport, Sbinddn, Spasswd);

die "Невозможно соединиться с Sserver" unless $c;

$c->close();

или:

use Net::LDAP;

$c = Net::LDAP->new($server, port => Sport) or die " Невозможно соединиться с Sserver: $@\n";

ft не передаем параметры bind() для анонимной связи $c->bind($binddn, password => Spasswd) or die "Невозможно соединиться: $@\п";

$c->unbind();

216 Глава 6. Службы каталогов В M o z i l l a : : LDAP:: Conn создание нового объекта соединения также связа но с сервером. В Net: : LDAP этот процесс состоит из двух шагов. Для ини циализации соединения без выполнения привязывания в Mozilla: : LDAp необходимо использовать функцию (ldap_init()) из не объектно-ориен тированного модуля M o z i l l a : : L D A P : : A P I.

Приготовьтесь тщательно заключить в кавычки значе ния атрибутов Небольшой совет перед тем, как перейти к дальнейшему программированию на Perl: если в относительном отличи тельном имени есть атрибут, значение которого содержит один из следующих символов: «+», «(пробел)», «, », « ' », « > », « < » или «;

», необходимо либо заключить значение в кавычки, либо экранировать эти символы обратным слэ шем (\). Если значение содержит кавычки, их также нужно экранировать при помощи обратного слэша. Обратные слэ ши в значениях тоже экранируются обратными слэшами.

Если вы не будете аккуратны, то недостаток кавычек мо жет сыграть с вами злую шутку.

Выполнение поиска в LDAP Буква «D» в LDAP означает Directory (т. е. каталог), и наиболее рас пространенной операцией с каталогами является поиск. Для начала знакомства с LDAP неплохо выяснить, как искать информацию. По иск в LDAP определяется такими понятиями:

Откуда начинать поиск Это называется базовым относительным именем (base DN) или ба зой поиска (search base). Базовое DN-имя представляет собой всего лишь DN-имя элемента в дереве каталогов, от которого начинается поиск.

Где искать Это называется пространством (scope) поиска. Пространство мо жет быть трех видов: base (поиск только по базовому DN-имени), one (поиск по уровню, лежащему непосредственно под базовым DN именем, не включая само базовое DN-имя) или sub (поиск по базово му DN-имени и всему дереву, лежащему ниже).

Что искать Это называется фильтрами поиска (search filter). О фильтрах и их определении мы поговорим очень скоро.

Что возвращать С целью ускорения операций поиска можно выбрать, какие атрибу ты должны возвращаться для каждого элемента, найденного при помощи фильтров поиска. Кроме того, можно запросить, чтобы воЗ" сложная служба каталогов вращались только имена атрибутов, а не их значения. Это полезно, когда нужно узнать, у каких элементов есть данные атрибуты, но совсем не важно, что эти атрибуты содержат.

В Perl поиск выглядит примерно так (процесс соединения заменен многоточиями):

use Mozilla::LDAP::Conn;

Sentry = $c->search($basedn, $scope, $fliter);

die "Неуспешный поиск: ". $c->getErrorString()."\n" if $c->getErrorCode();

или:

use Net::LOAP;

$searchobj = $c->search(base => Sbasedn, scope => $scope, filter => $filter);

die "Неуспешный поиск, номер ошибки #".$searchobj->code() if Ssearchobj >code();

Перед тем как перейти к полному примеру, поговорим о загадочном параметре $f liter. Простые фильтры поиска имеют следующий вид:

ottribute name> Comparison operator> ottribute value> где определяется в RFC2254 как один из операто ров, перечисленных в табл. 6.2.

Таблица 6.2. Операторы сравнения LDAP Оператор Значение Точное совпадение значений. Может означать и частичное совпа дение, если в определении Ottribute value> используется * (на пример en=Tim О*).

Соответствует всем элементам, у которых есть значения для атри бута, независимо от того, каковы эти значения.

Если вместо указать *, будет проверяться нали чие именно этого атрибута в элементе (например, сп=* выберет эле менты, у которых есть атрибуты сп).

Приблизительное совпадение значений.

Больше либо равно значению.

Меньше либо равно значению.

Это очень похоже на Perl, но не заблуждайтесь. Две конструкции, ко торые могут смутить знатоков Perl, это ~= и =*. Первая из них не имеет ничего общего с регулярными выражениями;

она ищет приблизитель ное соответствие с указанным значением. В этом случае определение «приблизительное» зависит от сервера. Большинство серверов приме няют алгоритм, первоначально используемый в soundex для определе 218 Глава 6. Службы каталогов ния совпадающих значений при поиске слов, которые «произносятся как» заданное значение (в английском языке), но записываются иначе.!

Другая конструкция, которая может конфликтовать с вашими знани ями Perl, - это оператор =. Помимо проверки точного совпадения зна чений (как строковых, так и численных), оператор = можно использо вать вместе с символом * в виде префикса или суффикса в качестве символов подстановки, подобно тому как это происходит в командных интерпретаторах. Например, сп=а* получит все элементы, имена кото рых (common name) начинаются с буквы «а». Строка сп=*а* выполнит именно то, чего вы ждете, и найдет все элементы, в атрибуте сп кото рых есть буква «а».

Можно объединить в одну строку два или более простых фильтра ottribute name>, Comparison operator>, ottribute value> при помощи логических операторов, создав таким образом более сложный фильтр.

Он имеет следующий вид:

() () ()... ) Те, кто знаком с LISP, без труда разберутся с подобным синтаксисом;

всем остальным придется просто запомнить, что оператор, объединяю щий простые формы поиска, записывается первым. Чтобы найти эле менты, удовлетворяющие обоим критериям поиска А и В, нужно ис пользовать запись (&(А)(В)). Для элементов, удовлетворяющих крите риям А или В или С, следует применить (|(А)(В)(С)). Восклицатель ный знак отрицает указанный критерий: так, А и не В записывается следующим образом: ( & ( А ) ( ! В ) ). Составные фильтры можно объеди нять друг с другом, чтобы создавать фильтры поиска произвольной сложности. Вот пример составного фильтра для поиска всех Финкель штейнов, работающих в Бостоне:

(&(sn=Finkelstein)(l=Boston)) Следующий фильтр ищет человека, чья фамилия либо Финкель штейн, либо Хайндс:

(|(sn=Finkelstein)(sn=Hinds)) Для поиска всех Финкельштейнов, работающих не в Бостоне:

(&(sn=Finkelstein)(!(l=Boston))) Для поиска всех Финкельштейнов или Хайндсов, работающих не в Бостоне:

(&(|(sn=Finkelstein)(sn=Hinds))(!l=Boston)) Тот, кто захочет поэкспериментировать с алгоритмом soundex, может вос пользоваться модулем Марка Милке (Mark Mielke) Text:. Soundex.

1_рАР: сложная служба каталогов Вот два примера программ, принимающих имя LDAP-сервера и фильтр и возвращающих результаты запроса:

use Mozilla::LDAP::Conn;

Sserver = $ARGV[0];

Sport = getservbyname("ldap","tcp") || "389";

Sbasedn = "c=US";

$scope = "sub";

$c = new Mozilla::LDAP::Conn($server, $port, "","");

» анонимное соединение die "Невозможно связаться с $server\n" unless $c;

Sentry = $c->search($basedn, $scope, $ARGV[1]);

die "Ошибка поиска: ". $c->getErrorString()."\n" if $c->getErrorCode();

П обрабатываем полученные от search() значения while (Sentry) { $entry->printl_DIF();

Sentry = $c->nextEntry();

> $c->close();

use Net::LOAP;

use Net::LDAP::LDIF;

Sserver = $ARGV[0];

Sport = getservbyname("ldap", "tcp") || "389";

Sbasedn = "c=US";

Sscope = "sub";

$c = new Net::LDAP($server, port=>$port) or die "Невозможно соединиться с Sserver: $@\n";

$c->bind() or die "Unable to bind: $@\n";

# анонимное соединение Ssearchobj = $c->search(base => Sbasedn, scope => Sscope, filter => $ARGV[1]);

die " Неуспешный поиск, номер ошибки ft".$searchobj->code() if Ssearchobj >code();

и обрабатываем полученные от search() значения if (Ssearchobj){ Sldif = new Net::LDAP::LDIF("-");

$ldif->write(Ssearchobj->entries());

$ldif->done();

} А вот отрывок из получаемых данных:

$ Idapsrch ldap.bigfoot.com '(sn=Pooh)' 220 Глава 6. Службы каталОГОй t dn: cn="bear pooh",mail=poohbear219@hotmail.com,c=US,o=hotmail.com mail: poohbear219@hotmail.com en: bear pooh o: hotmail.com givenname: bear surname: pooh Перед тем как улучшить этот пример, посмотрим на код, обрабатыва ющий результаты, полученные от search(). Это одно из тех мест, где модули отличаются моделью программирования. Оба примера возвра щают одну и ту же информацию в формате LDIF (LDAP Data Interchan ge Format, формат обмена данными LDAP), о котором речь пойдет поз же, но данные они получают совершенно разными способами.

Модель M o z i l l a : : LDAP остается справедливой для подпрограмм анализа поиска, описанных в спецификации С API в RFC1823. Если поиск был успешным, возвращается первый найденный элемент. Для просмотра результатов необходимо последовательно запросить следующие эле менты. Вывод содержимого каждого получаемого элемента выполняет метод p r i n t L D I F ( ).

Модель программирования N e t : : LDAP имеет больше сходства с опреде лением протокола из RFC2251. Результаты поиска LDAP возвращают ся в объекты сообщений. Для получения списка элементов из этих па кетов в предыдущем примере использовался метод e n t r i e s ( ). Вывод всех элементов вместе выполняет метод из смежного модуля N e t : : L D A P : :LDIF. Для последовательного вывода всех элементов, как было с printLDIF() в первом примере, можно использовать похожий ме тод write(), но показанный выше вызов более эффективен.

Немного поработаем с предыдущим примером. Как уже отмечалось в данной главе, поиск можно выполнять быстрее, ограничив количество возвращаемых в результате атрибутов. С модулем Mozilla: : LDAP это на столько же просто, насколько просто добавить дополнительные пара метры в вызов метода search ():

use Mozilla::LDAP:-.Conn;

Sentry = $c->search($basedn,$scope,$ARGV[1],0,@attr);

Первый дополнительный параметр - это логический флаг, определяю щий, будут ли значения атрибутов опущены в результатах поиска Значение по умолчанию - ложь (0), т. к. в большинстве случаев нас интересуют не только имена атрибутов.

Следующий дополнительный параметр — это список имен возвраШа' емых атрибутов. Знатоки Perl заметят, что список внутри списка ив" терпелируется, так что последняя строка эквивалентна строке № можно так и прочитать):

Р: сложная служба каталогов Sentry = $c->search($basedn,$scope,$ARGV[1],0,$attr[0],$attr[1],$attr[2] );

Если мы изменим строку первоначального примера:

Sentry = $c->search($basedn,$scope,$ARGV[1]);

на:

@attr = qw(mail);

Sentry = $c->search($basedn,$scope,$ARGV[1],0,@attr);

то получим следующий результат, в котором для элемента будут пока заны только атрибуты DN и mail:

dn: cn="bear pooh",mail=poohbear219@hotmail.com,c=US,o=hotmail.com mail: poohbear219@hotmail.com Изменения, которые необходимо внести, чтобы получить определен ные атрибуты средствами N e t : : LDAP, тоже не сложны:

use Net::LDAP;

# можно было бы добавить "typesonly => 1" для получения только и типов атрибутов, как и в предыдущем случае для первого # необязательного параметра Ssearchobj = $c->search(base => Sbasedn, filter => $ARGV[1], attrs => \@attr);

Обратите внимание, что N e t :. LDAP принимает ссылку на массив, а не са ми значения массива, как в случае с M o z i l l a : : LDAP.

Представление элементов в Perl Эти примеры программ могут вызвать ряд вопросов о представлении элементов и о работе с ними, — в частности, как сами элементы хранят ся и обрабатываются в программе на Perl. Дополняя рассказ о поиске в LDAP, ответим на некоторые из них, хотя позже в разделе о добавле нии и изменении элементов подобные вопросы будут рассматриваться подробно.

Если Mozilla: :LDAP выполняет поиск и возвращает экземпляр объекта элемента, то можно обратиться к отдельным атрибутам этого элемен та, применяя синтаксис, используемый в Perl при работе с хэшами списков. $entry->{attributename} - это список1 значений атрибута с та ким именем. Я выделил слово «список», т. к. атрибуты даже с одним Если точнее, то ссылка на список (как, впрочем, далее явствует из текста). - Примеч. науч. ред.

222 Глава 6. Службы каталогов значением хранятся в анонимном списке, на который ссылается этот ключ хэша. Для получения единственного значения атрибута необхо димо использовать запись $entry->{attributename}->[0]. Некоторые ме тоды модуля Mozilla: : L D A P : : E n t r y возвращают атрибуты элемента (табл. 6.3).

Таблица 6.3. Методы Mozilla::LDAP::Entry Возвращает Вызов метода true, если элемент имеет атрибут с та $entry->exists($attrname) ким именем Sentry->hasValue($attrname,$attrvalue) true, если элемент имеет названный атрибут с указанным значением Sent ry->matchValue($att rname,$att rvalue) Так же, как и предыдущий, только ищется соответствие регулярному выражению, определенному в ка честве значения атрибута $entry->size($attrname) Количество значений этого атрибута (обычно 1, если только атрибут не об ладает несколькими значениями) Отдельные методы имеют дополнительные параметры, узнать о кото рых можно в документации по Mozilla: : L D A P : : Entry.

Из программы видно, что методы для доступа к атрибутам элементов в Net : : LDAP несколько отличаются. После проведения поиска все резуль таты инкапсулируются в один объект. Получить отдельные атрибуты каждого элемента из этого объекта можно, применив один из двух спо собов.

Во-первых, модуль может преобразовать все полученные элементы в од ну большую структуру данных, доступную пользователям. $searchobj-> as_struct() возвращает структуру данных, представляющую собой хэш хэшей списков. Метод возвращает ссылку на хэш, ключами кото рого являются DN-имена полученных элементов. Значения ключей это ссылки на анонимные хэши, ключами которых являются имена атрибутов. Ключам соответствуют ссылки на анонимные массивы, со держащие значения данных атрибутов (рис. 6.1).

Вывести первое значение атрибута сп для всех элементов из структуры данных позволяет такой код:

$searchstruct = $searchobj->as_struct;

for (keys %$searchstruct){ print $searchstruct->{$_}{cn}[0], "\n";

Можно также сначала использовать один из этих методов и выделить объекты для отдельных элементов из объекта, возвращаемого в Ре" зультате поиска:

1_0ДР: сложная служба каталогов Sentry {uid=rsmith,ou=system,ou=people,c=ccs,dc=hogwarts,dc=edu| = §[rsmith] ^[Boston] }= I phones I = ref 4 [ 617-555-1212,617-555-2121] Рис. 6.1. Структура данных, возвращаемая методом as_struct() # возвращает указанный элемент Sentry = $searchobj->entry($entrynum);

П действует подобно shift() в Perl для списка элементов Sentry = $searchobj->shift_entry;

П действет подобно рор() в Perl для списка элементов Sentry = $searchobj->pop_entry;

# возвращает все элементы в виде списка gentries = $searchobj->entries;

После того как получен объект элемента, можно применить один из указанных методов (табл. 6.4).

Таблица 6.4. Методы элементов Net::LDAP Вызов метода Возвращает $entry->get($attrname) Значение атрибута в указанном элементе $entry->attributes() Список имен атрибутов для этого элемента Можно объединить эти методы в довольно четкую цепочку. Например, следующая строка получает значение атрибута сп первого возвраща емого элемента:

$value = $searchobj->entry(1)->get(cn) Теперь, когда вы умеете получать доступ к отдельным атрибутам и значениям, возвращаемым в результате поиска, посмотрим, как по местить подобные данные в каталог сервера.

Добавление элементов при помощи LDIF Перед тем как рассматривать общие методы добавления элементов в каталог LDAP, давайте вспомним о названии этой книги и рассмотрим технологию, полезную, в основном, системным администраторам и ад министраторам каталогов. Она использует формат данных, помогаю 224 Глава б. Службы каталог0в щий загрузить данные на сервер каталогов. Мы рассмотрим способы записи и чтения LDIF.

LDIF, определенный в нескольких стандартах RFC, предлагает прос тое текстовое представление для элементов каталогов. Вот простой пример LDIF из последнего чернового стандарта Гордона Гуда (Gordon Good):

version: dn: cn=Barbara Jensen, ou=Product Development, dc=airius, dc=com objectclass: top objectclass: person objectclass: organizationalPerson en: Barbara Jensen en: Barbara J Jensen en: Babs Jensen sn: Jensen uid: bjensen telephonenumber: +1 408 555 description: A big sailing fan.

dn: cn=Bjorn Jensen, ou=Accounting, dc=airius, dc=com objectclass: top objectclass: person objectclass: organizationalPerson en: Bjorn Jensen sn: Jensen telephonenumber: +1 408 555 Формат должен быть вам понятен. После номера версии LDIF перечис лены DN-имена каждого элемента, определения objectclass и атрибу ты. Разделителем элементов является пустая строка.

Наша первоочередная задача - научиться создавать файлы LDIF из су ществующих элементов каталогов. Кроме того что мы обеспечим себе данные для следующего раздела (в котором рассматривается чтение файлов LDIF), такая возможность позволит использовать LDIF-файлы любым способом при помощи обычных операций Perl, работающих с текстом.

При обсуждении поиска в LDAP было показано, как вывести элемен ты в формате LDIF. Изменим код предыдущего примера так, чтобы он записывал данные в файл:

use Mozilla::LDAP::Conn;

use Mozilla::LDAP::LDIF;

<выполняем связывание и ПОИСКУ В период написания книги они были доступны в черновом варианте.

Примеч. науч. ред.

сложная служба каталогов open(LDIF, ">$l_DIFfile ") or die ""Невозможно записать в $LDIFfile:$! \n";

П создаем новый объект LDIF и передаем дескриптор $ldif = new Mozilla: :LDAP: :LDIF(\.LDIF);

while (Sentry) { $ldif->writeOneEntry( Sentry);

Sentry = $c->nextEntry();

$c->close();

close(LDIF);

Модуль Mozilla : : LDAP располагает методом writeEntries( ), позволяющим принять массив элементов и записать их подобным образом.

Используя Net : : LDAP, изменить первоначальную программу еще про ще. Вместо:

Sldif = new Net:: LDAP: :LDIF("-");

применим:

Sldif = new Net: : LDAP: :LDIF($filename,"w");

для записи выводимых данных в указанный файл, а не на стандарт ный вывод.

Теперь совершим обратное действие и прочитаем файлы LDIF (вместо того, чтобы в них записывать). Методы объекта из модуля, о котором пойдет речь, позволяют легко добавить элементы в каталог. При чтении LDIF- данных из Perl осуществляется процесс, обратный то му, который применялся в предыдущих примерах для записи. Каждый список элементов считывается и преобразуется в экземпляр объекта элемента, который затем передается соответствующему методу измене ния каталога. Оба модуля считывают и анализируют данные, так что процесс довольно прост. Например, с использованием Mozilla: : LDAP можно написать такую программу:

use Mozilla: :LDAP: :Conn;

use Mozilla: :LDAP::LDIF;

Sserver = $ARGV[0];

SLDIFfile = $ARGV[1];

Sport = getservbyname("ldap", "tcp") | "389";

| Предполагается наличие строки «$LDIFfile=$ARGV[l];

». - Примеч. науч.

ред.

Файлы LDIF могут содержать специальную директиву changetype:, которая говорит о том, что информацию об элементе необходимо удалить или изме нить, а не просто добавить. Из двух применяемых модулей только Net: : LDAP напрямую поддерживает changetype: через метод Net: : L D A P : : L D I F : : read_cmd().

226 Глава б. Службы каталогов Srootdn = "cn=Manager, ou=Systems, dc=ccs, dc=hogwarts, dc=edu";

$pw = "secret";

# считываем файл LDIF, указанный вторым аргументом в и командной строке open(LDIF,"SLDIFfile") or die "Невозможно открыть $LDIFfile:$!\n";

Sldif = new Mozilla::LDAP::LDIF(\*LDIF);

tt анализируем все элементы, сохраняем их в ©entries ©entries = Sldif->readEntries();

close(LDIF);

n неанонимное соединение $c = new Mozilla::LDAP::Conn($server,Sport,Srootdn,$pw);

die "Невозможно соединиться с $server\n" unless $c;

# обходим в цикле список элементов, добавляя их на каждой итерации for (@entries){ $c->add($_);

» добавляем этот-элемент в каталог warn "Ошибка при добавлении ". $_->getDN().": ".$c->getErrorString()."\n" if $c->getErrorCode();

$c->close();

В этом примере отражено применение методов getErrorCodeO и getEr r o r S t r i n g ( ) для получения любых ошибок (и сообщения о них), проис ходящих в процессе загрузки данных. Ошибки могут появиться по це лому ряду причин, включая дублирование DN/RDN-имен, нарушение схемы, проблемы с иерархией и т. д., так что очень важно проверить их при изменении элемента.

И еще одно замечание, перед тем как перейти к рассмотрению Net: : LDAP: в этом и последующих примерах в демонстрационных целях используется корневое DN-имя (manager DN). Обычно же, если можно избежать применения такого контекста в повседневной работе, это следует делать. Образец правильной настройки LDAP-сервера включа ет создание могущественной учетной записи или группы учетных за писей (которые не являются корневым DN-именем) для управления каталогами. При создании собственных приложений не забывайте этот совет.

Для N e t : : LDAP программа, добавляющая LDIF-элемент, выглядит та ким образом:

use Net::LDAP;

use Net::LDAP::LDIF;

Sserver = $ARGV[0];

SLDIFfile = $ARGV[1];

Sport = getservbyname("ldap","tcp") || "389";

Srootdn = "cn=Manager, ou=Systems, dc=ccs, dc=hogwarts, dc=edu";

$pw = "secret";

сложная служба каталогов # считываем файл LDIF, указанный вторым аргументом в П командной строке # последний параметр "г" для чтения, "w" для записи $ldif = new Net::LDAP::LDIF($LDIFfile,"i-);

@entries = $ldif->read();

$c = new Net::LDAP($server, port => Sport) or die "Невозможно соединиться с Sserver: $@\n";

$c->bind(dn -> Srootdn, password => $pw) or die "Ошибка при связывании:

for (@entries){ $res = $c->add($_);

warn "Ошибка при добавлении ". $_->dn().": код ошибки ".$res->code. "\n" if $res->code();

$c->unbind();

Несколько замечаний к этому примеру:

• При желании можно объединить два оператора чтения LDIF в одну строку:

©entries = new Net: :LDAP: :LDIF($LDIFfile, "r")->read;

• Если попытка add() не удалась, следует запросить десятичный код ошибки. Например, возможно такое сообщение:

Ошибка при добавлении cn=Ursula Hampster, ou=Alumni Association, ou=People, o=University of Michigan, c=US: код ошибки Если сервер возвращает текстовое сообщение, метод e r r o r ( ) получа ет его так же, как это было в примере с Mozilla : : LDAP:

print "Сообщение об ошибке: ". $res->error. "\n";

Безопаснее было бы проверить код возврата, как в предыдущем примере, поскольку серверы LDAP не всегда передают текстовые сообщения об ошибках в своих ответах. Если нужно преобразовать десятичный код ошибки в сообщение об ошибке или в название со общения, модуль Net : : LDAP: : Util предлагает для этого две подпрог раммы: l d a p _ e r r o r _ t e x t ( ) и l d a p _ e r r o r _ n a m e ( ).

• 68 в десятичной системе счисления - это 44 в шестнадцатеричной.

Следовательно, приведенная ниже строка из Constant.pm имеет прямое отношение к нашему случаю:

sub LDAP_ALREADY_EXISTS () { 0x44 } Теперь нам известно, что мы пытались добавить элемент из файла LDIF, который уже существовал в каталоге.

228 Глава б. Службы каталог0в Добавление элементов при помощи стандартных операций LDAP На этот раз мы заглянем вглубь процесса добавления элементов, чтобы научиться создавать и заполнять элементы вручную, не считывая их из файла, как в прошлый раз. Два модуля обрабатывают этот процесс по-разному, поэтому работать с ними следует отдельно. Модуль Mozii 1а: : LDAP ближе к классическому стилю объектно-ориентированного программирования. Создадим новый экземпляр объекта:

use Mozilla::LDAP::Entry;

$e = new Mozilla::LDAP::Entry() и начнем его заполнять. Следующий шаг - дать элементу отличитель ное имя DN. Это можно сделать при помощи метода setDN():

$e->setDN("uid=jay, ou=systems, ou=people, dc=ccs, dc=hogwarts, dc=edu");

Для заполнения других атрибутов, таких как objectClass, следует пойти по одному из двух путей. Можно сделать ряд предположений от носительно структуры данных, используемой для представления эле мента (по существу, это хэш списков), и заполнить ее напрямую:

$e->{cn} = ['Jay Sekora 1 ];

В данном случае используется имя атрибута в качестве ключа хэша и ссылка на анонимный массив, хранящий данные. Модуль M o z i l l a : : LDAP ожидает, что значениями хэша будут ссылки на массив, а не сами дан ные, так что следующее, хоть и выглядит заманчиво, но будет невер ным:

# воплощенное зло (или, по крайней мере, просто неверно) $e->{cn} = 'Jay Sekora';

В качестве альтернативы можно действовать наверняка и применять метод объекта для добавления данных:

$e->addValue('en', 'Jay Sekora 1 );

Для добавления нескольких значений атрибуту нужно повторно вызы вать метод addValue():

$e->addValue('title', 'Unix SysAdmin');

$e->addValue('title', 'Part-time Lecturer');

Мне больше по душе второй подход, т. к. при его использовании мене вероятно, что программа перестанет работать, если в следующих вер сиях модуля изменится способ представления данных.

После того как элемент заполнен, можно вызвать метод add() для вИ^ сения его в каталог. Вот маленький сценарий, который добавляет эле LDAP;

сложная служба каталогов мент в каталог. В качестве аргументов командной строки он принима ет имя сервера, идентификатор пользователя (будет использоваться как часть отличительного имени) и общее имя:

use Mozilla::LDAP::Conn;

Sserver = $ARGV[0];

Sport = getservbyname("ldap", "tcp") || "389";

Ssuffix = "ou=People, ou=Systems, dc=ccs, dc=hogwarts, dc=edu";

$rootdn = "cn=Manager, ou=Systems, dc=ccs, dc=hogwarts, dc=edu";

$pw = "secret";

# неанонимное соединение $c = new Mozilla::LDAP::Conn($server,Sport,Srootdn,$pw);

die "Невозможно соединиться с $server\n" unless $c;

$e = new Mozilla::LDAP::Entry;

tt DN-имя - это идентификатор пользователя плюс суффикс, # определяющий, куда поместить его в дереве каталогов $e->setDN("uid=$ARGV[1],$suffix");

$e->addValue('uid', $ARGV[1]);

$e->addValue('cn', $ARGV[2]);

$c->add($e);

die "Ошибка при добавлении: ". $c->getErrorString()."\n" if $c >getErrorCode();

Обратите внимание, что в программе не выполняется проверка оши бок при вводе. Если вы пишете сценарий, который действительно мо жет использоваться в интерактивном режиме, необходимо проверять вводимые данные, чтобы убедиться, что в них нет неэкранированных специальных символов, подобных запятым. Обратитесь к ранее приве денному «совету с совой» за разъяснениями о том, как заключать в ка вычки значения атрибутов.

Теперь перейдем к Net: : LDAP. При желании процесс добавления эле ментов для Net: : LDAP может быть менее объектно-ориентированным. В него входят модуль E n t r y ( N e t : : LDAP: : E n t r y ) и конструктор для эк земпляра объекта элемента. Однако он содержит еще одну функцию add(), которая способна принимать структуру данных для добавления элемента за один шаг:

$res = $c->add( dn => 'uid=jay, ou=systems, ou=people, dc=ccs, dc=hogwarts, dc=edu', attr => [ 'en' => 'Jay Sekora', 'sn => 'Sekora', 'mail' => 'jayguy@ccs.hogwarts.edu', 'title'=> ['Sysadmin1,'Part-time Lecturer'], 'uid 1 => 'jayguy', die "невозможно добавить, код ошибки ft". $res->code() if $res->code();

230 Глава 6. Службы каталоГОй На этот раз add() передается два аргумента.1 Первый - это DN-имя дЛа элемента;

второй - ссылка на анонимный массив пар атрибут-значе ние. Обратите внимание, что атрибуты с несколькими значениями например title, определяются при помощи вложенного анонимного массива. Тем, кто привык работать со структурами данных в Perl и ко му не нравится объектно-ориентированный стиль программирования такой подход придется больше по душе.

Удаление элементов Удаление элементов из каталога - это простое дело (и необратимое, так что будьте осторожны). Вот отрывок программы, из которой, для краткости, снова удален код, реализующий соединение с сервером:

use Mozilla::LDAP::Conn;

8 если у вас есть элемент, вы можете использовать и $c->delete($entry->getDN()) $c->delete($dn) or die "Невозможно удалить элемент: ". $c->getErrorString()."\n";

use Net::LDAP;

$res = $c->delete($dn);

die "Невозможно удалить, код ошибки 8".$res->code() if $res->code();

Важно обратить внимание на то, что в обоих модулях delete( )удаляет по одному элементу за один раз. Если необходимо убрать поддерево цели ком, сначала следует найти все дочерние элементы этого поддерева, ис пользуя пространство sub или one, а затем обойти в цикле возвращаемые значения, удаляя элементы на каждой итерации. После того как унич тожены дочерние элементы, можно удалить вершину этого поддерева.

Изменение имен элементов Последние операции с LDAP, которые мы рассмотрим, касаются двух типов изменений элементов LDAP. Первый тип - это изменение DN- и RDN-имен. Преобразовать RDN-имя элемента просто, и эта операция поддерживается обоими модулями. Вот версия для Mozilla: : LDAP:

use Mozilla::LDAP::Conn;

$c->modifyRDN($newRDN,$oldDN,$delold) or die "Невозможно переименовать элемент:". $c->getErrorStririg(). "\n";

Точнее говоря, с точки зрения синтаксиса Perl, передается четыре аргумен та. Однако их можно рассматривать как два именованных аргумента. " Примеч. науч. ред.

«р. сложная служба каталогов В приведенном отрывке все должно быть понятно, за исключением па раметра Sdelold метода m o d i f y R D N ( ). Если он равен true, то LDAP-библи отеки удалят из элементов значения, совпадающие с измененными RDN-именами. Например, если первично в RDN-имени элемента со держался атрибут 1 (от «location», местоположение), но само RDN-имя было изменено, то старый атрибут 1 элемента будет удален и останется только новое значение.

Вот эквивалентный вариант для переименования элемента в N e t : : LDAP:

use N e t : : L D A P ;

$res = $c->moddn($oldDN, newrdn => SnewRDN, deleteoldrdn => 1);

die "Невозможно переименовать, код ошибки #".$res->code() if $res->code();

В действительности метод m o d d n ( ) модуля N e t : : L D A P может гораздо больше, чем показано в предыдущем примере. До сих пор изменялось только RDN-имя элемента, в то время как местоположение элемента в иерархии дерева каталогов оставалось прежним. В LDAP версии 3 по явилась более мощная операция для переименования, позволяющая произвольным образом менять местоположение элемента в дереве ка талогов. Метод m o d d n ( ), вызванный с дополнительным параметром new s u p e r i o r, предоставляет доступ к такой возможности. Если добавить параметр таким образом:

Sresult = $c->moddn($oldDN, newrdn => $newRDN, deleteoldrdn => 1, newsuperior => $parentDN);

die "Невозможно переименовать, код ошибки #".$res->code() if $res->code();

то элемент из SoldDN будет перенесен и станет дочерним элементом DN имени, определенного в SparentDN. Гораздо эффективнее использовать этот метод, а не последовательность a d d ( ) или delete(), как требова лось раньше, для перемещения элементов в дереве каталогов, но по добная возможность поддерживается не всеми LDAP-серверами. В лю бом случае, если вы скрупулезно проектируете структуру дерева ката логов, вам реже придется переносить элементы с места на место.

Изменение атрибутов элемента Теперь перейдем к более распространенным операциям — изменению атрибутов и значений атрибутов элемента. В этом случае тоже сущест вуют значительные различия между модулями Mozilla: : LDAP и Net: :LDAP. Применяя Mozilla: :LDAP для изменения атрибута элемента, 232 Глава б. Службы каталогс>в необходимо использовать один из методов, представленных табл. 6.5.

Таблица 6.5. Методы изменения элементов в Mozilla::LDAP Действие Метод $entry->addValue($attrname, Добавляет указанное значение заданно^ му атрибуту в указанном элементе.

$attrvalue) $entry-> reraoveValue($attrnairie, Удаляет указанное значение для задан $attrvalue) ного атрибута указанного элемента. Если это значение единственное для атрибута то удаляется и весь атрибут.

$entry-> setValue($attrname, Изменяет значения указанного атрибута в заданное значение или значения.

$attrvalue1,...) Удаляет указанный атрибут (вместе со $entry-> reraove($attrname) значениями) из элемента.

После того как внесены все изменения элементов (при помощи пере численных методов), нужно вызвать метод update() для данного LDAP соединения, чтобы распространить эти изменения на сервер катало гов. update() вызывается со ссылкой на элемент в качестве аргумента (т. е. $r»update($entry)).

Применим эти методы для глобального поиска и замены. Рассмотрим такой сценарий: один из отделов вашей компании переводят из Босто на в Индиану. Эта программа изменит все элементы, местоположени ем которых является Бостон:

use Mozilla::LDAP::Conn;

Sserver = $ARGV[0];

Sport = getservbyname("ldap", "top") || "389";

Sbasedn = "dc=ccs,dc=hogwarts,dc=edu";

Sscope = "sub";

$rootdn = "cn=Manager, ou=Systems, dc=ccs, dc=hogwarts, dc=edu";

$pw = "secret";

и неанонимное соединение $c = new Mozilla::LDAP::Conn($server,Sport,$rootdn,$pw);

die "Невозможно соединиться с сервером $server\n" unless $c;

# обратите внимание, что мы запрашиваем как можно меньше и информации для ускорения поиска Sentry = $c->search($basedn,Sscope, "(l=Boston)", 1, " ;

) die "Ошибка поиска:". Sc->getErrorString()."\n" if Sc->getErrorCode();

if ($entry){ -.-. - --,.

while($entry){ Sentry->removeValue("l","Boston");

1_рАР: сложная служба каталогов $entry->addValue("l", "Indiana");

$c->update($entry);

die "Ошибка при обновлении:". $c->getErrorString(). "\n" if $c->getErrorCode();

Sentry = $c->nextEntry();

$c->close();

Для изменения элементов в Net : : LDAP применяется другой подход. В нем все только что рассмотренные методы модуля Mozilla : : LDAP объеди нены в одном «суперметоде» modify(). Параметры, передаваемые это му методу, и определяют его функциональность (табл. 6.6).

Таблица 6.6. Методы для изменения элементов в Net::LDAP Параметр Действие Добавляет указанный элемент с задан add => {Sattrname => Sattrvalue} ным значением.

Добавляет указанный атрибут с задан add => {$attrname => [$attrvalue1, ным набором значений.

$attrvalue2...]} Удаляет указанный атрибут с заданным delete => {$attrname => Sattrvaliie} значением.

I Удаляет атрибут или набор атрибутов delete => {$attrname => []} независимо от их значений.

delete => [$attrname1,$attrname2...] replace => {Sattrname => Sattrvalue} Действует, как add, только заменяет те кущее значение указанного атрибута.

Если Sattrvalue является ссылкой на пустой анонимный список ([]), метод становится синонимом для приведенной выше операции удаления.

Обязательно обратите внимание на знаки пунктуации в предыдущей таблице. Некоторые параметры принимают ссылки на анонимные хэ ши, другие - на анонимные массивы. Если их перепутать, трудностей не миновать.

Можно объединять несколько таких параметров в одном и том же вы зове modifyO, но это представляет собой потенциальную проблему.

Когда m o d i f y ( ) вызывается с набором параметров, например, так:

$c->modify($dn,replace => {'Г => "Medford"}, add =>{'!' => "Boston"}, add => { ! => "Cambridge"});

'' нет никаких гарантий, что указанные операции добавления будут вы полняться после замены. Если необходимо, чтобы операции выполня лись в определенном порядке, можно применять синтаксис, подобный только что рассмотренному. Вместо использования набора дискрет 234 Глава 6. Службы каталоги ных параметров можно передать единственный массив, содержат^ очередь команд. Вот как -это работает: modifyO принимает параметп changes, значение которого- список. Данный список считается набо ром пар. Первая половина пары - это операция, которую необходим выполнить, вторая половина - ссылка на анонимный массив, содеп жащий данные для этой операции. Например, если мы хотим гаранти ровать, что операции из предыдущего фрагмента кода выполнятся в нужном порядке, то можем написать:

$c->modify($dn, changes => [ replace => [ => "Medford"], Т add =>['!' => "Boston"], add => [! => "Cambridge"] '' ]):

Внимательно посмотрите на пунктуацию: она отличается от других параметров, которые приводились раньше.

Учитывая информацию, передаваемую функции modify( ), можно пере писать для Net : : LDAP предыдущую программу, меняющую Бостон на Индиану:

use Net: :LDAP;

Sserver = $ARGV[0];

Sport = getservbyname("ldap", "tcp") | "389";

| $basedn = "dc=ccs,dc=hogwarts,dc=edu";

Sscope = "sub";

$rootdn = "cn=Manager, ou=Systems, dc=ccs, dc=hogwarts, dc=edu";

$pw = "secret";

$c = new Net: :LDAP($server, port => Sport) or die "Невозможно соединиться с сервером Sserver: $@\n";

$c->bind(dn => Srootdn, password => $pw) or die "Ошибка при соединении:

$@\n";

Ssearchobj = $c->search(base => Sbasedn, filter => "(l=Boston)", scope => Sscope, attrs => [''], typesonly => 1);

die "Ошибка поиска: ". $searchobj->error(). "\n" if ($searchobj->code()):

if (Ssearchobj ){ ©entries = $searchobj->entries;

for (@entries){ $res=$c->modify($_->dn(), # dn() получает DN-имя этого элемента delete => {"1" => "Boston"}, add => {"1" => "Indiana"});

die "Невозможно изменить, код ошибки S".$res->code() if $res->code()> $c->unbind();

: сложная служба каталогов Собираем все вместе Теперь, когда нам известны все основные LDAP-функции, напишем не сколько небольших сценариев для системного администрирования. Мы импортируем базу данных машин из главы 5 «Службы имен TCP/IP» на сервер LDAP и затем сгенерируем некую полезную информацию, основываясь на LDAP-запросах. Вот пара выдержек из этого простого файла (для того только, чтобы напомнить вам формат):

name: shimmer address: 192.168.1. aliases: shim shimmy shimmydoodles owner: David Davis department: software building: main room: manufacturer: Sun model: UltraGO name: bendir address: 192.168.1. aliases: ben bendoodles owner: Cindy Coltrane department: IT building: west room: manufacturer: Apple model: 7500/ Первое, что нужно сделать, - приготовить сервер каталогов для при ема этих данных. Мы будем использовать нестандартные атрибуты, так что придется обновить схему сервера. Различные серверы выпол няют это по-разному. Например, сервер каталогов Netscape имеет сим патичную графическую консоль Directory Server Console для подоб ных изменений. Другие серверы требуют внесения изменений в текс товые конфигурационные файлы. Работая с OpenLDAP, можно ис пользовать нечто подобное в файле, включенном основным конфигурационным файлом для определения собственных пользова тельских классов объектов для машины:

objectclass machine requires objectClass, en allows address, aliases, owner, department, Глава 6. Службы каталогов building, room, manufacturer, model После того как сервер настроен нужным образом, можно подумать об импортировании данных. Один из вариантов- провести загрузку большой единой операцией с помощью LDIF. Если приведенный выше отрывок из базы данных напомнил вам о формате LDIF, значит, вы на правильном пути. Эта схожесть упрощает преобразование. Тем не ме нее, нужно остерегаться ловушек:

Продолжающиеся строки В нашей базе данных нет элементов, значения которых занимали бы несколько строк, иначе следовало бы убедиться, что вывод удов летворяет стандарту LDIF. Стандарт LDIF требует, чтобы все длин ные строки начинались строго с одного пробела.

Разделители элементов Между элементами в базе данных в качестве разделителя использу ется симпатичная последовательность -=-. Два разделителя строк (т. е. пустая строка) должны находиться между элементами LDIF, так что нужно будет удалить эту последовательность из вводимых данных.

Разделители атрибутов В настоящее время в наших данных есть только один атрибут с не сколькими значениями: aliases (псевдонимы). LDIF обрабатывает многозначные атрибуты, перечисляя каждое значение на отдель ной строке. Если встретится несколько атрибутов, то понадобится специальный код, печатающий для каждого значения отдельную строку. Если бы не эта особенность, программа, преобразующая наш формат в LDIF, представляла бы собой одну строку кода на Perl.

Но даже и с этими ловушками программа преобразования на удивле ние проста:

Sdatafile = "database";

$recordsep = "-=-\n";

$suffix = "ou=data, ou=systems, dc=ccs, dc=hogwarts, dc=edu";

Sobjectclass = «EOC;

objectclass: top objectclass: machine EOC open(DATA,$datafile) or die "Невозможно открыть $datafile:$!\n";

П Модули Perl не работают с этим, даже если в спецификации сказано обратное # print "version: 1\n";

И пдр: сложная служба каталогов while () { # выводим заголовок для каждого элемента if (/name:\s*(..)/){ print "dn: cn=$1, $suffix\n";

print $objectclass;

print "en: $1\n";

next;

} ft обрабатываем многозначный атрибут aliases if (s/"aliases:\s*//){ ©aliases = split;

foreach $name (@aliases){ print "aliases: $name\n";

} next;

} ft обрабатываем конец разделителя записей if ($_ eq $recordsep){ print "\n";

next;

} # в противном случае просто печатаем найденный атрибут print;

close(DATA);

Если выполнить эту программу, то она выведет файл LDIF, выглядя щий примерно так:

dn: cn=shimmer, ou=data, ou=systems, dc=ccs, dc=hogwarts, dc=edu objectclass: top objectclass: machine en: shimmer address: 192.168.1. aliases: shim aliases: shimmy aliases: shimmydoodles owner: David Davis department: software building: main room: manufacturer: Sun model: Ultra dn: cn=bendir, ou=data, ou=systems, dc=ccs, dc=hogwarts, dc=edu objectclass: top objectclass: machine en: bendir address: 192.168.1. aliases: ben 238 Глава 6. Службы каталогов aliases: bendoodles owner: Cindy Coltrane department: IT building: west room: manufacturer: Apple model: 7500/ Имея этот LDIF-файл, можно применять одну из программ, распрост раняемых с сервером, для загрузки этих данных на сервер. Например, Idif2ldbm, входящий в состав обоих серверов OpenLDAP и Netscape Di rectory Server, считывает LDIF-файл и напрямую импортирует его в формат сервера каталогов, избавляя от необходимости проходить че рез LDAP. Хотя эта программа используется только при неработаю щем сервере, она может обеспечить самый быстрый способ загрузки большого количества данных. Если нельзя остановить сервер, можно применить только что написанную на Perl программу для чтения LDIF-файлов и передать подобный файл на LDAP-сервер.

Добавим еще один способ: вот программа, в которой пропускается про межуточный шаг создания LDIF-файла, и наши данные напрямую им портируются на LDAP-сервер:

use Net::LDAP;

use Net::LOAP::Entry;

$datafile = "database";

$recordsep = "-=-";

Sserver = $ARGV[0];

Sport = getservbyname("ldap","top") | "389";

| Ssuffix = "ou=data, ou=systems, dc=ccs, dc=hogwarts, dc=edu";

$rootdn = "cn=Manager, o=University of Michigan, c=US";

$pw = "secret";

$c = new Net::LDAP($server,port => Sport) or die "Невозможно соединиться с сервером $server: $@\n";

$c->bind(dn => $rootdn,password => $pw) or die "Ошибка при соединении: $@\п";

open(DATA,Sdatafile) or die "Невозможно открыть $datafile:$!\n";

while () { chomp;

# в начале новой записи создаем новый экземпляр объекта if (/-name:\s*(.*)/){ $dn="cn=$1, $suffix";

Sentry = new Net::LDAP::Entry;

$entry->add("cn",$1);

next;

} П особый случай -- многозначные атрибуты сложная служба каталогов if (s/~aliases:\s*//H $entry->add( 'aliases', [split()]);

next;

# если дошли до конца записи, добавляем ее не сервер if ($_ eq $recordsep){ $entry->add("objectclass", ["top", "machine"]);

$entry->dn($dn);

$res = $c->add($entry);

warn "Ошибка добавления для ". $entry->dn(). ": код ошибки $res->code. "\n" if $res->code();

undef Sentry;

next;

и добавляем все остальные атрибуты $entry->add(split( ' :\s*' ));

# считаем, что у атрибута только одно значение close(DATA);

$c->unbind();

После того как данные были импортированы на сервер, можно присту пить к довольно любопытным вещам. В следующих примерах мы бу дем поочередно обращаться к двум LDAP-модулям. Для краткости в каждом примере не будет повторяться заголовок, в котором устанав ливаются конфигурационные переменные, и код для соединения с сер вером.

Так что же можно сделать с данными, расположенными на сервере LDAP? Можно на лету создать файл узлов:

use Mozilla: :LDAP;

Sentry = $c->search($basedn, 'one', '(objectclass=machine)',0, 'en', 'address', 'aliases' );

die "Ошибка поиска:". $c->getErrorString(). "\n" if $c->getErrorCode();

if ($entry){ print "#\n\# host file - GENERATED BY $0\n # DO NOT EDIT BY HAND! \ntt\n";

while($entry){ print $entry->{address>[0], "\t", $entry->{cn}[0], " ", jain( ' ',@{$entry->{aliases}}), "\rt":

Sentry = $c->nextEntry();

$c->close();

240 Глава 6. Службы каталогов Вот что получается:

и и host file - GENERATED BY Idap2hosts # DO NOT EDIT BY HAND!

« 192.168.1.11 shimmer shim shimmy shimmydoodles 192.168.1.3 bendir ben bendoodles 192.168.1.12 Sulawesi sula su-lee 192.168.1.55 sander sandy mickey mickeydoo Можно найти имена всех машин, произведенных Apple:

use Net: :LDAP;

$searchobj = $c->search(base => Sbasedn, filter => "(manufacturer=Apple)", scope => 'one', attrs => ['en']);

die "Ошибка поиска: ".$searchobj->error(). "\n" if ($searchobj->code());

if ($searchobj){ for ($searchobj->entries){ print $_->get( 'en' ), "\n";

$c->unbind();

Вот и результат:

bendir Sulawesi Можно сгенерировать список владельцев машин:

use Mozilla: :LDAP;

Sentry = $c->search($basedn, 'one', ' (objectclass=machine)',0, 'en', 'owner' );

die "Ошибка поиска:". $c->getErrorString(). "\n" if $c->getErrorCode();

if ($entry){ while($entry){ push(@{$owners{$entry->{owner}[0]}},$entry->{cn}[0]);

Sentry = $c->nextEntry();

$c->close();

for (sort keys %owners){ print $_.":\t". join( ' ',@{$owners{$_}})."\n";

д051 (Интерфейсы служб активных каталогов) Получилось так:

Alex Rollins: sander Cindy Coltrane: bendir David Davis: shimmer Ellen Monk: Sulawesi Заодно можно проверить, является ли владельцем машины пользова тель с текущим идентификатором (псевдо-аутентификация):

use Mozilla::LDAP::Conn;

use Sys::Hostname;

Suser = (getpwuid($<))[6];

$hostname = hostname;

Shostname =" s/"([".]+)\..*/$1/;

# удаляем имя домена из имени узла Sentry = $c->search("cn=$hostname,Ssuffix",'base',"(owner=$user)",1,'');

if ($entry){ brint "Владелец (Suser) зарегистьирован на машине $hostname.\n";

} else { print "Suser не является владельцем этой машины ($hostname)\n.";

} $c->close();

Эти отрывки должны показать, как можно использовать доступ к LDAP из Perl для системного администрирования, и вдохновить вас на создание собственных программ. В следующем разделе эти идеи будут перенесены на новый уровень, что позволит нам увидеть целый интер фейс администрирования, построенный на основе LDAP.

ADSI (Интерфейсы служб активных каталогов) В последнем разделе этой главы мы обсудим платформо-зависимый интерфейс службы каталогов, разработанный с учетом только что рас смотренного материала.

В Microsoft создали сложную службу каталогов, основанную на LDAP, под названием Active Directory для использования ее в сердцевине ин терфейса администрирования Windows 2000. Служба Active Directory является репозиторием для всей важной конфигурационной информа ции (пользователи, группы, системные политики, поддержка установ ки программного обеспечения и т. д.), применяемой в сети машин с Windows 2000.

242 Глава б. Службы каталог0в При разработке активных каталогов в Microsoft осознали, что дЛя этой службы необходимо создать программный интерфейс более высо кого уровня. Для этого был разработан интерфейс ADSI (Active Direc tory Service Interfaces, интерфейсы служб активных каталогов). Над отдать должное разработчикам Microsoft, им удалось понять, что но вый интерфейс нужно будет расширить и охватить такие области сис темного администрирования, как принтеры и службы NT. Подобный размах делает ADSI чрезвычайно полезным для тех, кто пишет сцена рии, автоматизирующие выполнение задач системного администриро вания. Перед тем как ознакомиться с его работой, приведем несколько основных концепций и терминов, которые нам понадобятся.

Основы ADSI ADSI можно считать оболочкой вокруг произвольной службы катало гов, действующей в рамках ADSI. В среде интерфейса есть провайдеры (providers), которые представляют собой реализации ADSI для LDAP, WinNT 4.0 и Novell Directory Service. Говоря на «языке» ADSI, каж дая из этих служб каталогов (WinNT не является службой каталогов) и домены данных (data domains) называются пространством имен (namespaces). ADSI предоставляет единый способ запроса и изменения данных, найденных в этих пространствах имен.

Чтобы понять ADSI, необходимо иметь представление об объектной модели компонентов COM (Component Object Model), на которой по строен интерфейс ADSI. О модели СОМ существует много книг, но сле дует остановится на таких ключевых понятиях:

Все, с чем работают в СОМ, - это объекты (objects). • • Объекты имеют интерфейсы, (interfaces), обеспечивающие набор ме тодов (methods), применяемых для взаимодействия с этими объек тами. Из Perl можно использовать методы, предоставляемые или наследуемые от интерфейса под названием IDispatch. К счастью, большинство методов ADSI, предоставляемых интерфейсами ADSI и их производными (например, lADsUser, lADsComputer, lADsPrint Queue), унаследованы от IDispatch.

• Значения, инкапсулируемые объектом, запрашиваемые и изменя емые посредством этих методов, называются свойствами (properti' es). В этой главе будут рассматриваться два типа значений: свойства, определяемые интерфейсом (interface-definedproperties), и свойства, определяемые схемой (schema-defined properties). Иными словами.

На самом деле СОМ - это протокол, используемый для связи с этими объек тами как часть более крупного стандарта OLE (связывание и встраивание объектов). В данном разделе я постараюсь оградить читателя от трясинь акронимов Microsoft, но те, кому нужны подробности, могут обратиться ь ресурсам, доступным на http://www.microsoft.com/com.

>DSI (Интерфейсы служб активных каталогов) первые будут определяться как часть интерфейса, а вторые - в объекте схемы. Подробнее об этом говорится чуть ниже. Если в дан ной главе не будут явно упоминаться «свойства схемы», значит, подразумевать следует свойства интерфейса.

Все это относится к стандартным понятиям объектно-ориентированно го программирования. Сложности начинаются, когда сталкиваются терминологии ADSI/COM и других объектно-ориентированных ми ров, подобных LDAP.

Например, в ADSI рассматривается два различных типа объектов:

лист (leaf) и контейнер (container). Объект-лист содержит данные;

объект-контейнер содержит другие объекты, т. е. является для них ро дительским (parent). В LDAP самыми точными определениями для этих терминов были бы «элемент» и «точка ветвления». С одной сторо ны, мы говорим об объектах со свойствами, а с другой - об элементах с атрибутами. Как разобраться с подобными разногласиями, если учесть, что оба названия определяют одни и те же данные?

Вот как можно это понимать: в действительности, сервер LDAP обес печивает доступ к дереву элементов и связанных с ними атрибутов.

Когда интерфейс ADSI используется вместо LDAP для получения эле мента дерева, ADSI вытягивает элемент из сервера LDAP, заворачива ет его в несколько слоев блестящей оберточной бумаги и передает вам в качестве СОМ-объекта. Для получения содержимого этой посылки следует применять нужные методы, которые теперь называются «свойствами». Если внести изменения в свойства данного объекта, можно вернуть объект ADSI, чтобы последний распаковал информа цию и передал ее обратно в дерево LDAP.

Вполне разумным выглядит вопрос: «А почему бы не обратиться на прямую к серверу LDAP?» На этот вопрос есть два хороших ответа: ес ли мы знаем, как использовать ADSI для работы с одним типом служб каталогов, то мы знаем, как работать со всеми ними (или, по крайней ^ мере, с теми, которые имеют ADSI-провайдеры). Второй ответ будет дан чуть позже, когда станет ясно, как можно упростить программи рование служб каталогов при помощи инкапсуляции ADSI.

Необходимо ввести понятие AdsPaths, чтобы перейти к ADSI-програм мированию в Perl. ADsPaths предоставляет нам уникальный способ ссылаться на объекты из любого пространства имен. Они выглядят так:

: - это идентификатор провайдера (например WinNT или LDAP), a - это специфичный для провайдеров способ поиска I объекта в пространстве имен. Часть чувствительна крегист ^ ру. Если использовать winnt, Idap или WINNT вместо WinNT и LDAP, прог раммы не будут работать.

'-• Вот как выглядят примеры ADsPath из документации ADSI SDK:

244 Глава 6. Службы каталогов WinNT: //MyDomain/MySe rve r/L)se r WinNT://MyDomain/JohnSmith,user LDAP://ldapsvr/CN=TopHat,DC=DEV,DC=MSFT,DC=COM,0=Internet LDAP://MyDomain.microsoft.com/CN=TopH,DC=OEV,DC=MSFT,DC=COM,0=Internet Это не совпадение, что они похожи на URL, т. к. и URL и ADsPath слу жат одним и тем же целям. Они оба пытаются обеспечить недвусмыс ленный способ сослаться на данные, предоставляемые различными службами данных. В случае с AdsPath из LDAP используется синтак сис LDAP URL из RFC, упомянутых в приложении В (RFC2255).

Более подробно AdsPath будет рассматриваться при обсуждении двух уже упомянутых пространств имен - WinNT и LDAP. Но сначала раз беремся, как, в общих чертах, ADSI используется из Perl.

Использование ADSI из Perl Семейство модулей W i n 3 2 : : O L E, поддерживаемое Жаном Дюбуа (Jan Dubois) и Гурусами Сарати (Gurusamy Sarathy), предоставляет мост от Perl к ADSI (который построен на СОМ как часть OLE). После загрузки основного модуля он используется для запроса ADSI-объектов:

use Win32::OLE;

Sadsobj = Win32::OLE->GetObject($ADsPath) or die "Невозможно получить объект для $ADsPath\n";

Win32: :OLE->GetObject() принимает моникер (moniker) OLE (уникаль ный идентификатор объекта, в данном случае это ADsPath) и возвра щает объект ADSL Этот вызов также обрабатывает процесс связыва ния (binding) с объектом, уже рассмотренный при обсуждении LDAP.

По умолчанию связывание с объектом производится от имени пользо вателя, запускающего сценарий.

Этот совет может уберечь вас от испуга. Если выполнить эти две строчки кода в отладчике и изучить содержимое возвращаемой ссылки на объект, то можно увидеть нечто подобное:

DB<3> x Sadsobj О Win32::OLE=HASH(Ox10feOd4) empty hash He волнуйтесь. Win32: :OLE использует все могущество свя занных переменных (tied variables). Кажущаяся пустой структура данных, как по волшебству, передаст информа цию из объекта, если верно к ней обратиться.

Для доступа к значениям свойств интерфейса объекта ADSI использУ ется ссылка на хэш:

д051 (Интерфейсы служб активных каталогов) Инструменты ADSI Для использования материала из этой главы необходимо устано вить ADSI хотя бы на одной машине в сети. Эта машина может служить (через DCOM) ADSI шлюзом для остальных машин. По сетите сайт Тоби Эверета (Toby Everett), ссылка на который при ведена ниже, чтобы узнать подробнее, как настроить ADSI для работы с DCOM.

Любая машина с Windows 2000 имеет встроенный в операцион ную систему интерфейс ADSI. Для всех остальных Win32-Ma шин придется загрузить и установить бесплатный дистрибутив ADSI 2.5, находящийся в http://www.microsoft.com/adsl. По этой же ссылке вы найдете документацию по ADSI, включая ad si25.chm, - сжатую помощь в формате HTML, содержащую луч шую доступную документацию по ADSI.

Даже если вы работаете с Windows 2000, я советую загрузить ADSI SDK с сайта Microsoft по указанной ссылке, поскольку в него входит эта документация и удобный броузер объектов ADSI под названием AdsVW. SDK поставляется с примерами програм мирования ADSI на нескольких языках, включая Perl. К сожа лению, примеры из текущего дистрибутива ADSI полагаются на устаревший модуль OLE.pm, так что, в лучшем случае, вы смо жете получить несколько советов, но не надо использовать эти примеры в качестве стартовой точки.

Перед тем как начать писать программы, стоит загрузить бро узер объектов ADSI Тоби Эверета (написанный на Perl) с http:/'/ opensource.activestate.com/authors/tobyeverett. Он научит вас пе ремещаться по пространствам имен ADSL Обязательно посетите этот сайт, начиная карьеру программиста ADSI, поскольку он является одним из лучших доступных сайтов по применению ADSI из Perl.

$value = $adsobj->{key} Например, если этот объект имеет свойство Name, определенное как часть его интерфейса (а так и есть), вы можете применить:

print $adsobj->{Name}."\n";

При помощи такой же записи можно присваивать значения свойствам интерфейсов:

$adsobj->{FullNa(ne}= "Oog";

# устанавливаем свойство в кэше Свойства объекта ADSI хранятся в кэше (называемом кэшем свойств (property cache)). Первый запрос к свойствам объекта заполняет дан 246 Глава 6. Службы каталог0в ный кэш. Последующие запросы к тем же свойствам позволяют полу чить информацию из этого кэша, а не из службы каталогов. Если вы хотите вручную заполнить кэш, можно вызвать методы Getlnfo() или GetInfoEx() (расширенная версия GetlnfoQ) для данного экземпляра объекта, применяя синтаксис, который скоро будет рассмотрен.

Из-за того что первое считывание информации происходит автомати чески, методы GetlnfoO и GetInfoEx() часто остаются незамеченными.

Существуют ситуации, когда эти методы следует употреблять, хотя в книге такие случаи рассматриваться не будут. Вот две подобные ситу ации:

1. Некоторые свойства объектов можно получить, только явно вызвав GetlnfoExQ. LDAP-провайдер Microsoft Exchange 5.5 представляет собой самый характерный пример, поскольку многие из его свойств не доступны, если не вызвать сначала GetlnfoExQ. Детальную ин формацию об этой несовместимости можно найти на http:/ /'openso urce.activestate.com/authors/tobyeverett.

2. Если несколько человек имеют право изменять в каталоге данные, то вызванный вами объект может быть кем-то преобразован, пока вы с ним работаете. Если это произойдет, данные в кэше свойств этого объекта устареют. GetlnfoO и GetlnfoExQ обновят этот кэш.

Для обновления службы каталогов и источников данных, предостав ляемых через ADSI, после изменения объекта нужно вызвать специ альный метод Setlnfo(). SetlnfoQ сбрасывает изменения из кэша свойств в службу каталогов и источники данных. (Это должно напом нить вам о необходимости вызывать метод update() в Mozilla: :LDAP. В данном случае идея та же.) Вызывать методы экземпляра объекта ADSI не сложно:

$adsobj->Method($arguments...) Поэтому, если бы мы изменили свойства объекта, как это предлага лось сделать в предыдущем предупреждении, то могли бы использо вать такую строку сразу же после кода, вносящего изменения:

$adsob]->Set!nfo();

В результате данные из кэша свойств помещаются обратно в службу каталогов или источник данных.

Вы будете часто использовать метод Win32: :OLE->LastError() из модул* Win32::OLE. Он возвращает ошибку, полученную в результате послеД' ней операции OLE. Применение ключа -w с Perl (т. е. perl -w script) также приводит к подробным сообщениям о неудачных попытка* OLE-операций. Зачастую эти сообщения об ошибках - единственная помощь, которая вам доступна, так что попытайтесь с толком ее ис пользовать.

(Интерфейсы служб активных каталогов) 247' ADSI-код, который до сих пор рассматривался, выглядел как обыч ный код на Perl, поскольку внешне они похожи. Теперь перейдем к бо лее сложным вопросам.

работа с объектами контейнер/коллекция Ранее в этом разделе уже упоминались два типа объектов ADSI: лист и контейнер. Объект-лист представляет собой только данные, тогда как контейнер (известный еще как коллекция - в терминах OLE/COM) со держит другие объекты. Еще одно отличие двух типов объектов в кон тексте ADSI состоит в том, что объект-лист не имеет дочерних объек тов в иерархии, а у контейнеров такие объекты есть.

Объекты-контейнеры требуют специальной обработки, т. к. в боль шинстве случаев нас интересуют данные, инкапсулированные их до черними объектами. Существует два способа обратиться к таким объектам из Perl. W i n 3 2 : :OLE имеет специальную функцию под назва нием in( ), которая недоступна по умолчанию, если модуль загружает ся стандартным способом. Если необходимо получить к ней доступ, на до в начале программы использовать следующее:

use Win32: :OLE 'in' ;

in () возвращает список ссылок на дочерние объекты, хранящиеся в этом контейнере. Это позволяет писать легко читаемые программы на Perl:

foreach Schild (in $adsobj){ print $child->{Name} Другой путь заключается в том, чтобы загрузить один из полезных по томков Win32: :OLE под названием Win32: :OLE: :Enum. Win32: :OLE: :Enum >new( ) создает объект-перечислитель из какого-либо объекта-контей нера:

use Win32: :OLE: :Enum;

$enobj = Win32: :OLE: :Enum->new($adsobj);

Для этого объекта можно вызвать несколько методов и получить до черние объекты $adsobj. Подобный подход должен напомнить вам спо соб, применяемый в операциях поиска с Mozilla : : LDAP;

процесс тот же самый.

$enobj->Next( ) возвращает ссылку на следующий экземпляр дочернего объекта (или следующие X объектов, если задан необязательный пара метр). $enobj->All возвращает список ссылок на экземпляры объектов.

Win32 : : OLE : : Enum предлагает несколько больше методов (подробнее о них сказано в документации), но этими вы будете пользоваться чаще всего.

248 Глава 6. Службы каталогов Идентификация объекта-контейнера Заранее нельзя узнать, является ли объект контейнером. Не существу ет способа из Perl «спросить» объект, не контейнер ли он. Максимум что можно сделать, - попытаться создать объект-перечислитель и, ес ли эта попытка не удастся, фиксировать данный результат. Вот корот кий пример, который делает именно это:

use Win32: :01_Е;

use Win32::OLE::Enum;

eval {$enobj = Win32::OLE::Enum->new($adsobj)};

print "Объект ". ($@ ? "не " : ""). "является контейнером \п";

Второй способ - посмотреть на другие источники, описывающие этот объект. Все это плавно перетекает в третью сложность.

Как же узнать что-нибудь об объекте?

До сих пор мы избегали одного большого и, возможно, самого важного вопроса. Скоро нам придется работать с объектами из двух про странств имен. Уже понятно, как получить и установить свойства объектов и как вызвать методы для этих объектов, но все справедливо только в случае, если известны названия этих свойств и методов. Отку да берутся эти названия? Как их можно найти?

Нет единого места, в котором можно найти ответы на эти вопросы, но существует несколько источников, из которых можно почерпнуть нужную информацию для формирования практически всей картины.

Первое место - это документация по ADSI, особенно та помощь, о кото рой говорилось во врезке «Инструменты для ADSI». В этом файле со держится огромное количество материала. Для ответа на наш вопрос о названиях свойств и методов нужно начать с Active Directory Service Interfaces 2.5—>ADSI Reference—>ADSI System Providers.

Иногда имена методов можно найти только в документации, но су ществует другой, более интересный подход для поиска названий свойств. Можно использовать метаданные, предоставляемые самим ADSI. Именно здесь на сцену выходят свойства схемы, о которых гово рилось раньше.

Каждый объект ADSI имеет свойство под названием Schema, которое связывает ADsPath с его объектом схемы. В частности, следующий пример:

use Win32: :01_Е;

$ADsPath = "WinNT://BEESKNEES,computer";

Sadsobj = Win32::OLE->GetObject($ADsPath) or die "Невозможно получить объект для $ADsPath\n";

print "Это объект ".$adsobj->{Class}.", схема находится в:\п".

(Интерфейсы служб активных каталогов) $adsobj->{Schema}, "\n";

выведет:

Это объект Computer, схема находится в: WinNT://DomainName/Schema/Computer Значение $adsobj->{Schema} - это путь ADsPath к объекту, описываю щему схему для объектов класса Computer в этом домене. Здесь мы ис пользуем термин «схема» в том же смысле, что и в разговоре про схе мы LDAP. В LDAP схемы определяют, какие атрибуты могут и должны присутствовать в элементах определенных классов объектов. В ADSI схема содержит ту же информацию об объектах определенного класса и их свойства схемы.

При желании посмотреть на возможные имена атрибутов объекта сле довало бы взглянуть на значения двух свойств объекта схемы: Manda toryProperties и OptionalProperties. Изменим предыдущий оператор print:

Sschmobj = Win32::OLE->GetObject($adsobj->{Schema}) or die "Невозможно получить объект для $ADsPath\n";

print join("\n",@{$schmobj->{MandatoryProperties}}, @{$schmobj->{OptionalProperties}}), "\ri";

Тогда получится:

Owner Division OperatingSystem OperatingSystemVersion Processor ProcessorCount Теперь известны возможные имена свойств схемы в пространстве имен WinNT для объектов Computer. Отлично.

Свойства схемы получаются и устанавливаются несколько иначе, чем свойства интерфейсов. Свойства интерфейсов обрабатываются при мерно так:

# получение и установка свойств ИНТЕРФЕЙСОВ Svalue = $obj->{property};

$obj->{property} = Svalue;

Свойства схемы получаются и устанавливаются при помощи специ альных методов:

ft получение и установка свойств СХЕМЫ Svalue = $obj->Get("property");

$obj->Put("property","value");

Все, что касается свойств интерфейсов, о чем говорилось до сих пор, ос тается справедливым и для свойств схемы (т. е. кэш свойств. SetTnfn;

' i 250 Глава 6. Службы каталогов и т. д.). Помимо необходимости применения специальных методов дд я получения и установки значений, единственное, что отличает данные свойства, - это их имена. Иногда один и тот же объект может иметь два различных имени для одного и того же свойства, одно для свойств интерфейса, другое для свойств схемы. Например, два этих свойства получают основные настройки для пользователя:

$len = $userobj->{PasswordMinimumLength};

и свойство интерфейса $len = $userobj->Get("MinPasswordLength");

# то же самое свойство схемы Наличие двух типов свойств обусловлено тем, что свойства интерфейса существуют в виде части модели СОМ. Разработчики, определяя ин терфейс при создании программы, также определяют свойства интер "s фейса. Позже, если они хотят расширить набор свойств, им приходит ся изменять и СОМ-интерфейс, и любой код, использующий этот ин терфейс. В ADSI разработчики могут изменить свойства схемы в про вайдере без необходимости изменять лежащий в основе СОМ интерфейс этого провайдера. Очень важно разобраться с обоими типами свойств, т. к. иногда некоторые данные объекта доступны через свойства толь ко одного типа.

На практике, если вы ищете только названия свойств интерфейса или схемы и не собираетесь писать программы для их поиска, я рекомен дую использовать ADSI-броузер Тоби Эверета, о котором я упоминал ранее. Вот пример этого броузера в действии (рис. 6.2).

Как альтернативный вариант упомянем программу ADSIDump из ка талога General примеров SDK, которая может вывести содержимое всего дерева ADSI.

Поиск Эта последняя сложность, которую следует обсудить, перед тем как двигаться дальше. В разделе «LDAP: сложная служба каталогов» мы провели достаточно времени в разговорах о поиске в LDAP. Но в мире ADSI мы вряд ли услышим хоть слово по этому поводу. Все из-за того, что в Perl (и любом другом языке, в котором используется тот же OLE интерфейс автоматизации) поиск с ADSI очень сложен;

более того, по иск поддеревьев и поиск, в котором используются не самые простые фильтры, мучительно сложен. (Все остальное не так плохо.) Сложный поиск проблематичен, т. к. для его выполнения необходимо выйти за пределы ADSI и использовать совершенно иную методологию для по лучения данных (не говоря уже о том, что придется выучить новые ак ронимч: от Microsoft).

Но тот, кто занимается системным администрированием, привык сме яться над сложностями, так что начнем с простого поиска, а потом пе рейдем к более сложным вопросам. Простой поиск, затрагивающий один объект (пространство base) или его непосредственных потомков (Интерфейсы служб активных каталогов), ADSI Inspector WmNT://STANDALONE/OMPHALOSKEPSIS/AdminislialoK ADSI Inspector VVmNTl/STANDALONE/OMPHAlOSKEP'SIS;

;

strators ADSI Class Group I Built In rr trties -' гро Valje " ЯР -jjjjjlitfator: rnup JJC1AADO- it. :-:

-._r-aiF3-02606C=_;

55;

j 'l*rr//STANDALONE/OMPHALOSKEP3iS/A'.1i4!rli::t.-ators nfJT /'STANDALONE/OMPHALOSK EPSIS i iNT /;

SrANDALONBSchema/Group ^embers can ftiil^administer the coiTip_uter/dc:- : • iers Win32 OLE=HA_SH(Ox114dabOJ_ IDS! Schema _WnNT/'ST.ANDALONBScherna/Group chema Properties Collection Object.

[Ready Рис. 6.2. ADSI-броузер Эверета, отображающий объект Administrators (пространство one), можно выполнить вручную при помощи Perl. Сде лать это можно так:

• Для одного объекта получите нужные свойства и используйте обыч ные операторы сравнения для определения соответствия:

if ($adsobj->{cn} eq "Mark Sausville" and $adsobj->{State} eq "CA"){...} • Для поиска дочерних объектов примените технологии доступа к контейнерам, о которых говорилось раньше, а затем изучите каж дый дочерний объект. Несколько примеров поиска такого типа бу дут рассмотрены очень скоро.

Для того чтобы выполнить более сложный поиск, затрагивающий, скажем, все дерево каталогов или поддерево, вам придется переклю читься на использование другой технологии «промежуточного уров 252 Глава б. Службы каталогов ня» под названием ADO (ActiveX Data Objects, объекты данных Acti veX). ADO предоставляет языкам сценариев интерфейс к базам уровня Microsoft OLE DB. OLE DB обеспечивает общий интерфейс, ориентиро ванный на базы данных, к источникам данных, подобным реляцион ным базам данных и службам каталогов. В нашем случае ADO будет применяться для «разговора» с ADSI (который, в свою очередь, обща ется с самой службой каталогов). Поскольку ADO - это методология ориентированная на базы данных, рассматриваемая программа пред варяет материал об ODBC, о котором речь пойдет в главе 7.

ADO работает только с провайдером LDAP ADSI.

В пространстве имен WinNT она работать не будет.

ADO - это отдельная тема, которая лишь затрагивает службы катало гов, поэтому будет рассмотрен только один пример с короткими пояс нениями, остальные примеры работают с ADSL Дополнительную ин формацию об ADO можно найти на http://www.microsoft.com/ado.

Вот пример программы, выводящей имена всех групп, найденных в данном домене. Детальное обсуждение программы приведено ниже.

use Win32: :OLE 'in';

# получаем объект ADO, устанавливаем провайдер, открываем соединение $с = Win32: :OLE->new("ADODB. Connection");

$c->{Provider} = "ADsDSOObject";

$c->Open("ADSI Provider");

die Win32: :OLE->LastError() if Win32: :OLE->LastError();

# подготавливаем и выполняем запрос SADsPath = "LDAP://ldapserver/dc=example,dc=com";

$rs = $c->Execute("<$ADsPath>;

(objectClass=Group);

Name;

SubTree");

die Win32: :OLE->LastError() if Win32: :OLE->LastError();

until ($rs->EOF){ print $rs->Fields(0)->{Value}, "\n";

$rs->MoveNext;

$rs->Close;

$c->Close;

Блок кода после загрузки модуля получает экземпляр объекта Connection, устанавливает имя провайдера для этого экземпляра объекта, а затем просит его открыть соединение. Соединение открыва ется от имени пользователя, запускающего сценарий, хотя можно бы ло установить другие свойства объекта, позволяющие изменить тако поведение.

др51 (Интерфейсы служб активных каталогов). Затем выполняется собственно поиск при помощи ExecuteO. Поиск можно осуществлять средствами одного из двух «диалектов»: SQL или ADSI.1 Диалект ADSI, как видно из программы, использует команд ную строку, состоящую из четырех аргументов, каждый из которых разделен точкой с запятой.2 Вот эти аргументы:

• ADsPath (в угловых скобках), определяющий сервер и базовое DN имя для поиска.

• Фильтр поиска (применяется тот же синтаксис LDAP-фильтров, что упоминался раньше).

• Имя или имена (разделенные запятыми) возвращаемых свойств.

• Пространство поиска: либо Base, либо OneLevel, либо SubTree (в со ответствии со стандартом LDAP).

ExecuteO возвращает ссылку на первый из объектов ADO RecordSet, по лучаемых в результате запроса. По очереди запрашивается каждый из объектов RecordSet, распаковываются объекты, которые в нем содер жатся, и выводится свойство Value, возвращаемое методом Fields() для каждого из этих объектов. Свойство Value содержит значение, которое запрашивалось в командной строке (имя объекта Group). Вот как вы глядит отрывок получаемых данных на машине с Windows 2000:

Administrators Users Guests Backup Operators Replicator Server Operators Account Operators Print Operators DHCP Users DHCP Administrators Domain Computers Domain Controllers Schema Admins Enterprise Admins Cert Publishers Domain Admins Domain Users Тем, кто знает SQL, первый диалект покажется проще. Диалект SQL пред лагает несколько интересных возможностей. Например, MS SQL Server можно настроить так, что он будет знать об ADSI-провайдерах, а не только об обычных базах данных. Это означает, что вы можете выполнять SQL-за просы, которые одновременно обращаются к объектам ActiveDirectory че рез ADSI.

Будьте внимательны при использовании провайдера ADSI ADO: около сим волов точки с запятой не может быть никаких пробелов, иначе запрос вы полняться не будет.

254 Глава 6. Службы каталогов Domain Guests Group Policy Admins RAS and IAS Servers OnsAdmins DnsUpdateProxy Выполнение распространенных задач при помощи пространства имен Win NT и LDAP Теперь, когда мы разобрались со «списком» сложностей, можно пе рейти к выполнению некоторых распространенных задач системного администрирования, используя ADSI из Perl. Цель - дать понять, ка кие задачи можно решать при помощи представленной информации об ADSL Затем рассмотреть и использовать код, который пригоден для написания собственных программ.

Для этих целей будет использоваться одно из двух пространств имен.

Первое пространство - WinNT, которое предоставляет доступ к объек там Windows NT 4.0, таким как пользователи, группы, принтеры, службы и т. д.

Второе - это наш старый знакомый - LDAP. LDAP мы выбираем про вайдером при переходе к Windows 2000 и ее службе Active Directory, основанной на LDAP. Большинство объектов WinNT также доступны через LDAP. Ведь даже в Windows 2000 существуют задачи, которые можно выполнить, только используя пространство имен WinNT (нап ример, создание учетных записей на локальной машине).

Программы, работающие с этими различными пространствами имен, похожи друг на друга (в конце концов, частично в этом и заключается смысл применения ADSI), но необходимо обратить внимание на два важных различия. Во-первых, формат ADsPath немного отличается. В соответствии с ADSI SDK, ADsPath в WinNT может иметь следующий вид:

WinNT:[//DomainName[/ComputerName[/ObjectName[,className]]]] WinNT:[//DomainName[/ObjectName[,className]]] WinNT:[//ComputerName,computer] WinNT:

ADsPath в LDAP выглядит так:

LDAP://HostName[:PortNumber][/DistinguishedName] Обратите внимание, что при работе с NT 4 ADsPath в LDAP требует указывать имя сервера (в Windows 2000 это изменилось). Это означа ет, что пространство имен LDAP нельзя просмотреть с верхнего уров ня, как пространство WinNT, т. к. необходимо указать начальный сер вер. В пространстве имен WinNT любой может применить ADsPath или просто W i n N T : для начала поиска в иерархии доменов.

др51 (Интерфейсы служб активных каталогов) Также обратите внимание, что свойства объектов в двух пространст вах имен похожи, но не идентичны. Например, можно обратиться к одним и тем же объектам из обоих пространств имен WinNT и LDAP, но обратиться к некоторым свойствам Active Directory конкретного объекта пользователя можно только через пространство имен LDAP.

Особенно важно заметить различия между схемами в этих двух про странствах имен. Например, класс User для WinNT не имеет обяза тельных свойств, тогда как класс User в LDAP требует наличия свойств сп и samAccountName в каждом объекте пользователя.

Не забывая об этих различиях, посмотрим на сам код. В целях эконо мии места пропустим большую часть проверок ошибок, но рекоменду ется запустить сценарий с ключом -w и добавить в текст программы примерно такие строки:

die "Ошибка OLE: ".Win32: :OLE->LastError() if Win32: :OLE->LastError();

Работа с пользователями через ADSI Для получения списка пользователей домена применяется следующее:

use Win32: :OLE 'in';

SADsPath = "WinNT ://DomainName/PDCName, computer";

$c = Win32: :OLE->GetObject($ADsPath) or die "Невозможно получить $ADsPath\n";

foreach Sadsobj (in $c){ print $adsobj->{Name}, "\n" if ($adsobj->{Class} eq "User");

Для создания нового пользователя и установки его полного имени (свойство Full Name):

use Win32: :OLE;

$ADsPath="WinNT://DomainName/ComputerName, computer";

$c = Win32: :OLE->GetObject($ADsPath) or die "Невозможно получить $ADsPath\n";

fl создаем и возвращаем объект User $и = $c->Create("user", Susername);

$u->Set!nfo( );

# нужно создать пользователя, перед тем как менять значения и в пространстве имен WinNT: пробел между "Full" и "Name" недопустим $u->{FullName} = $fullname;

$su->Set!nfo();

Если Compute rName - это первичный контроллер домена (Primary Doma in Controller), то мы создали пользователя домена. Если нет, этот поль зователь будет локальным для данной машины.

т 256 Глава 6. Службы каталогов Эквивалентная программа создания глобального пользователя (при помощи LDAP нельзя создавать локальных пользователей) в Active Directory выглядит так:

use Win32::OLE;

$ADsPath = "LDAP://ldapserver,CN=Users,dc=example,dc=com";

$c = Win32::OLE->GetObject($ADsPath) or die "Невозможно получить $ADsPath\n" П создаем и возвращаем объект User $u=$c->Create("user","cn=".$commonname);

$u->{samAccountName} = Susername;

# нужно сначала создать пользователя в каталоге, а потом менять значения $u->SetInfo();

# пробел между "Full" и "Name" требуется при работе с пространством имен LDAP:

$u->{'Full Name'} = Sfullname;

$u->Set!nfo();

Для удаления пользователя нужно внести лишь небольшие изменения:

use Win32::OLE;

$ADsPath = "WinNT://DomainName/ComputerName, computer";

$c = Win32::OLE->GetObject($ADsPath) or die "Невозможно получить $ADsPath\n";

ft удаляем объект User, заметьте, мы в границах контейнера $c->Delete("user",$username);

$u->Set!nfo();

Изменить пароль пользователя можно при помощи единственного ме тода:

use Win32::OLE;

SADsPath = "WinNT://DomainName/ComputerName/".Susername;

$u = Win32::OLE->GetObject($ADsPath) or die "Невозможно получить $ADsPath\n';

$u->ChangePasssword($oldpassword,$newpassword);

$u->Set!nfo();

Работа с группами через ADSI а Для перечисления доступных групп достаточно лишь немного подпр вить программу, выводящую список пользователей. Меняется такая строка:

print $adsobj->{Name},"\n" if ($adsobj->{Class} eq "Group");

(Интерфейсы служб активных каталогов) Создание и удаление групп выполняется при помощи тех же методов CreateO и DeleteO, которые применялись для создания и удаления учетных записей. Единственное различие - первый аргумент нужно изменить на «group». Вот так:

$д = $c->Create("group",$groupname);

Для добавления пользователя в группу (определяемую при помощи GroupName) после ее создания используется следующее:

use Win32::OLE;

$ADsPath = "WinNT://DomainName/GroupName, group";

$g = Win32::OLE->GetObjeot($ADsPath) or die "Невозможно получить $ADsPath\n";

# используется ADsPath для указанного объекта пользователя $g->Add($userADsPath);

Здесь действуют те же правила относительно локальных пользовате лей и пользователей домена (глобальных), которые мы рассмотрели выше. Для того чтобы добавить пользователя домена в группу, $user ADsPath должна указывать на пользователя на PDC для этого домена.

Для удаления пользователя из группы применяйте:

$c->Remove($userADsPath);

Работа с разделяемыми ресурсами через ADSI Теперь займемся более интересными задачами ADSI, адресованными посвященным. Можно применять ADSI, чтобы предоставить в сов местное пользование часть локального дискового пространства на ма шине:

use Win32: :0!_Е;

$ADsPath = "WinNT://ComputerName/lanmanserver";

$с = Win32::OLE->GetObject($ADsPath) or die "Невозможно получить $ADsPath\n";

$s = $c->Create("fileshare",Ssharename);

$s->{path} = 'C:\directory';

$s->{description} = "This is a Perl created share";

$s->Set!nfo();

Разделяемые ресурсы можно удалять при помощи метода DeleteO.

Перед тем как перейти к другим задачам, хочу воспользоваться случа ем и напомнить вам о необходимости обратиться к документации SDK перед работой с каким-либо из этих ADSI-объектов. Кое-какие неожи данности могут оказаться полезными. Если вы заглянете в раздел Acti 258 Глава 6. Службы каталогов ие Directory Service Interfaces 2.5-+ADSI Referen.ce-> ADSI Interfa.

ces—> Persistent Object Interfaces-* lADsFileShare файла помощи ADSI 2.5, то увидите, что объект fileshare имеет свойство CurrentUser Count, которое соответствует количеству пользователей, подсоединен ных в настоящее время к разделяемому ресурсу. Этот нюанс может очень сильно пригодиться.

Работа с очередями и заданиями печати через ADSI Вот как можно определить названия очередей на определенном сервере и модели принтеров, используемых для обслуживания этих очередей:

use Win32: :OLE 'in';

$ADsPath="WinNT : //DomainName/PrintServerName, computer" ;

$c = Win32: :OLE->GetObject($ADsPath) or die "Невозможно получить $ADsPath\n";

foreach $adsobj (in $c){ print $adsobj->{Name}. ":".$adsobj->{Model}. "\n" if ($adsobj->{Class} eq "PrintQueue");

После того как стало известно название очереди печати, можно напря мую связаться с ней для запросов и управления:

use Win32: :OLE 'in';

и таблица получена из раздела и 'Active Directory Service Interfaces 2.5->ADSI Reference-> и ADSI Interfaces->Dynamic Object Interfaces->IADsPrintQueueOperations-> ft lADsPrintQueueOperations Property Methods' (уф!) из ADSI 2.5 SDK %status = 'PAUSED', 'PENDING_DELETION' 0x (0x 0x00000004 'PAPER_JAM', 'ERROR', 0x •PAPERJMJT', 'MANUALJEED', 0x 0x 'PAPER_PROBLEM', 0x00000008 'OFFLINE', 0x •IO_ACTIVE', 0x00000200 'BUSY', 0x 'OUTPUT_BIN_FULL', 'PRINTING', 0x 0x 'NOT_AVAILABLE', 0x00002000 'WAITING', 0x 'PROCESSING', 'INITIALIZING', 0x 0x 'WARMINGJP', 0x00020000 'TONER_LOW, 0x 'NO_TONER', 'PAGE_PUNT', 0x00040000 0x 'OUT_OF_MEMORY', 'USERJNTERVENTION' 0x 0x 'SERVER UNKNOWN', 0x00400000 'DOORJ3PEN', 0x 0x01000000 •POWER_SAVE');

SADsPath = "WinNT://PrintServerName/PrintQueueName";

$p = Win32::OLE->GetObject($ADsPath) or die "Невозможно получить $ADsPath\n дО$1 (Интерфейсы служб активных каталогов) print "Состояние принтера ". $c->{Name}. " -- ".

((exists $p->{status}) ? $status{$c->{status}} : "NOT ACTIVE").

Объект PrintQueue имеет несколько методов для контроля очереди пе чати: Pause(), ResumeO и Purge(). Это позволяет управлять действиями самой очереди. А что если мы захотим изучить или обработать кон кретные задачи из очереди?

Для того чтобы добраться до самих заданий, необходимо вызвать ме тод PrintJobsO объекта PrintQueue. PrintJobsO возвращает коллекцию, состоящую из объектов P r i n t Job, каждый из которых имеет ряд свойств и методов. Например, вот как можно показать список заданий из определенной очереди:

use Win32::OLE 'in';

П таблица получена из раздела # 'Active Directory Service Interfaces 2.5->ADSI Reference-> tt AOSI Interfaces->Dynamic Object Interfaces->IADsPrintJobOperations-> » lADsPrintJobOperations Property Methods' (двойное уф) в ADSI 2.5 SDK %status = (0x00000001 => 'PAUSED', 0x00000002 => 'ERROR', 0x00000004 => 'DELETING',0x00000010 => 'PRINTING', 0x00000020 => 'OFFLINE', 0x00000040 => 'PAPEROUT', 0x00000080 => 'PRINTED', 0x00000100 => 'DELETED');

$ADsPath = "WinNT://PrintServerName/PrintQueueName";

$p = Win32::OLE->GetObject($ADsPath) or die "Невозможно получить $ADsPath\n";

$jobs = $p->PrintJobs();

foreach $job (in $jobs){ print $job->{User}. "\t". $job->{Description}. "\t".

$status{$job->{status}}. "\n";

} Каждое задание можно приостановить (Pause()) и продолжить (ResumeO).

Работа со службами NT/2000 через ADSI В последнем наборе примеров рассмотрим, как находить, запускать и останавливать службы на машине с NT/2000. Как и другие примеры из этой главы, эти короткие программки необходимо запускать с дос таточными привилегиями для осуществления выполняемых действий.

Для получения списка служб на машине и их состояний можно ис пользовать такую программу:

use Win32::OLE 'in';

260 Глава 6. Службы каталогов # эта таблица получена из раздела tt 'Active Directory Service Interfaces 2.5->ADSI References tt ADSI Interfaces->Dynamic Object Interfaces->IADsServiceOperations-> tf lADsServiceOperations Property Methods' ADSI 2.5 SDK %status = (0x00000001 => 'STOPPED', 0x00000002 => 'START_PENDING', 0x00000003 => 'STOP_PENDING', 0x00000004 => 'RUNNING', 0x00000005 => 'CONTINUE_PENDING',0x00000006 => 'PAUSE_PENDING', 0x00000007 => 'PAUSED', 0x00000008 => 'ERROR');

SADsPath = "WinNT;

//DomainName/ComputerName,computer";

$c = Win32;

;

OLE->GetObject($ADsPath) or die "Невозможно получить $ADsPath\n";

foreach Sadsobj (in $c){ print Sadsobj->{DisplayName}. ":". $status{$adsobj->{status}}. "\n" if ($adsobj->{Class} eq "Service");

> Для запуска, остановки, приостановки или продолжения работы службы вызываются очевидные методы (StartO, Stop() и т. д.). Вот как можно запустить службу Network Time на машине с Windows 2000, ес ли ранее она была остановлена:

use Win32;

;

OLE;

SADsPath = "WinNT;

//DomainName/ComputerNaroe/W32Time,service";

$s = Win32;

;

OLE->GetObject($ADsPath) or die "Невозможно получить $ADsPath\n";

$s->Start();

(t можно в этом месте проверять в цикле состояние до тех пор, # пока служба не будет запущена Во избежание потенциальных конфликтов имен пользователей и ком пьютеров, можно переписать предыдущий пример:

use Win32;

;

OLE;

$d = Win32;

;

OLE->GetObject("WinNT;

//Domain");

$c = $d->GetObject("Computer", Scomputername);

$s = $c->GetObject("Service", "W32Time");

$s->Start();

Для остановки службы нужно всего лишь изменить последнюю строч ку на:

$s->Stop();

и можно в этом месте проверять в цикле состояние до тех пор, и пока служба не будет остановлена.^формация о модулях из этой главы Эти примеры должны подсказать вам, какой контроль над системой можно получить при помощи ADSI из Perl. Службы каталогов и их ин терфейсы могут быть весьма могущественной частью вашей компью терной инфраструктуры.

Информация о модулях из этой главы Название Идентификатор Версия на CPAN JROGERS Net: : Telnet 3. FIMM Net: : Finger 1. Net: :Whois DHUDES 1. GBARR Net: :LDAP 0. Mozilla: :LDAP LEIFHED 1. Sys : : Hostname (входит в состав Perl) Win32 : : OLE (входит в состав ActiveState Perl) JDB 1. Рекомендуемая дополнительная литература Finger «RFC1288:The Finger User Information Protocol», D. Zimmerman, 1991.

WHOIS ftp://sipb.mit.edu/pub/whois/whois-servers.list - это список наиболее крупных WHOIS-серверов.

«RFC954.-NICNAME/WHOIS», К. Harrenstien, M. Stahl, and E. Fein ler, 1985.

LDAP «An Internet Approach to Directories», Netscape, 1997 - отличное введе ние в LDAP (http://developer.netscape.com/docs/manuals/ldap/ ldap.html).

«An LDAP Roadmap & FAQ», Jeff Hodges, 1999 (http://www.kingsmo untain.com/ldapRoadmap.shtml).

и http://www.linc-dev.com/ - домашние http://www.ogre.com/ldap/ страницы соавторов PerLDAP.

http://www.openldap.org/ - свободно распространяемый LDAP-сервер, находится в стадии активной разработки.

262 Глава 6. Службы каталогов http://www.umich.edu/~dirsvcs/ldap/index.html - домашняя страница «прародителя» служб каталогов OpenLDAP и Netscape. Некоторая документация представляет интерес до сих пор.

«Implementing LDAP», Mark Wilcox (Wrox Press, 1999).

«LDAP-HOWTO», Mark Grennan, 1999 (http://www.grennan.com/ldap HOWTO.html).

«LDAP Overview Presentation», Bruce Greenblatt, 1999 (http://www.di rectory-applications.com/presentation/).

«LDAP:Programming Directory-Enabled Applications With Lightweight Directory Access Protocol», Tim Howes and Mark Smith (Macmillan Technical Publishing, 1997).

Netscape Directory Server Administrator's /Installation /Deployment Gui des and SDK documentation (http://developer.netscape.com/docs/ manuals/directory.html).

«RFC1823:The LDAP Application Program Interface», T. Howes, M. Smith, 1995.

«RFC2222:Simple Authentication and Security Layer (SASL)», J. My ers, 1997.

«RFC2251.-Lightweight Directory Access Protocol (v3)», M. Wahl, T. Ho wes, S.Kille, 1997.

«RFC2252:Lightweight Directory Access Protocol (v3).-Attribute Syntax Definitions», M.Wahl, A. Coulbeck, T. Howes, S. Kille, 1997.

«RFC2254:The String Representation of LDAP Search Filters», T. Ho wes, 1997.

«RFC2255:The LDAP URL Format», T. Howes, M. Smith, 1997.

«RFC2256.-A Summary of the X.500(96) User Schema for use with LDAPvS», M. Wahl, 1997.

«The LDAP Data Interchange Format (LDIF)-Technical Specification» (в состоянии разработки), Gordon Good, 1999 (можно найти на http:// search.ietf.org/internet-drafts/draft-good-ldap-ldif-OX.txt, где X - это номер текущей версии).

«Understanding and Deploying Ldap Directory Services», Tim Howes, Mark Smith, Gordon Good (Macmillan Technical Publishing, 1998).

«Understanding LDAP», Heinz Jonner, Larry Brown, Franz-Stefan Hin* ner, Wolfgang Reis, Johan Westman, 1998. Превосходное введение в LDAP (http://www.redbooks.ibm.com/ abstracts/sg244986.html).

ADSI http://cwashington.netreach.net/ — еще один хороший сайт (посвяШ6* не только Perl) по созданию сценариев для ADSI и других техноло гий от Microsoft.

рекомендуемая дополнительная литература http://www.microsoft.com/adsi — канонический источник информации по ADSI;

обязательно загрузите отсюда ADSI SDK.

http://opensource.activestate.com/authors/tobyeverett - содержит кол лекцию документации по использованию ADSI из Perl Тоби Эверета.

http://www.15seconds.com- еще один хороший сайт (посвящен не только Perl) по созданию сценариев для ADSI и других технологий от Microsoft.

«Windows 2000 Active Directory», by Alistair G. Lowe-Norris (O'Reilly, 1999).

• Взаимодействие с SQL-сервером из Perl • Использование DBI • Использование ODBC • Документирование сервера • Учетные записи баз данных • Мониторинг состояния сервера • Информация о модулях из этой главы • Рекомендуемая дополнительная литература Администрирование баз данных SQL С какой стати глава, посвященная администрированию баз данных, находится в книге о системном администрировании? Существует по крайней мере три веские причины, по которым люди, интересующие ся Perl и системным администрированием, должны быть лояльнее к базам данных:

1. Через несколько глав этой книги красной нитью проходит мысль о растущей важности баз данных в современном системном адми нистрировании. Мы создавали (пусть и простые) базы данных, что бы хранить информацию о пользователях и машинах;

но это была лишь «верхушка айсберга». Списки рассылки, файлы паролей и даже реестр Windows NT/2000 - все являлось примерами баз дан ных, наблюдаемыми практически каждый день. Все крупные паке ты для системного администрирования (например, предлагаемые СА, Tivoli, HP и Microsoft) зависят от баз данных. Если вы собир»' етесь всерьез заняться системным администрированием, рано или поздно вам придется с ними столкнуться.

2. Управление и работа с базами данных - это «игра в игре» для сис темного администратора. Берясь за базы данных, помимо прочего, необходимо заниматься:

Pages:     | 1 |   ...   | 2 | 3 || 5 | 6 |   ...   | 7 |



© 2011 www.dissers.ru - «Бесплатная электронная библиотека»

Материалы этого сайта размещены для ознакомления, все права принадлежат их авторам.
Если Вы не согласны с тем, что Ваш материал размещён на этом сайте, пожалуйста, напишите нам, мы в течении 1-2 рабочих дней удалим его.