Вопрос о sendmail

[samik]

Помогите разобраться!
После заполнения формы в магазине,данные попадают в карзину и  не отправляется собщение на мыло!
Как правильно настроить скрипт?

[AnnA]

показали бы функцию которая должна отправлять почту.
а так можно сказать лишь: "Зри в корень!" (с)

[samik]

Я в перле не селен, могу код выложить, глянете?

[NeoNox]

Можешь. Только то что касаеться отправки почты

[samik]

вот вроде это:

open (MAIL, "|$mailprog");
print MAIL "To: $admin_adress\\n";
#print  "To: $admin_adress
\\n";
print MAIL "From: $FORM{\'email\'}\\n";
print MAIL "Cc: $FORM{\'email\'}\\n";
print  "От: $FORM{\'email\'}
\\n";
print MAIL "Content-type: text/html; charset=windows-1251\\n";
print MAIL "Subject: Тест номер $FORM{\'id\'} \\n\\n";
#print  "Subject: Заказ номер $FORM{\'id\'}
 \\n\\n";
print MAIL "Организация:$FORM{firma}
Тел/факс:$FORM{fax}
E-mail:$FORM{email}
Контактное лицо:$FORM{myname}
";
print  "Организация:$FORM{firma}
Тел/факс:$FORM{fax}
E-mail:$FORM{email}
Контактное лицо:$FORM{myname}
";
print MAIL "

Заказ №$FORM{\'id\'}

\\n";
print  "

Заказ №$FORM{\'id\'}

\\n";
print MAIL "  \\n";
print  "  \\n";
print MAIL  "";
print   "";
$summa=0;
for ($i=1 ;$i<$top;$i++){
$n="name"."$i";$name=$FORM{$n};
$s="sale"."$i";$sale=$FORM{$s};
$c="col"."$i";$col=$FORM{$c};
print MAIL  "";
print "";
$summa=($summa+($sale*$col));}
print MAIL "

Наименование	кол-во	цена
Наименование	кол-во	цена
$name	$col	$sale
$name	$col	$sale

";
print MAIL "
На сумму:$summa $valuta";
print  "";
print  "
На сумму:$summa $valuta";
if ($FORM{content} ne ""){print MAIL "
Дополнения к заказу:$FORM{content}" ;}
if ($FORM{content} ne ""){print  "
Дополнения к заказу:$FORM{content}" ;}

close(MAIL);

[NeoNox]

Нда...
1) print "От: $FORM{\'email\'}
\\n"; убрать
2) все что хочешь послать почтой должно иметь вид
print MAIL "Вот здесь мой текст";
исправь все это.

И шлешь ты письмо случайно не на mail.ru?

[NeoNox]

samik
автору магазина не пробовал писать?

[samik]

НЕТ ПОКА НЕ ПРОБОВАЛ! спасибо за внимание! А шлю я это на info@mspbel.com

[samik]

как я писал выше не селен в ПЕРЛе, разъясните плиз - все print mail я убераю, а оставляю лишь - print MAIL "Вот здесь мой текст"; где и помещаю тело письма?

[AnnA]

а я вот так вот почту отправляю:

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

open(MAIL,"|$MAIL_CMD") ||  print("Could not execute \\"$MAIL_CMD\\"");
print MAIL <From: "$fio" <$email>
To: "$to" <$to>
Subject: какая-то тема письма
MIME-Version: 1.0
X-Ident-From: unknown
X-Priority: 3
Content-Type: text/plain; charset="Windows-1251"
Content-Transfer-Encoding: 8bit


здесь всё тело письма
============================================
End_of_Mail

А, кстати, не подскажете как можно запросить подтверждение о доставке/прочтении письма?

[AnnA]

ой. забыла close(MAIL);

[samik]

Спасибо за помощь! С мини формами у меня вроде нормально, а вот чтоб данные о заказе пристегнуть - вот тут и беда!

[NeoNox]

AnnA:
А, кстати, не подскажете как можно запросить подтверждение о доставке/прочтении письма?

RFC 3798

[NeoNox]

А вообще, все прогрессивное человечество при создании писем уже давно используют Net::SMTP и MIME::Entity.