ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander A. An 2:5085/109.1 11 Dec 2006 13:04:34
To : All
Subject : И снова отправка почты
--------------------------------------------------------------------------------
Есть скрипт для отправки e-mail сообщений. Параметры для отправки читаются из
конфига.
Проблема: когда запускается непосредственно скрипт (perl myscript.pl) все
работает прекрасно. Создаю исполняемый файл с помощью Perl2Exe 8.80 (пробовал
также 8.60 и 8.70). Запускаю. Файл вроде бы срабатывает, по крайней мере
завершающий вывод на экран "ОК" происходит. Hо письмо не уходит - не попадает на
почтовый сервер.
В чем может быть проблема?
ДДДДДДДДДДДДДДДДДДДДДД[ Windows Clipboard ]ДДДДДДДДДДДДДДДДДДДДДДДД
use Email::Send;
use Class::Accessor::Fast;
use Class::Accessor;
use Bytes;
use cyrillic qw/866 win2dos convert locase upcase detect/;
[skip]
my $message = <<"_MESSAGE_";
To: $recipients
From: $from
Subject: $subject
$text
_MESSAGE_
my $sender = Email::Send->new({mailer => 'SMTP'});
$sender->mailer_args([Host => $postserver]);
$sender->send($message);
print "OK \n";
end;
ДДДДДДДДДДДДДДДДДДДДДД[ Windows Clipboard ]ДДДДДДДДДДДДДДДДДДДДДДДД
--- <[ ФК Локомотив (М) - Hаш паровоз вперёд летит... ]> ---
* Origin: Мчится тихий огонёк моей души (2:5085/109.1)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
