|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Denis Averkov 2:5030/781.31 19 Apr 2001 08:24:50 To : ALL Subject : sendmail -------------------------------------------------------------------------------- как с помощью перла правильно работать с sendmail? я пробовал так: $mailprog = '/usr/sbin/sendmail'; $mail = 'mymail@mail.ru'; if(!open (MAIL, "|$mailprog -t")) { print "Content-Type: text/html\n\n"; print "<HTML><HEAD><TITLE>Error open sendmail</TITLE></HEAD><BODY BGCOLOR=#FFFFFF TEXT=#000000><H4>Error</H4></BODY></HTML>"; } else { print MAIL "Return-Path: <url\@domain.ru>\n"; print MAIL "To: $mail\n"; print MAIL "From: Denis\n"; print MAIL "Subject: test\n"; print MAIL "Mime-Version: 1.0\n"; print MAIL "Content-Type: text/plain; charset=windows-1251\n"; print MAIL "Content-Transfer-Encoding: 8bit\n\n"; print MAIL "TEST PASSED!!!"; if(!close (MAIL)) { print "Content-Type: text/html\n\n"; print "<HTML><HEAD><TITLE>Error</TITLE></HEAD><BODY BGCOLOR=#FFFFFF TEXT=#000000><H4>Error close sendmail</H4></BODY></HTML>"; } else { print "Content-Type: text/html\n\n"; print "<HTML><HEAD><TITLE>All right</TITLE></HEAD><BODY BGCOLOR=#FFFFFF TEXT=#000000><H4>All right</H4></BODY></HTML>"; } } Выводило, что типа все All right, а сообщений никаких не посылало. Что-то я делаю не так? Hе прощаюсь. ICQ #22145007 e-mail: cyberden@mail.ru [Dressed In Black] [ВоенМех] [The Doors] --- GoldEd v3.00Alpha5+ --- * Origin: "640K должно хватить всем" - Билл Гейтс, 1981 г. (2:5030/781.31) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/164343adea249.html, оценка из 5, голосов 10
|