Отправляет email-рассылки с помощью сервиса Sendsay

За 2011-08-18

Re: perl - скачать файл с Sharepoint

Вот я тормоз невнимательный :) Тестер, одним словом. Все
заработало! спасибо большое, Сергей!

Best regards,
Alexey A
Bukreev
http://lepisgame.net.ru

On Thu, 18 Aug 2011 18:30:29 +0400,
Serguey Khvatov wrote:

> 18 августа 2011 г. 17:59 пользователь
написал:
>
>> Доброго дня! Тут должны быть сисадмины, которые,
возможно, сталкивались с такой странной задачей. Надо скачать текстовый
файл с шарепоинта. Все время получаю 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);
$ua->credentials("sharepoint:80","","domain\login", "password"); 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 С утра долблюсь, не получается Помогите, пожалуйста.
> Первое,
что я вижу - используется https, а credentials устанавливаются для порта
80. Я бы установил для порта 443 -*Название листа "Linux:
разрешение вопросов, перспективы и общение"; Написать в лист:
mailto:comp.soft.linux.discuss-list@subscribe.ru [2] Адрес правил листа
http://subscribe.ru/catalog/comp.soft.linux.discuss/rules [3] Номер
письма: 37711; Возраст листа: 2946; Участников: 1394 Адрес сайта
рассылки: http://www.linuxrsp.ru [4] Адрес этого письма в архиве:
http://subscribe.ru/archive/comp.soft.linux.discuss/msg/1809920 [5]

Links:
[1] mailto:lep***@l*****.ru
[2]
mailto:comp.soft.linux.discuss-list@subscribe.ru
[3]
http://subscribe.ru/catalog/comp.soft.linux.discuss/rules
[4]
http://www.linuxrsp.ru
[5]
http://subscribe.ru/archive/comp.soft.linux.discuss/msg/1809920
[6]
mailto:lep***@l*****.ru
[7]
http://subscribe.ru/archive/comp.soft.linux.discuss
[8]
mailto:comp.soft.linux.discuss-list@subscribe.ru
[9]
mailto:comp.soft.linux.discuss-15282928-unsub@subscribe.ru?subject=27818
[10]
http://subscribe.ru/
[11] http://subscribe.ru/feedback

-*Название листа "Linux: разрешение вопросов, перспективы и общение";
Написать в лист: mailto:comp.soft.linux.discuss-list@subscribe.ru
Адрес правил листа http://subscribe.ru/catalog/comp.soft.linux.discuss/rules
Номер письма: 37712; Возраст листа: 2946; Участников: 1394
Адрес сайта рассылки: http://www.linuxrsp.ru
Адрес этого письма в архиве: http://subscribe.ru/archive/comp.soft.linux.discuss/msg/1809938

   2011-08-18 18:40:25 (#1809938)

Re: perl - скачать файл с Sharepoint

18 августа 2011 г. 17:59 пользователь <lep***@l*****.ru> написал:

> Доброго дня!
>
> Тут должны быть сисадмины, которые, возможно, сталкивались с такой
> странной задачей.
>
> Надо скачать текстовый файл с шарепоинта. Все время получаю 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);
> $ua->credentials("sharepoint:80","","domain\\login", "password");
>
> 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
>
>
> С утра долблюсь, не получается Помогите, пожалуйста.
>

Первое, что я вижу - используется 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

   2011-08-18 18:32:09 (#1809920)

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);
$ua->credentials("sharepoint:80","","domain\\login", "password");

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

С утра долблюсь, не получается Помогите, пожалуйста.

   2011-08-18 18:02:00 (#1809877)