我有一个非常简单的脚本(见示例)从我们的内部服务器下载我的报告数月。然后,IT对基础架构进行了一些更改,因为我无法再使用此脚本。
我可以使用Chrome或Internet Explorer获取文件,但不能使用Perl或Python。甚至wget和curl都失败了。
如果我提供的代理凭据不正确,那么我理所当然地获得407 Proxy Authentication
。
如果我将超时设置为60秒,那么我会得到500 read timeout
。
如果我将超时设置为90秒,我会得到503 Service Unavailable
。卷曲返回network timeout
。
IT部门坚持认为,如果浏览器正常工作则没有问题。我错过了别的什么吗?
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;
}