fix for MIB download through proxy

This commit is contained in:
Oliver Gorwits
2017-04-24 14:43:03 +01:00
parent cb9a24ed51
commit f439241c9f
3 changed files with 9 additions and 1 deletions

View File

@@ -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',

View File

@@ -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]

View File

@@ -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');