Люди добрые, помогите пожалуйста доработать скрипт для отправки данных из формы на мыло. Скрипт работает, я только не знаю, как сделать:
1)чтобы письмо приходило в кодировке Кириллица(Windows)
2)чтобы при нажатии кнопки "отправить" после заполнения формы скрипт не загружал бы новую страницу, а оставался бы на той же самой, где форма.
Вот исходники:
1)форма:
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 <
To: sp2003\\@bk.ru
From: $from
Subject: $subject
$text
EOF
close MAIL;
}