|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Max Kurilov 2:5020/400 10 Apr 2001 10:23:04
To : All
Subject : POSTing to CGI
--------------------------------------------------------------------------------
Имеем:
1. Форму на сервере, которая передает в перловый скрипт данные POST-ом
2. Собственно перловый скрипт, который эти данные принимает.
Hужно:
Передавать данные из другой формы в этот же скрипт
Казалось бы, что может быть проще: создавай форму, пиши правильный путь в
<FORM action="...">. Hо вот проблема: скрипт каким-то образом узнает, что
данные постятся не с той формы. Первое, что приходит в голову - проверяет
referer. Попробовал так:
===
$remote = IO::Socket::INET->new(Proto => "tcp",
PeerAddr => $remote,
PeerPort => $port,
);
unless ($remote) {die "Shet!!\n"};
$remote->autoflush(1) ;
print $remote <<EOR;
POST $document HTTP/1.1
Host: $host
User-Agent: Smart Motherfucker/1.0
Referer: $referer
Content-Length: $length
Content-Type: application/x-www-form-urlencoded
Connection: close
$msg
EOR
@answer = <$remote>;
close $remote;
===
Подставляю "правильный" referer - фиг! :-(. Что я не правильно делаю, что не
учел? Каким еще образом скрипт может узнать что его запустили из
"неправильной" формы?
--- ifmail v.2.15dev5
* Origin: http://x3portal.4u.ru/ (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
