Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> отправка почты с помощью модуля Email::Sender 
:(
    Опции темы
ll75
Дата 6.3.2017, 14:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


ok, let' go
*


Профиль
Группа: Участник
Сообщений: 79
Регистрация: 4.10.2006
Где: musiq

Репутация: нет
Всего: 1



Ранне для отправки почты в скрипте использовался модуль Mail::Sender с таким блоком:
Код

$Mail::Sender::NO_X_MAILER = 1;
my $sender = new Mail::Sender({%smtp_connection});
$sender->Open({%mail});
$sender->SendLineEnc($body);
$sender->Close() or $logger->error("Failed to send vacation response: "         . $sender->{'error_msg'});
$logger->debug("Vacation response sent to $to, from $from");
}


но теперь при запуске скрипта perl ругается, что модуль deprecated (наверное устарел) и надо исп-ть модуль Email::Sender.
Помогите плз составить аналогичный блок, но для модуля Email::Sender. На CPAN такой пример исп-ия:
Код

my $message = Email::MIME->create( ... );
# produce an Email::Abstract compatible message object,
# e.g. produced by Email::Simple, Email::MIME, Email::Stuff
 
use Email::Sender::Simple qw(sendmail);
use Email::Sender::Transport::SMTP qw();
use Try::Tiny;
 
try {
  sendmail(
    $message,
    {
      from => $SMTP_ENVELOPE_FROM_ADDRESS,
      transport => Email::Sender::Transport::SMTP->new({
          host => $SMTP_HOSTNAME,
          port => $SMTP_PORT,
      })
    }
  );
} catch {
    warn "sending failed: $_";
};

PM MAIL   Вверх
arto
Дата 6.3.2017, 16:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40



perldoc Email::Sender::Manual::QuickStart не помогает?
PM MAIL ICQ   Вверх
ll75
Дата 6.3.2017, 17:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


ok, let' go
*


Профиль
Группа: Участник
Сообщений: 79
Регистрация: 4.10.2006
Где: musiq

Репутация: нет
Всего: 1



Цитата(arto @ 6.3.2017,  16:12)
perldoc Email::Sender::Manual::QuickStart не помогает?


ещё не читал 8-)
а может возможность принудительно указать использовать старый модуль Mail::Sender, хоть он и deprecated?
PM MAIL   Вверх
arto
Дата 7.3.2017, 08:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40



удалите warnings::warnif('deprecated', 'Mail::Sender is deprecated and you should look to Email::Sender instead'); из Mail/Sender.pm,
но это плохая идея.
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.1194 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.