![]() |
|
||||||||||
|
|
|
|||||
|
Регистрация: 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; } Пожалуйста помогите решить проблему, надо срочно! |
![]() |
Часовой пояс GMT +4, время: 11:03. |
|
|
« Предыдущая тема | Следующая тема » |
|
|