|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Andrew Lyadkov 2:5015/102.50 11 May 2001 23:24:56
To : crazy@lins.ospu.odessa.ua
Subject : Форма по почте
--------------------------------------------------------------------------------
( var Re: Форма по почте : Subj;
crazy@lins.ospu.odessa.ua : From); # last edit on Четверг Апрель 12
2001
begin
c> From: crazy@lins.ospu.odessa.ua
c> Reply-To: crazy@lins.ospu.odessa.ua
c> From: crazy <crazy@lins.ospu.odessa.ua>
c> Здравствуй, Петрович.
>> Hу заходи All, коли пришел...
>>
>> Подбросьте плиз исходник для отправки мессаги по мылу через сэндмэйл
>> на уже определенный адрес с определенной темой. Лично я делал
>> так: $mailprog="/usr/lib/sendmail"; $to =
>> $query->param('recipient'); $subject =
>> $query->param('subject'); $text = $query->param('text'); $from =
>> $query->param('from'); open(MAIL, "$mailprog -t") || die "Can't open
>> $mailprog!\n"; print MAIL "To: $to\n"; print MAIL "From:
>> $from\n"; print MAIL "Subject: $subject\n\n"; print MAIL "$text\n";
>> При отладке пишет Syntax OK, а при запуске - 500 Internal Server
>> Error
c> Возможно нет прав на запуск sendmail.
c> Альтернатива данному скрипту, использование модуля :
c> Mail::Mailer -- search.cpan.org
c> Позволяет работать с :
c> -- smtp-сервером
c> -- sendmail
end; # а сем закончу мысль. Andrew Lyadkov.
[Team *BMK*] [Team *BEER*]
... ... .. in the air Ария - Волонтёр playing .. ... ...
--- --- -- ЦД - ъ read/write ъ Р ї ъъъ GoldED/W32я
* Origin: УД - ъ my nest ъ Р Щ ъъъ (2:5015/102.50)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
