|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Alex Sokolov 2:5020/662.1 24 May 2001 20:09:04
To : Artem Chuprina
Subject : Re: http 1.1 (lwp)
--------------------------------------------------------------------------------
AS>> как создать запрос http 1.1 примерно такого вида?
AS>> версия libWWW последняя (от 5 мая). ничего не получается.
AC> Согласно perldoc LWP, нет? Только ты, небось, куку берешь не от предыдущего
AC> запроса, а устаревшую...
все решилось перечитыванием доки , и с чего я решил, что мне надо 1.1 ??
вообщем, вот кусочек, который работает.
непонятка, почему useragent через header не правится и в какой переменной
возвращаестся результат запроса - html страничка с радостным сообщением, что sms
отправлено ?
$ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(POST "http://.....");
$req->content_type('application/x-www-form-urlencoded');
$req->header('Accept' => 'text/html');
$req->header('User-Agent' => 'Mozilla/4.0 (compatible; Windows 95)');
$req->user_agent('Mozilla/4.0 (compatible; MSIE 5.5; Windows 95)');
$req->header('Accept-Language' => 'ru');
$req->header('Host' => '....');
$req->header('Referer' => '....');
$req->content("...")
my $res = $ua->request($req);
Пока! Алекc. www.mpovti.ru
--- 'NT
* Origin: The-R0u! (2:5020/662.1)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
