Eugeniuz
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Проблема такая: не работает отправка через
SMTP сервер. При попытке обработать эту команду скрипт подвисает.
Такое ощущение что в коде (ikonmail.lib) отсутствуют команды для формирования и отправки письма через SMTP. Через sendmail и blat данные формируются а через SMTP вроде нет. Чего-то не хватает. Где найти?
if ($SEND_MAIL ne "" {
open (MAIL,"| $SEND_MAIL -t";
}
print MAIL "To: $to\n";
print MAIL "From: $fromaddr\n";
print MAIL "Reply-to: $replyaddr\n" if $replyaddr;
print MAIL "X-Mailer: Perl Powered Socket Mailer\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$message";
print MAIL "\n.\n";
if ($SMTP_SERVER ne "" {
$_ = <MAIL>;
if (/^[45]/) {
close(MAIL);
return(-7);
}
print MAIL "quit\r\n";
$_ = <MAIL>;
}
close(MAIL);
return(1);
} # end SMTP, or sendmail
else { #blat
$tempfile = "$ikondir" . "tempfile.txt";
open(FILE,">$tempfile";
print FILE "$message";
close(FILE);
open(MAIL,"|blat $tempfile -t \"$to\" -b \"$bccinfo\" -i \"$fromaddr\" -f \"$fromaddr\" -s \"$subject\"";
close(MAIL);
---------
Имитация подписи запрещена, п. 2.8 правил. lynx. |
Всего записей: 2 | Зарегистр. 03-06-2004 | Отправлено: 18:52 03-06-2004 | Исправлено: lynx, 02:55 05-06-2004 |
|
