VPF::POST запрос - Форум программистов

SymplyFying

Дата 14.2.2007, 02:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 27.5.2006

Репутация: нет
Всего: нет

Какие особености посылаемого запроса?
Просто никогда до этого не встречался с подобными запросами.
Вот, например:

Код


$socket = IO::Socket::INET->new(
          #PeerAddr => 'host.ru', 
          #PeerPort => 80, 
          #Photo => 'tcp') || die print "[-]Cann't connect to $host:80t\n";
# в запрос, т.е. после print $socket пишу то, что шлёт мой браузер          
print $socket "POST /index.php HTTP/1.1\r\n";
print $socket "Host: host.ru\r\n";
print $socket "User-Agent: Internet Explorer 6.0\r\n";
print $socket "Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5\r\n";
print $socket "Accept-Language: ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3\r\n";
print $socket "Accept-Encoding: gzip,deflate\r\n";
print $socket "Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7\r\n";
print $socket "Keep-Alive: 300\r\n";
print $socket "Connection: keep-alive\r\n";
print $socket "Referer: http://host.ru/index.php\r\n";
print $socket "Cookie: __utmz=180800934.1170693994.1.1.utmccn=(direct)|utmcsr=(direct)|utmcmd=(none); __utma=180800934.93756358.1170693994.1171381716.1171404302.4; PHPSESSID=0d6580c6082bfeb2e8d61b9ab48b482a; b=b; hotlog=1; __utmb=180800934; __utmc=180800934\r\n";
print $socket "Content-Type: multipart/form-data; boundary=---------------------------265001916915724\r\n";
print $socket "Content-Length: 387\r\n";
print $socket "-----------------------------265001916915724\r\n";
print $socket "Content-Disposition: form-data; name=\"admin\"\r\n\r\n";
print $socket "false\r\n";
print $socket "-----------------------------265001916915724\r\n";
print $socket "Content-Disposition: form-data; name=\"admin2\"\r\n\r\n";;
print $socket "77.php\r\n";
print $socket "-----------------------------265001916915724\r\n";
print $socket "Content-Disposition: form-data; name=\"datafromuser\"\r\n\r\n";
print $socket "0d107d09f5bbe40cade3de5c71e9e9b7\r\n";
print $socket "-----------------------------265001916915724--\r\n\r\n\r\n";;
while(<$socket>){$sokdata = $_;
    print $_;}

А в ответ:

Код


HTTP/1.1 400 Bad Request
Date: Tue, 13 Feb 2007 22:36:00 GMT
Server: Apache/1.3.34 (Win32) PHP/4.4.0
Connection: close
Transfer-Encoding: chunked
Content-Type: text/html; charset=iso-8859-1

185
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<HTML><HEAD>
<TITLE>400 Bad Request</TITLE>
</HEAD><BODY>
<H1>Bad Request</H1>
Your browser sent a request that this server could not understand.<P>
Request header field is missing colon separator.<P>
<PRE>
-----------------------------265001916915724</PRE>
<P>
<HR>
<ADDRESS>Apache/1.3.34 Server at mage Port 80</ADDRESS>
</BODY></HTML>

0

В чём ошибка?

P.S. Умные дядьки посоветовали use LWP, только я так и не понял как из него отправлять Post запросы.

nitr

Дата 14.2.2007, 12:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

SymplyFying, из LWP:

Код


...
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $response = $ua->post($url, [param1 => value1, param2 => value2, etc.]);
print $response->content;
...

примерно так...

--------------------

I love ArchLinux

SymplyFying

Дата 22.2.2007, 16:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 27.5.2006

Репутация: нет
Всего: нет

nitr, это-то понятно. smile

Непонятно кто в моём контексте param, а кто value. smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »