LWP и digest авторизация на IIS

 
0
 
Perl
ava
krll | 20.02.2013, 18:40
Необходимо выполнить get запрос с сайта который использует Digest авторизацию.
Делаю

use LWP;
use LWP::Authen::Digest;
use LWP::Debug;
my $browser = LWP::UserAgent (keep_alive => 1);
$browser->conn_cache(LWP::ConnCache->new());
$browser->credentials(
  'server.ru:80',
  'server.ru',
  'plinky' => 'banjo123'
);
my $req = HTTP::Request->new(GET => $url);
my $response = $browser->request( $req );
print Dumper ($response);

Не работает, сервер отвечает 401.
Подскажите, как правильно использовать модуль LWP::Authen::Digest ?
Ответы (1)
ava
Pfailed | 20.02.2013, 19:50 #
У меня так работало

use strict;
use LWP;

my $ua = LWP::UserAgent->new(keep_alive => 1, timeout => 10);
my $domain = 'domain.local';
$ua->credentials(
        $domain . ':80',
        '',
        LOGIN,
        PASSWORD
);
my $page = $ua->get("http://$domain")->decoded_content;
Зарегистрируйтесь или войдите, чтобы написать.
Фирма дня
Вы также можете добавить свою фирму в каталог IT-фирм, и публиковать статьи, новости, вакансии и другую информацию от имени фирмы.
Подробнее
Участники
  Pfailed   krll
advanced
Отправить