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 Archive::Extract;
$Archive::Extract::PREFER_BIN = 1;
use HTTP::Tiny;
use Try::Tiny;
@@ -113,7 +114,7 @@ if (setting('mibhome') and setting('mibhome') ne $default_mibhome) {
}
else {
$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;
}
@@ -154,7 +155,7 @@ sub deploy_oui {
}
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 $file = file($home, 'netdisco-mibs-snapshot.tar.gz');
@@ -162,7 +163,7 @@ sub deploy_mibs {
if ($resp->{success}) {
my $ae = Archive::Extract->new(archive => $file, type => 'tgz');
$ae->extract(to => $mibhome);
$ae->extract(to => $mibhome->parent->stringify);
unlink $file;
}