135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix bad assumption about mibs destination dir

Browse Source
This commit is contained in:
Oliver Gorwits
2013-04-20 00:07:50 +01:00
parent 9875c70f41
commit 45a2f05b26
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Netdisco/bin/netdisco-deploy
View File

@@ -42,6 +42,7 @@ use Term::UI;
use Term::ReadLine; use Term::ReadLine;
use Archive::Extract; use Archive::Extract;
$Archive::Extract::PREFER_BIN = 1;
use HTTP::Tiny; use HTTP::Tiny;
use Try::Tiny; use Try::Tiny;
@@ -113,7 +114,7 @@ if (setting('mibhome') and setting('mibhome') ne $default_mibhome) {
} }
else { else {
$bool = $term->ask_yn( $bool = $term->ask_yn(
prompt => "Download and update MIB files to $default_mibhome ?", default => 'n', prompt => "Download and update MIB files?", default => 'n',
); );
deploy_mibs($default_mibhome) if $bool; deploy_mibs($default_mibhome) if $bool;
} }
@@ -154,7 +155,7 @@ sub deploy_oui {
} }
sub deploy_mibs { sub deploy_mibs {
my $mibhome = shift; my $mibhome = dir(shift);
my $url = 'http://downloads.sourceforge.net/project/netdisco/netdisco-mibs/latest-snapshot/netdisco-mibs-snapshot.tar.gz'; my $url = 'http://downloads.sourceforge.net/project/netdisco/netdisco-mibs/latest-snapshot/netdisco-mibs-snapshot.tar.gz';
my $file = file($home, 'netdisco-mibs-snapshot.tar.gz'); my $file = file($home, 'netdisco-mibs-snapshot.tar.gz');
@@ -162,7 +163,7 @@ sub deploy_mibs {
if ($resp->{success}) { if ($resp->{success}) {
my $ae = Archive::Extract->new(archive => $file, type => 'tgz'); my $ae = Archive::Extract->new(archive => $file, type => 'tgz');
$ae->extract(to => $mibhome); $ae->extract(to => $mibhome->parent->stringify);
unlink $file; unlink $file;
} }