Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Системное программирование > Mail::Mailer

Автор: zhz 7.5.2007, 04:01

собсно небольшой скрипт
#!/usr/bin/perl
use warnings;
use Mail::Mailer;

%message = (
"From"=>'mailer <bombardier@mail.kamchatka.ru>',
"To"=>'admin <bombardier@mail.kamchatka.ru>',
"Subject"=>'cookbook'
);

eval {

$mailer = Mail::Mailer->new('smtp','smtp.kamchatka.ru');

};
if ($@) {
print "Couldn't send mail: $@\n";
} else {
print "The authorities have been notified.\n";
}
$mailer->open(\%message);

$body = "Message";

print $mailer $body ;

$mailer->close;
при запуске умирает и выкидывает

Died at /usr/local/lib/perl5/site_perl/5.8.8/Mail/Mailer.pm line 284.
с заголовками вроде все верно, аус на смтп тоже вроде как не нужен......так в чем делото?

Автор: nitr 7.5.2007, 10:10

тут ошибка:
вот как надо:

Код


$mailer = Mail::Mailer->new('smtp', Server => 'smtp.kamchatka.ru');

Добавлено через 1 минуту и 9 секунд
P.S.: читаем доку, если возникнут еще проблемы smile

Ну, а если уникальные, то добро пожаловать ;)