如何通过代理使用Perl JIRA :: Client :: Automated模块连接到HTTPS服务器?

时间:2015-01-20 08:00:35

标签: perl jira cpan jira-rest-api

我是新手使用JIRA和REST API。请告诉我如何使用JIRA :: Client :: Automated模块连接到HTTPS jira服务器。我正在尝试使用以下代码连接到jira服务器。

use strict;
use warnings
use JIRA::Client::Automated;

my $user = 'foo';
my $pass = 'bar';
my $url = 'https://xxx.yyy';

my $jira = JIRA::Client::Automated->new($url, $user, $pass);

但是使用上面的代码总是会给我一个500错误,说无法连接。由于我尝试从本地计算机连接,因此请求不通过本地系统代理。请告诉我如何通过代理连接。

感谢您的建议丹尼尔。 我根据您的建议编辑了代码。

use strict;
use warnings
use JIRA::Client::Automated;

my $user = 'foo';
my $pass = 'bar';
my $url = 'https://xxx.yyy.com/jira-stage/';

my $jira = JIRA::Client::Automated->new($url, $user, $pass);
my $ua = $jira->ua();
$ua->proxy('http', 'http://proxy.com:8000');
$search_results = $jira->search_issues(project in (sample), 0, 1000);
my $count = $search_results->{'total'};
print "$count";

但仍面临同样的问题。请建议。

1 个答案:

答案 0 :(得分:0)

查看JIRA::Client::Automated的文档。您可以从中获取LWP::UserAgent对象:

my $ua = $jira->ua;

根据LWP::UserAgent的文档,您可以像这样设置代理

$ua->proxy('https', 'https://proxy:8080/');

或者以这种方式从各个环境变量加载代理设置:

$ua->env_proxy;