Получение страницы через LWP::UserAgent с прокси. Также не работает с Wget и Curl. Браузер работает отлично
У меня был очень простой скрипт (см. Пример), загружающий мой отчет с нашего внутреннего сервера в течение нескольких месяцев. Затем ИТ-отдел внес некоторые изменения в инфраструктуру, и с тех пор я больше не могу заставить этот скрипт работать.
Я могу получить файл с помощью Chrome или Internet Explorer, но не с помощью Perl или Python. Даже wget и curl терпят неудачу.
Если я предоставлю неверные учетные данные прокси-сервера, я получу
407 Proxy Authentication
,Если установить тайм-аут на 60 секунд, я получу
500 read timeout
,Если я установлю тайм-аут на 90 секунд, я получу
503 Service Unavailable
, Скручиваемость возвращаетсяnetwork timeout
,
ИТ-отдел настаивает на том, что если браузер работает, то проблем нет. Я что-то упускаю?
Образец Perl
require LWP::UserAgent;
my $url = "http://xxx.xxx.xxx.xxx/StandardReport.aspx?itemid=yyyy&date=dd-mm-yyyy&adjustments&xml=1";
my $ua = LWP::UserAgent->new;
$ua->timeout(90);
$ua->proxy(['http', 'ftp'], 'http://my_user:my_password@proxy_uri:8080');
my $response = $ua->get($url);
if ( $response->is_success ) {
print $response->decoded_content;
}
else {
die $response->status_line;
}