LINUX.ORG.RU

perl & get http


0

1

Вроде бы все просто, но почему-то не работает :(

вот скрипт:

my $ua = LWP::UserAgent->new; my $req = HTTP::Request->new(GET => 'http://server:8086/connectioncounts/');

$req->authorization_basic('admin', 'password'); $req->header('Accept' => 'text/html'); print $ua->request($req)->as_string;

в ответ ловлю:

HTTP/1.1 401 Unauthorized Cache-Control: no-cache Connection: Keep-Alive Server: FlashCom/3.5.2 WWW-Authenticate: Digest realm=«Wowza Media Systems», nonce=«1fd647f3301c61c5964f0a601e49fe12», algorithm=MD5, qop=«auth» Content-Length: 0 Content-Type: text/html Client-Date: Wed, 05 Oct 2011 23:32:40 GMT

как бы мне корректно вытащить данные с вовзы? обычный браузер отдает на ура... а вот из скрипта не могу :(

Ответ на: комментарий от anonymous

Так прокся то другие ошибки выдавать должна? Да и тестил с локального компа, где сквидом и не пахнет .

anonymous
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.