|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Oleg Dynnikov 2:5020/400 19 Jan 2001 16:22:39
To : Vladimir Podgorny
Subject : Re: Как вставить поле Subj
--------------------------------------------------------------------------------
Vladimir Podgorny <raven@t-rex.adamant.net> пишет:
VP> #!/usr/bin/perl
VP> use Mail::Sender;
VP> my $socket=new Mail::Sender{smtp=>'127.0.0.1',
VP> from=>'me@dev.null',
VP> subject=>'My cool subject',
VP> to=>'me@dev.null'};
VP> $socket->Open();
VP> $socket->SendLine('My cool test');
VP> $socket->Close;
Владимир, а в чем может быть проблема, если приведенная вами
конструкция отрабатывает, но сообщение не посылается (и никакой
ошибочной диагностики не появляется).
А если я использую метод MailMsg, то пишется "connect() failed:
Connection refused"
я что-то уже и не знаю на что грешить :(((
кусок скрипта следующий :
ref ($sender = new Mail::Sender({smtp => "$server_ip", from
=> 'real_addr@xxx.ru', replyto => 'real_addr@xxx.ru', subject
=> "$subject", to=>"$1"})) or die "$Mail::Sender::Error\n";
$sender->Open() or die "$Mail::Sender::Error\n";
# $sender->Body('koi8-r',0,'text/html') or die "$Mail::Sender::Error\n";
$sender->SendLine("$body") or die "$Mail::Sender::Error\n";
$sender->Close;
я проверял $1, $body, $subject, $server_ip - определены :(
так отрабатывает и не ругается, но и не отсылает :(
ref ($sender = new Mail::Sender({smtp => "$server_ip", from
=> 'real_addr@xxx.ru', replyto => 'real_addr@xxx.ru', subject
=> "$subject"})) or die "$Mail::Sender::Error\n";
ref ($sender->MailMsg({to => "$1", msg => "$body"})) or
die "$Mail::Sender::Error\n";
а так ругается :((
--
С уважением, Олег
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
