$server->post(@message) or die "Cant post\n";

Метод postok позволяет узнать, разрешена ли отправка сообщений на данный сервер Usenet:

unless ($server->postok()) { warn "You may not post,\n";

Полный список методов приведен в man-странице модуля Net::NNTP.

t> Смотри также-

Документация но модулю Net::NNTP от CPAN; RFC 977, Network News Transport Protocob; страницы руководства tm(l) и innd(8) вашей системы (если есть).

18.5. Чтение почты на серверах РОРЗ

Проблема

требуется принять почту с сервера РОРЗ. Например, программа может получать данные о непрочитанной почте, перемещать ее с удаленного сервера в локальный почтовый ящик или переключаться между Интернетом и локальной почтовой системой.

Решение

Воспользуйтесь модулем Net:;P0P3 с CPAN:

$рор = Net::P0P3->new($mail server)

or die "Cant open connection to $mail server : $!\n"; $pop->login($username, Spassword)

or die "Cant authenticate: $!\n"; Smessages = $pop->list

or die "Cant get list of undeleted messages: $!\n"; foreach Smsgid (keys %$messages) {

Smessage = $pop->get(Smsgid);

unless (defined Smessage) {

warn "Couldnt fetch Smsgid from server: $!\n"; next;

# Smessage - ссылка на массив строк $pop->delete(Smsgid);

Комментарий

Традиционно в доставке почты участвовали три стороны: МТА (транспортный почтовый агент - системная программа типа sendmail) доставляет почту в накопитель (spool), а затем сообщения читаются с помощью MUA (пользователь-

18.5. Чтение почты на серверах РОРЗ 657

ские почтовые агенты - программы типа mail). Такая схема появилась в те времена, когда почта хранилась на больших серверах, а пользователи читали сообщения на простейших терминалах. По мере развития PC и сетевых средств появилась потребность в MUA (таких, как Pine), которые бы работали на пользовательских компьютерах (а не на том компьютере, где находится накопитель). Протокол POP (Post Office Protocol) обеспечивает эффективное чтение и удаление сообщений во время сеансов TCP/IP.

Модуль Net::P0P3 от CPAN обслуживает клиентскую сторону POP. Иначе говоря, он позволяет программе на Perl выполнять функции MUA. Работа с Net::P0P3 начинается с создания нового объекта Net::P0P3. Конструктору new передается имя сервера РОРЗ:

$рор = Net::P0P3->new( "pop.myisp.com" )

or die "Cant connect to pop.myisp.com: $!\n";

При возникновении ошибок все функции Net::P0P3 возвращают undef или пустой список в зависимости от контекста вызова. При зтом переменная $! может содержать осмысленное описание ошибки (а может и не содержать).

Кроме того, конструктору new можно передать дополнительные аргументы и определить тайм-аут (в секундах) для сетевых операций:

$рор = Net::P0P3->new( "pop.myisp.com", Timeout => 30 ) or die "Cant connect to pop.myisp.com : $!\n";

Метод login выполняет аутентификацию на сервере РОРЗ. Он получает два аргумента - имя пользователя и пароль, но оба аргумента являются необязательными. Если пропущено имя пользователя, используется текущее имя. Если пропущен пароль, Net::P0P3 пытается определить пароль с помощью модуля Net::Netrc:

$pop->login("gnat", "S33kr1T Pa55w0rD")

or die "Hey, my username and password didnt work!\n";

$pop->login( "midget" ) # Искать пароль с помощью Net::Netrc

or die "Authentication failed.\n";

$pop->login() # Текущее имя пользователя и Net::Netrc

or die "Authentication failed. Miserably.\n";

При вызове метода login пароль пересылается по сети в виде обычного текста. Это нежелательно, поэтому при наличии модуля MD5 от CPAN можно воспользоваться методом арор. Он полностью идентичен login за исключением того, что пароль пересылается в текстовом виде:

$рор->арор( $username, Spassword )

or die "Couldnt authenticate: $!\n";

После аутентификации методы list, get и delete используются для работы с накопителем. Метод list выдает список неудаленных сообщений, хранящихся в

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

%undeleted = $pop->list(),

foreach Smsgnum (keys %undeleted) {

print "Message $msgnum is $undeleted{$msgnum bytes long \n";

Чтобы принять сообщение, вызовите метод get с нужным номером. Метод возвращает ссылку на массив строк сообщения:

print Retrieving $msgnum Smessage = $pop->get($msgnum), If (Smessage) {

# succeeded

print "\n ;

print @$message, # Вывести сообщение

} else {

# failed print failed ($)\n

Метод delete помечает сообщение как удаленное. При вызове метода quit, завершающего сеанс РОРЗ, помеченные сообщения удаляются из почтового ящика. Метод reset отменяет все вызовы delete, сделанные во время сеанса. Если сеанс завершается из-за того, что объект Net::P0P3 уничтожен при выходе из области действия, метод reset будет вызван автоматически.

Возможно, вы заметили, что мы ничего не сказали об отправке почты. РОРЗ поддерживает только чтение и удаление существующих сообщений. Новые сообщения приходится отправлять с помощью программ типа mail или sendmail или протокола SMTP. Другими словами, рецепт 18.3 все равно пригодится.

Основная задача РОРЗ - подключение почтовых клиентов к почтовым серверам - также выполняется протоколом IMAP. IMAP обладает более широкими возможностями и чаще используется на очень больших узлах.

1> Смотри также-

Документация по модулю Net::P0P3 с CPAN; RCS 1734, «РОРЗ AUTHentication command*; RFC 1957, «Some Observations on Implementations of the Post Office Protocol*.

18.6. Программная имитация сеанса telnet

Проблема

Вы хотите обслуживать подключение telnet в своей программе - регистрироваться на удаленном компьютере, вводить команды и реагировать на них. Такая задача имеет много практических применений - от автоматизации на компьютерах с доступом telnet, но без поддержки сценариев или rsh, до обычной проверки работоспособности демона telnet на другом компьютере.