![]() |
|
||||||||||
|
|||||||
|
|
« Предыдущая тема | Следующая тема » |
| Опции темы | Опции просмотра |
|
![]() |
|
|||||
|
Banned
[Полный мудак]
Регистрация: Jan 2001
Сообщений: 201
|
Я отправляю из флэшки значения переменных:
из полей + в кнопке: on (release) { recipient = "na_strelyaeva@hotmail.com"; subject = "USSRary's TEST"; loadVariables("form.pl", this, "POST"); status = "sending, please wait"; } На сервере такой CGI: #!/usr/bin/perl -w # your address $recipient = "na_strelyaeva\@hotmail.com"; # sendmail $mailprog = "|/usr/sbin/sendmail -t"; if ($ENV{REQUEST_METHOD} eq `POST`) { read STDIN, $buffer, $ENV{CONTENT_LENGTH}; } else { $buffer = $ENV{QUERY_STRING}; } foreach $pairs (split /&/, $buffer) { ($key, $value) = split /=/, $pair, 2; $value =~ tr/+/ /; $value =~s/%(([0-9a-f]){2})/chr(hex($1))/egi; $FORM{$key} = $value; } # if there is a multiline text field, fix returns there $FORM{comments} =~ s/\r\n?/\n/g; # build message open(MAIL, "$mailprog") || die("Can\'t open sendmail"); print MAIL <<END; From: $FORM{email} To: $recipient Subject: Order for shipping this is message from website Name: $FORM{name} Address: $FORM{address} Phone: $FORM{phone} Email: $FORM{email} has left this message ----- $FORM{comments} END #print "Content-type: text/html\n\n"; # try to send it close(MAIL); При этом мне с сервера на почту не приходят значения полей формы, одна служебная инфа. Что делать? В чем проблема? Пожалйста помогите это перманенто длящийся геморрой- сил нет уже! |
![]() |
Часовой пояс GMT +4, время: 02:06. |
|
|
« Предыдущая тема | Следующая тема » |
|
|