deniel95
Сообщений: 4
Оценки: 0
Присоединился: 2010-12-25 20:36:39.013333
|
Доброго времени суток
Для сайта lockerz.com есть код, POST-запрос:
print $sock join("\r\n" => "POST /auction/place_bid HTTP/1.1",
"Host: lockerz.com",
"User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.1; Trident/4.0; WebMoney Advisor; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Tablet PC 2.0; .NET4.0C; .NET CLR 1.1.4322; .NET4.0E; MALC)",
"Accept: text/HТМL, application/xml;q=0.9, application/xHТМL+xml, image/png, image/webp, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1",
"Content-type: application/x-www-form-urlencoded",
"Accept-Language: ru-RU,ru;q=0.9,en;q=0.8",
"Referer: http://lockerz.com/auction",
"X-Requested-With: XMLHttpRequest",
"cооkie: $cооkies",
"Connection: keep-alive",
"Content-length: ".length($content),
"",
$content);
содержимое $content:
$content = 'token='.$token.'&aid='.$idbid.'&bidReq='.$ptzReq.'&recaptcha_challenge_field='.$ch.'&recaptcha_response_field='.$text;
Все переменные имеют значения, проверено не раз. Проблема в том, что после запроса не возвращается результат. Он возвращается лишь в том случае, если каптча не введена(пустуют recaptcha_challenge_field и recaptcha_response_field). Небходимо, чтобы ответ всегда возвращался. Что можно сделать?
|
Perl IO::Socket POST запрос - 
