
17.03.2002, 19:47
|
|
Регистрация: 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;
}
Пожалуйста помогите решить проблему, надо срочно!
|