Личный кабинет    
Назад К началу Вперед Карта сайта Телефонные коды стран и городов Мира Анализатор тарифов Служб IP-Телефонии и Рейтинг

Разделы
Введение
Литература
Операторы
Оборудование
Анализатор
Сотрудничество
Печать карт
Новости
Опросник
Коды
Справка
Работа
Каталог
Хостинг
Личный кабинет

Реклама

Perl для IP-Телефонии (26 – MIМЕ::Tools, часть 29)

предыдущая часть ««»» следующая часть
компьютерная помощь ценыМетод last_head() возвращает объект MIME::Head верхнего уровня из последнего потока данных, для которого была предпринята попытка интерпретации. Даже если тело сообщения не было успешно интерпретировано, можно использовать заголовок, возвращенный этим методом, для восстановления хотя бы части информации, например строки заголовка и имени отправителя.

Пример применения модуля MIME: отправка по почте последних поступлений в архив CPAN.
В данном разделе разрабатывается приложение, которое объединяет возможности Модуля Net::FTP, описанного ранее, и модулей Mail и MIME, рассматриваемых недавно. Эта программа выполняет регистрацию на FTP-узле архива CPAN, считывает файл RECENT, содержащий список модулей, которые были недавно предоставлены на этом узле в общее пользование, загружает их, а затем включает как файловые дополнения в исходящее сообщение электронной почты.  Замысел этого сценария состоит в том, чтобы он выполнялся каждую неделю для получения автоматически формируемого уведомления о новых поступлениях в архив CPAN.

Сценарий mail_recent.pl
# ! /usr/local/bih/perl -w
# Файл: mail_recent.pl
use strict;
use Net::FTP;
use MIME::Entity;
use constant HOST => 'ftp.perl.org';
use constant DIE => '/pub/.СPAN';
use constant REGENT => 'RECENT';
use constant MAILTO => ' lstein';
use constant DEBUG => 1;
my % RETRIEVE;
my $TMPDIR = $ENV{TMPDIR} || ’ /usr/tmp' ;
warn "logging inn" if DEBUG;
my $ftp = Net::FTP->new(HOST);
or die "Couldn't connect:$@n";
$ftp->login('anonymous')    or    die    $ftp->message;
 $ftp->cwd (DIR)    or    die    $ ftp->message;
