Просмотр сообщений
1
Perl / Вопрос о sendmail
« : 13 Августа 2004, 14:31:08 »
Спасибо за помощь! С мини формами у меня вроде нормально, а вот чтоб данные о заказе пристегнуть - вот тут и беда!
Новости:
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Страницы: [1]
2
Perl / Вопрос о sendmail
« : 13 Августа 2004, 14:16:18 »
как я писал выше не селен в ПЕРЛе, разъясните плиз - все print mail я убераю, а оставляю лишь - print MAIL "Вот здесь мой текст"; где и помещаю тело письма?
3
Perl / Вопрос о sendmail
« : 13 Августа 2004, 14:10:27 »
НЕТ ПОКА НЕ ПРОБОВАЛ! спасибо за внимание! А шлю я это на info@mspbel.com
4
Perl / Вопрос о sendmail
« : 13 Августа 2004, 13:43:22 »
вот вроде это:
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 "
print "
print MAIL "\\n";\\n";
";
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);
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 "
| Наименование | кол-во | цена |
| Наименование | кол-во | цена |
| $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);
5
Perl / Вопрос о sendmail
« : 13 Августа 2004, 13:02:24 »
Я в перле не селен, могу код выложить, глянете?
6
Perl / Вопрос о sendmail
« : 13 Августа 2004, 12:11:17 »
Помогите разобраться!
После заполнения формы в магазине,данные попадают в карзину и не отправляется собщение на мыло!
Как правильно настроить скрипт?
После заполнения формы в магазине,данные попадают в карзину и не отправляется собщение на мыло!
Как правильно настроить скрипт?
Страницы: [1]