|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Artem Chuprina 2:5020/400 20 Apr 2001 11:40:48 To : Denis Averkov Subject : Re: sendmail -------------------------------------------------------------------------------- Здравствуй, Denis Averkov. В твоём письме от Thu, 19 Apr 2001 07:24:50 +0400 написано: DA> Здорово, ALL! DA> как с помощью перла правильно работать с sendmail? DA> я пробовал так: DA> $mailprog = '/usr/sbin/sendmail'; DA> $mail = 'mymail@mail.ru'; DA> if(!open (MAIL, "|$mailprog -t")) DA> { DA> print "Content-Type: text/html\n\n"; DA> print "<HTML><HEAD><TITLE>Error open sendmail</TITLE></HEAD><BODY DA> print "<HTML>BGCOLOR=#FFFFFF TEXT=#000000><H4>Error</H4></BODY></HTML>"; DA> } DA> else DA> { DA> print MAIL "Return-Path: <url\@domain.ru>\n"; Вот этого быть не должно. DA> print MAIL "To: $mail\n"; DA> print MAIL "From: Denis\n"; DA> print MAIL "Subject: test\n"; DA> print MAIL "Mime-Version: 1.0\n"; DA> print MAIL "Content-Type: text/plain; charset=windows-1251\n"; DA> print MAIL "Content-Transfer-Encoding: 8bit\n\n"; DA> print MAIL "TEST PASSED!!!"; А вот тут бы лучше в конце \n добавить, чтобы строка была закончена. DA> if(!close (MAIL)) DA> { DA> print "Content-Type: text/html\n\n"; DA> print "<HTML><HEAD><TITLE>Error</TITLE></HEAD><BODY BGCOLOR=#FFFFFF DA> print "<HTML>TEXT=#000000><H4>Error close sendmail</H4></BODY></HTML>"; DA> } DA> else DA> { DA> print "Content-Type: text/html\n\n"; DA> print "<HTML><HEAD><TITLE>All right</TITLE></HEAD><BODY BGCOLOR=#FFFFFF DA> print "<HTML>TEXT=#000000><H4>All right</H4></BODY></HTML>"; DA> } DA> } DA> Выводило, что типа все All right, а сообщений никаких не посылало. DA> Что-то я делаю не так? В остальном вроде все правильно... А адрес, который To:, он живой? -- Artem Chuprina E-mail: ran@ran.pp.ru Programmer FIDO: 2:5020/371.32 Memonet Ltd. Phone: +7-095-284-1356 --- ifmail v.2.15dev5 * Origin: NTV Internet (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/164834e4835af.html, оценка из 5, голосов 10
|