ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Ђ­¤аҐ© Џ                             2:5020/400     09 Feb 2001  19:17:26
 To : Roman Kondrashin
 Subject : Форма -> е-меил
 -------------------------------------------------------------------------------- 
 

 Приветствую!
 
 В ответ на сообщение от Friday, February 09, 2001 9:30:08 AM:
 
 >> Дайте, плиз, скриптик, для посылки сабжа без использования почтовой
 >> программы  пользователя. Т.е. он заполняет форму, жмет "Отправить",
 >> они сразу отправляется...
 
 RK> Скриптик  так себе... надо бы доработать, но лень... отправляет-то
 RK> всё равно нормально
 
 А вот мой если хочешь ;) Он ещё и перекодировать умеет в кои...
 
 sub sendmail {
         my %HASH = @_;
         my $encodding;
         if (-f "localblock") {
                 open (MAIL, ">>mail.txt");
                 print MAIL
 "\n---------------------------------------8<------------------------------------
 ---\n";
         }
         else {
                 open (MAIL, "|/usr/sbin/sendmail -t");
         }
 
         if ($HASH{'encodding'} eq 'koi') {
                 $encodding = "koi8-r";
                 foreach (keys (%HASH)) {
                         $HASH{$_} =~
 tr/\xC0\xC1\xC2\xC3\xC4\xC5\xC6\xC7\xC8\xC9\xCA\xCB\xCC\xCD\xCE\xCF\xD0\xD1\xD2\
 xD3\xD4\xD5\xD6\xD7\xD8\xD9\xDA\xDB\xDC\xDD\xDE\xDF\xE0\xE1\xE2\xE3\xE4\xE5\xE6\
 xE7\xE8\xE9\xEA\xEB\xEC\xED\xEE\xEF\xF0\xF1\xF2\xF3\xF4\xF5\xF6\xF7\xF8\xF9\xFA\
 xFB\xFC\xFD\xFE\xFF/\xE1\xE2\xF7\xE7\xE4\xE5\xF6\xFA\xE9\xEA\xEB\xEC\xED\xEE\xEF
 \xF0\xF2\xF3\xF4\xF5\xE6\xE8\xE3\xFE\xFB\xFD\xFF\xF9\xF8\xFC\xE0\xF1\xC1\xC2\xD7
 \xC7\xC4\xC5\xD6\xDA\xC9\xCA\xCB\xCC\xCD\xCE\xCF\xD0\xD2\xD3\xD4\xD5\xC6\xC8\xC3
 \xDE\xDB\xDD\xDF\xD9\xD8\xDC\xC0\xD1/;
                 }
         }
         if ($HASH{'encodding'} eq 'win' || !$HASH{'encodding'}) {
                 $encodding = "win1251";
         }
 
         print MAIL "From: $HASH{'from'}\n";
         print MAIL "To: $HASH{'to'}\n";
         print MAIL "Content-Type: TEXT/PLAIN; charset=$encodding\n";
         print MAIL "X-Mailer: SoobCha auto mailer\n";
         print MAIL "Subject: $HASH{'subject'}\n\n";
         print MAIL "$HASH{'body'}\n";
 
         close MAIL;
 }
 
 Вызов:
 
 &sendmail (
           'from' => 'Andrew Perevodchik <ok@naverex.kiev.ua>',
           'to' => 'fido7.ru.cgi.perl@talk.ru',
           'subject' => 'Форма -> е-меил',
           'encodding' => 'koi',
           'body' => "$message_body",
 )
 
 Если  в директории запуска есть файл localblock то отправлять будет не
 на сендмейл а писать в mail.txt. Это для отладки.
 
 -- 
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: СообЧа http://www.soobcha.nsk.su (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Форма -> е-меил   Roman Reznichenko   08 Feb 2001 13:56:17   Re: Форма -> е-меил   Roman Kondrashin   09 Feb 2001 11:30:08   Форма -> е-меил   Ђ­¤аҐ© Џ   09 Feb 2001 19:17:26