Показать сообщение отдельно
Старый 17.03.2002, 19:47
MrDenim вне форума Посмотреть профиль Отправить личное сообщение для MrDenim Посетить домашнюю страницу MrDenim Найти все сообщения от MrDenim
  № 1  
MrDenim

Регистрация: Mar 2002
Адрес: Россия Москва
Сообщений: 3
По умолчанию Кто найдёт ошибку?

Есть проблема... отправляем с сайта на скрипт двe переменные
, как input text.
одна name, вторая content

Присылает на мыло, только Имена полей...
Name
Content

во флэш прописываем кнопке такое
on (release) {
getURL ("/cgi/mail.cgi?name="+name+"&content="+content, "_blank");

Текст скрипта следующий:

#!/usr/bin/perl

$query=$ENV{ ' QUERY_STRING'};
@formfields=split( / &/, $query);
foreach(@formfields){
if(/^name=(.*)/){ $name=&urldecode($1);}
if(/^content=(.*)/){ $content=&urldecode($1);}
}
$mailbody="Name=$name\nContent=$content\n";
$from="From INFIN03";
$sendto="Mikhail\@infin03.ru";
$subject="Podpiska";

open(MAIL, '| /usr/sbin/sendmail -t -oi');
print MAIL <<EOF;
To: $sendto
From: $from
Subject: $subject

$mailbody

EOF
close MAIL;

print "Content-Type: text/html\n\n";
print "Message successfully sent!!!\n";

sub urldecode{
local ($val)=@_;
$val=~s/\+/ /g;
$val=~s/%(0-9A-H] {2})/pack('C',hex($1))/ge;
return $val;

}

Пожалуйста помогите решить проблему, надо срочно!