fix for MIB download through proxy
This commit is contained in:
1
Build.PL
1
Build.PL
@@ -35,6 +35,7 @@ Module::Build->new(
|
|||||||
'Guard' => '1.022',
|
'Guard' => '1.022',
|
||||||
'HTML::Parser' => '3.70',
|
'HTML::Parser' => '3.70',
|
||||||
'HTTP::Tiny' => '0.029',
|
'HTTP::Tiny' => '0.029',
|
||||||
|
'IO::Socket::SSL' => '2.048',
|
||||||
'JSON' => '2.90',
|
'JSON' => '2.90',
|
||||||
'JSON::XS' => '3.01',
|
'JSON::XS' => '3.01',
|
||||||
'List::MoreUtils' => '0.33',
|
'List::MoreUtils' => '0.33',
|
||||||
|
|||||||
7
Changes
7
Changes
@@ -1,3 +1,10 @@
|
|||||||
|
2.035003 - 2017-04-24
|
||||||
|
|
||||||
|
[BUG FIXES]
|
||||||
|
|
||||||
|
* Add IO::Socket::SSL requirement for OUI/MIB download
|
||||||
|
* Fix for MIB download through an HTTP proxy
|
||||||
|
|
||||||
2.035002 - 2017-04-24
|
2.035002 - 2017-04-24
|
||||||
|
|
||||||
[BUG FIXES]
|
[BUG FIXES]
|
||||||
|
|||||||
@@ -281,7 +281,7 @@ sub deploy_mibs {
|
|||||||
my $latest = 'https://github.com/netdisco/netdisco-mibs/releases/latest';
|
my $latest = 'https://github.com/netdisco/netdisco-mibs/releases/latest';
|
||||||
my $resp = HTTP::Tiny->new->get($latest);
|
my $resp = HTTP::Tiny->new->get($latest);
|
||||||
|
|
||||||
if (exists $resp->{redirects} and $resp->{url} =~ m/([0-9.]+)$/) {
|
if ($resp->{url} =~ m/([0-9.]+)$/) {
|
||||||
my $ver = $1;
|
my $ver = $1;
|
||||||
my $url = 'https://codeload.github.com/netdisco/netdisco-mibs/tar.gz/'. $ver;
|
my $url = 'https://codeload.github.com/netdisco/netdisco-mibs/tar.gz/'. $ver;
|
||||||
my $file = file($home, 'netdisco-mibs-latest.tar.gz');
|
my $file = file($home, 'netdisco-mibs-latest.tar.gz');
|
||||||
|
|||||||
Reference in New Issue
Block a user