# Получить файл RECENT
warn "fetching RECENT filen" if DEBUG;
$fh = $ftp->retr(RECENT) or die $ftp->message;
while (<$fh>) {
chomp;
$RETRIEVE { $1} = $_
if m!^modules/by-module/.+/([^/] +.tar.gz) $!;
$fh->close;
my count = keys %RETRIEVE;
my message = "Please find enclosed $count
recent modules submitted to CPAN.nn";
# Приступить к созданию сообщения MIME
my $mail = MIME::Entity->build (
Subject => 'Recent CPAN submissions',
To    =>    MAILTO,
Type    =>    ' text/plain',
Encoding =>    '7bit',
Data    =>    $message,
) ;
# Получить каждый из указанных файлов и преобразовать во
# вложение
for my $file (keys %RETRIEVE) {
    my $remote_path = $RETRIEVE{$file};
    my $local_path = "$TMPDIR/$file";
    warn "retrieving $filen" if DEBUG;
    $ftp->get($remote_path,$local_path)
            or warn($ftp->message) and next;
    $mail->attach(Path    =>    $local_path,
    Encoding    =>    'base64',
Type    =>    ' application/x-gzip',
    Description =>    $file,
    Filename    =>    $file);
}
    $mail->sign(File => "$ENV{HOME}/.signature")
if -e "$ENV{HOME}/.signature";
    warn "sending mailn" if DEBUG;
    $mail->send('smtp');
    $mail->purge;
    $ftp->quit;

Метод last_head() возвращает объект MIME::Head верхнего уровня из последнего потока данных, для которого была предпринята попытка интерпретации. Даже если тело сообщения не было успешно интерпретировано, можно использовать заголовок, возвращенный этим методом, для восстановления хотя бы части информации, например строки заголовка и имени отправителя.

 

Пример применения модуля MIME: отправка по почте последних поступлений в архив CPAN.

В данном разделе разрабатывается приложение, которое объединяет возможности Модуля Net::FTP, описанного ранее, и модулей Mail и MIME, рассматриваемых недавно. Эта программа выполняет регистрацию на FTP-узле архива CPAN, считывает файл RECENT, содержащий список модулей, которые были недавно предоставлены на этом узле в общее пользование, загружает их, а затем включает как файловые дополнения в исходящее сообщение электронной почты. Замысел этого сценария состоит в том, чтобы он выполнялся каждую неделю для получения автоматически формируемого уведомления о новых поступлениях в архив CPAN.

Метод last_head() возвращает объект MIME::Head верхнего уровня из последнего потока данных, для которого была предпринята попытка интерпретации. Даже если тело сообщения не было успешно интерпретировано, можно использовать заголовок, возвращенный этим методом, для восстановления хотя бы части информации, например строки заголовка и имени отправителя.

Пример применения модуля MIME: отправка по почте последних поступлений в архив CPAN.
В данном разделе разрабатывается приложение, которое объединяет возможности Модуля Net::FTP, описанного ранее, и модулей Mail и MIME, рассматриваемых недавно. Эта программа выполняет регистрацию на FTP-узле архива CPAN, считывает файл RECENT, содержащий список модулей, которые были недавно предоставлены на этом узле в общее пользование, загружает их, а затем включает как файловые дополнения в исходящее сообщение электронной почты. Замысел этого сценария состоит в том, чтобы он выполнялся каждую неделю для получения автоматически формируемого уведомления о новых поступлениях в архив CPAN.
Метод last_head() возвращает объект MIME::Head верхнего уровня из последнего потока данных, для которого была предпринята попытка интерпретации. Даже если тело сообщения не было успешно интерпретировано, можно использовать заголовок, возвращенный этим методом, для восстановления хотя бы части информации, например строки заголовка и имени отправителя.

Пример применения модуля MIME: отправка по почте последних поступлений в архив CPAN.
В данном разделе разрабатывается приложение, которое объединяет возможности Модуля Net::FTP, описанного ранее, и модулей Mail и MIME, рассматриваемых недавно. Эта программа выполняет регистрацию на FTP-узле архива CPAN, считывает файл RECENT, содержащий список модулей, которые были недавно предоставлены на этом узле в общее пользование, загружает их, а затем включает как файловые дополнения в исходящее сообщение электронной почты. Замысел этого сценария состоит в том, чтобы он выполнялся каждую неделю для получения автоматически формируемого уведомления о новых поступлениях в архив CPAN.
Метод last_head() возвращает объект MIME::Head верхнего уровня из последнего потока данных, для которого была предпринята попытка интерпретации. Даже если тело сообщения не было успешно интерпретировано, можно использовать заголовок, возвращенный этим методом, для восстановления хотя бы части информации, например строки заголовка и имени отправителя.

Пример применения модуля MIME: отправка по почте последних поступлений в архив CPAN.
В данном разделе разрабатывается приложение, которое объединяет возможности Модуля Net::FTP, описанного ранее, и модулей Mail и MIME, рассматриваемых недавно. Эта программа выполняет регистрацию на FTP-узле архива CPAN, считывает файл RECENT, содержащий список модулей, которые были недавно предоставлены на этом узле в общее пользование, загружает их, а затем включает как файловые дополнения в исходящее сообщение электронной почты. Замысел этого сценария состоит в том, чтобы он выполнялся каждую неделю для получения автоматически формируемого уведомления о новых поступлениях в архив CPAN.
Метод last_head() возвращает объект MIME::Head верхнего уровня из последнего потока данных, для которого была предпринята попытка интерпретации. Даже если тело сообщения не было успешно интерпретировано, можно использовать заголовок, возвращенный этим методом, для восстановления хотя бы части информации, например строки заголовка и имени отправителя.

Пример применения модуля MIME: отправка по почте последних поступлений в архив CPAN.
В данном разделе разрабатывается приложение, которое объединяет возможности Модуля Net::FTP, описанного ранее, и модулей Mail и MIME, рассматриваемых недавно. Эта программа выполняет регистрацию на FTP-узле архива CPAN, считывает файл RECENT, содержащий список модулей, которые были недавно предоставлены на этом узле в общее пользование, загружает их, а затем включает как файловые дополнения в исходящее сообщение электронной почты. Замысел этого сценария состоит в том, чтобы он выполнялся каждую неделю для получения автоматически формируемого уведомления о новых поступлениях в архив CPAN.


2014-01-30 12:35:15

предыдущая часть ««»» следующая часть


ДОКУМЕНТАЦИЯ VoIP


НОВОСТИ СВЯЗИ


РЕКОМЕНДУЕМ

 
[ стандарты | обзор | оборудование | анализатор | коды | новости | карта | партнерам | Мы ВКонтаке ]
Запрещается копировать материалы сайта без уведомления авторов.
С вопросами и предложениями обращайтесь со страницы контактов
Copyright c 1999-2024 IPTop.Net
 
IP-Телефония, Интернет Телефония, Компьютерная телефония