Плз помогите скриптик рабочий доработать... @ DeForum.ru
DeДверь  
Логин:  
Пароль:  
  Автологин  
   
Разместить рекламу
Письмо админу
Правила | FAQ | *Поиск | Наша команда | Регистрация | Вход
 
 
 Страница 1 из 1 [ Сообщений: 2 ] 
*   Список форумов / Начинка и техника / Программирование для WWW » ответить » создать топик « | »
Автор Сообщение
Viator_(SP) Муж.
новый человек
5
Сообщения: 232
Зарегистрирован: 12.09.03
Откуда: Астрахань
Заголовок сообщения: Плз помогите скриптик рабочий доработать...
Сообщение Добавлено: 23 Ноябрь 2003, 13:26:22 
Люди добрые, помогите пожалуйста доработать скрипт для отправки данных из формы на мыло. Скрипт работает, я только не знаю, как сделать:
1)чтобы письмо приходило в кодировке Кириллица(Windows)
2)чтобы при нажатии кнопки "отправить" после заполнения формы скрипт не загружал бы новую страницу, а оставался бы на той же самой, где форма.

Вот исходники:

1)форма:

<form method="post" action="http://test.vd.ruweb.net/cgi-bin/prices.cgi" enctype="application/x-www-form-urlencoded">
<p>Ваше имя:
<input type="text" name="name" value="" size="31" maxlength="100">
</p>
<p>Ваш E-mail:
<input type="text" name="email" value="" size="30" maxlength="50">
</p>
<p align="left">Перечень необходимых прайс-листов в рассылке:
<textarea name="prices" rows="5" cols="50"></textarea>
</p>
<p align="left">
<input type="submit" name="submit" value="Подписаться">
<input type="reset" name="reset" value="Очистить">
</p>
</form>


2) скрипт:

#!/usr/bin/perl
use CGI;

$co=new CGI;

print $co->header;

$co->start_html(
-title=>'Elisey: prices subscribe', -author=>'Viator',
-BGCOLOR=>'white', -LINK=>'red');

if ($co->param()) {
$from=$co->param('email');
$from=~ s/@/\@/;
$subject='Elisey: prices subscribe';
$text=$co->param('prices');
$text=~ s/</</;
open(MAIL, '| /usr/sbin/sendmail -t -oi');
print MAIL <<EOF;
To: sp2003\@bk.ru
From: $from
Subject: $subject
$text
EOF
close MAIL;
}
enf644
новый человек
0
Сообщения: 104
Зарегистрирован: 16.11.03
Сообщение Добавлено: 23 Ноябрь 2003, 14:15:54 
для 1)
Код:
open(SENDMAIL, "|/usr/lib/sendmail -oi -t") or die "sendmail: $!\n";
print SENDMAIL <<"MAFA";
From: putin\@kremlin.ru
To: $email
Subject: бла бла бла
Content-Type: text/html; charset=windows-1251

<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#800080">

бла бла бла

$mailtext
</BODY>
</HTML>

MAFA
close(SENDMAIL) or warn "sendmail didn't close nicely";

для 2)
добавь вот это в конец скрипта.
Код:
<B>Запись добавлена</B><SCRIPT Language='Javascript'>window.location.href = 'index.pl';</SCRIPT>

index.pl надо естевственно заменить на твою первоначальную страницу
*   Список форумов / Начинка и техника / Программирование для WWW « | » » ответить » создать топик
 Страница 1 из 1 [ Сообщений: 2 ] 
Показать сообщения за:   Поле сортировки  
Найти:
Перейти:  
Уровень доступа: Вы не можете начинать темы. Вы не можете отвечать на сообщения. Вы не можете редактировать свои сообщения. Вы не можете удалять свои сообщения. Вы не можете добавлять вложения.
cron


ООО ДеФорум
При использовании материалов сайта ссылка на DeForum.ru — обязательна.
Проект Павла Батурина ©2001-2077; // Powered by phpBB © 2013 phpBB Group
Rambler's Top100