Forum Webscript.Ru

Программирование => Perl => Тема начата: от 06 Января 2002, 20:18:12

Название: mail - литл трабл
Отправлено: от 06 Января 2002, 20:18:12

Наверняка кто-нибудь сталкивался с таким.
Отправляю сообщение в koi  и для того, что бы почтовая прогрмма могла автоматически подстроиться под кодировку, вставляю следующую строку:

$additional_headers="\\nContent-Type: text/plain; charset=koi8-r \\nContent-Transfer-Encoding: 8bit";

... и отсылаю сообщение mail($to, $subject, $body, $repadres, $additional_headers);

Но в коде письма этой строки нет :(
Не пойму в чем проблема?

Название: А...
Отправлено: Green Kakadu от 07 Января 2002, 01:58:45

Цитировать

и отсылаю сообщение mail($to, $subject, $body, $repadres, $additional_headers);

ну а можно продемонстрировать код подпрограммы mail?
Ведь в ней все дело ;)

Название: и еще
Отправлено: Green Kakadu от 07 Января 2002, 02:02:30

$additional_headers="\\nContent-Type: text/plain; charset=koi8-r \\nContent-Transfer-Encoding: 8bit";
...
отсылаем...

В промежутке ... нигде нет присваивания переменной $additional_headers еще каких-либо значений?
а то может вы написали свое, а чуть дальше ей присваивается что-то другое.

Название: mail - литл трабл
Отправлено: vladsu от 07 Января 2002, 02:30:01

Код: [Выделить]


$mail_prog="/usr/sbin/sendmail -t ";
    open (SENDMAIL, "|$mail_prog") || die "Can not run sendmail";
    print SENDMAIL "MIME-Version: 1.0\\n";
    print SENDMAIL "Content-Type: text/plain; charset=\\"koi8-r\\"\\n";
    print SENDMAIL "Content-Transfer-Encoding: 8bit\\n";
    print SENDMAIL "To: $email\\n";
    print SENDMAIL "From: $support_email\\n";
    print SENDMAIL "Subject: $subj\\n\\n";
    print SENDMAIL "$body";
    close (SENDMAIL);



Название: mail - литл трабл
Отправлено: Oak от 07 Января 2002, 22:44:17

Код: [Выделить]


mail(string to, string subject, string message, string
   [additional_headers]);


A chto takoe $repadress i kak ono k doke po PHP4 otnositsya? :)

Название: наверное
Отправлено: Green Kakadu от 08 Января 2002, 00:23:39

Цитировать

takoe $repadress i kak ono k doke po PHP4

это или значение поля From:
или Reply-to:


vladsu, Oak - вы как-то странно на вопрос среагировали, ему не нужно знать как отправить письмо, чел-ку необходимо подправить маленько имеющийся у него код, вставить пару заголовков, которые у него не вставляются. ... Во всяком случае я понял так

Название: mail - литл трабл
Отправлено: Oak от 08 Января 2002, 13:25:35

Green!

 Da net, ya pravil\'no sreagiroval .... Tol\'ko poumnomu sil\'no :(

V doke napisano - 3 parametra + 1 opcional\'no

a u cheloveka 5 parametrov - t.e poslednij tupo lishnij i
posemu ne obrabativaetsya.

Название: гы-гы
Отправлено: Green Kakadu от 08 Января 2002, 18:15:28

Цитировать

V doke napisano - 3 parametra + 1 opcional\'no

Цитировать

A chto takoe $repadress i kak ono k doke po PHP4 otnositsya?

;) посмотри как форум называется... PERL
чел-к обращается к подпрограмме, которая выглядит примерно как та, что vladsu написал
Т.е.:


mail($to, $repadres, $subject, $body, $additional_headers);

sub mail {
#-----------------
my ($to, $from, $subj, $body, $headers)=@_;
$mail_prog="/usr/sbin/sendmail -t ";
    open (SENDMAIL, "|$mail_prog") || die "Can not run sendmail";
    print SENDMAIL "MIME-Version: 1.0\\n";
    print SENDMAIL "$headers" if $headers;
    print SENDMAIL "To: $to\\n";
    print SENDMAIL "From: $from\\n";
    print SENDMAIL "Subject: $subj\\n\\n";
    print SENDMAIL "$body";
    close (SENDMAIL);
}