18.4. Чтение и отправка новостей Usenet 653

From: Tom Christiansen <tchrist\@perl com> To: Nathan Torkmgton <gnat\@frii com> Subject: Re: The Perl Cookbook

(1) Мы никогда не закончим эту книгу.

(2) Тот, кто работает с EMACS, не заслуживает любви.

(3) Переходи на vi.

Том EOF

close(SENDMAIL);

Перед нами тривиальное использование функции open для запуска другой программы (см. рецепт 16.4). Нам приходится указывать полный путь к sendmail, поскольку местонахождение этой программы меняется от компьютера к компьютеру. Обычно она находится в каталоге /usr/lib или /usr/sbin. Флаги, передаваемые sendmail, говорят о том, что программа не должна завершаться при чтении строки, состоящей из одной точки (-ог); что адресат сообщения определяется по данным заголовка (-i); а также о том, что вместо немедленной доставки сообщение должно помещаться в очередь {-odq). Последний параметр важен лишь при отправке больших объемов почты - без него компьютер быстро захлебнется в многочисленных процессах sendmail. Чтобы сообщение доставлялось немедленно (например, во время тестирования или при срочной доставке почты), удалите -odq из командной строки.

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

Некоторые версии Perl (особенно для Windows и Мае) не имеют аналогов sendmail или mail. В таких случаях отправка почты осуществляется через сервер SMTP.

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

Описание функции open в perlfunc{\); рецепты 16.4; 16.10; 16.19; 19.6; определение протокола SMTP в документе RFC 821, а также дополнения в последующих RFC.

18.4. Чтение и отправка новостей Usenet

Проблема

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

Решение

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

use Net::NNTP;

Sserver = Net::NNTP->new("news.host.dom")

or die "Cant connect to news server: S@\n"; (Snarticles, Sfirst, Slast, Sname) = Sserver->group( "misc.test" )

or die "Cant select misc.test\n"; Sheaders = Sserver->head(Sfirst)

or die "Cant get headers from article Sfirst in Sname\n"; Sbodytext = Sserver->body(Sfirst)

or die "Cant get body from article Sfirst in $name\n"; Sarticle = $server->article($first)

or die "Cant get article Sfirst from Sname\n";

Sserver->postok()

or warn "Server didnt tell me I could post,\n";

$server->post( [ @lines ] ) or die "Cant post: S\n":

Комментарий

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

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

<0401@]pl-devvax.JPL.NASA.GOV>

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

Конструктор Net::NNTP подключается к заданному серверу Usenet. Если соединение не удается установить, он возвращает undef и присваивает переменной $@ сообщение об ошибке. Если соединение было успешно установлено, new возвращает новый объект Net::NNTP:

18.4. Чтение и отправка новостей Usenet 655

Sserver = Net::NNTP->new("news.mycompany, com)

or die Couldnt connect to news.mycompany.com $@\n";

После установки соединения метод list возвращает список конференций в виде ссылки на хэш, ключи которого соответствуют именам конференций. Ассоциированные значения представляют собой ссылки на массивы, содержащие первый допустимый номер сообщения в конференции, последний допустимый номер сообщения в конференции и строку флагов. Флаги обычно равны "у" (отправка разрешена), но также могут быть равны "т" (модерируемая конференция) или =ИМЯ (данная конференция дублирует конференцию ИМЯ). На сервере могут храниться свыше 17000 конференций, поэтому выборка всего списка требует некоторого времени.

$grouplist = $server->list()

or die "Couldnt fetch group list\n";

foreach Sgroup (keys %$grouplist) {

If ($grouplist->{$group}->[2] eq y) { # Отправка в Sgroup разрешена

По аналогии с концепцией текущего каталога в FTP, протокол NNTP (NetNews Transfer Protocol) поддерживает концепцию текущей конференции. Назначение текущей конференции выполняется методом group:

(Snarticles, $first, $last, $name) = $server->group("comp.lang.perl.misc") or die "Cant select сотр.lang.perl.misc\n";

Метод group возвращает список из четырех элементов: количество сообщений в конференции, номер первого сообщения, номер последнего сообщения и название конференции. Если конференция не существует, возвращается пустой список.

Содержимое сообщений можно получить двумя способами: вызвать метод article с идентификатором сообщения или выбрать конференцию методом group, а затем вызвать article с номером сообщения. В скалярном контексте метод возвращает ссылку на массив строк. В списковом контексте возвращается список строк. При возникновении ошибки article возвращает false:

@lines = $server->article($message id)

or die "Cant fetch article $article number $!\n";

Для получения заголовка и основного текста сообщения используются соответственно методы head и body. Как и article, они вызываются для идентификатора или номера сообщения и возвращают список строк или ссылку на массив:

@group = $server->group("comp lang.perl.misc")

or die "Cant select group comp lang perl misc\n"; @lines = $server->head($group[1])

or die "Cant get headers from first article in сотр.lang.perl.misc\n";

Метод post отправляет новое сообщение. Он получает список строк или ссылку на массив строк и возвращает true при успешной отправке или false в случае неудачи.