perl - скачать файл с Sharepoint
Доброго дня!
Тут должны быть сисадмины, которые, возможно, сталкивались с такой
странной задачей.
Надо скачать текстовый файл с шарепоинта. Все время получаю 401ю
ошибку.
use strict;
use warnings;
use LWP::Simple;
use LWP::UserAgent;
use HTTP::Request;
use LWP::Debug qw(+);
my $url = "https://sharepoint/VersionsOfModules.CheckFile.txt";
my $file = "source.txt";
my $ua = new LWP::UserAgent(keep_alive=>1);
my $response = $ua->get($url);
if ($response->is_success) {
print $response->decoded_content; # or whatever
}
else {
die $response->status_line;
}
И получаю все время ответ
401 Unauthorized (The server requires authorization to fulfill the
request. Access to the Web server is denied. Contact to server
administrator. ) at script.pl line 21
С утра долблюсь, не получается Помогите, пожалуйста.
18 августа 2011 г. 17:59 пользователь <lep***@l*****.ru> написал:
Первое, что я вижу - используется https, а credentials устанавливаются для
порта 80. Я бы установил для порта 443
-*Название листа "Linux: разрешение вопросов, перспективы и общение";
Написать в лист: mailto:comp.soft.linux.discuss-list@subscribe.ru
Адрес правил листа http://subscribe.ru/catalog/comp.soft.linux.discuss/rules
Номер письма: 37711; Возраст листа: 2946; Участников: 1394
Адрес сайта рассылки: http://www.linuxrsp.ru
Адрес этого письма в архиве: http://subscribe.ru/archive/comp.soft.linux.discuss/msg/1809920