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

much better handling of mibhome

Browse Source
This commit is contained in:
Oliver Gorwits
2013-04-19 23:36:06 +01:00
parent d735cc657d
commit 9875c70f41
5 changed files with 30 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
Netdisco/bin/netdisco-deploy
View File

@@ -96,15 +96,27 @@ deploy_db() if $bool;
say '';
$bool = $term->ask_yn(
prompt => 'Would you like to download and update vendor MAC prefixes (OUI data)?', default => 'n',
prompt => 'Download and update vendor MAC prefixes (OUI data)?', default => 'n',
);
deploy_oui() if $bool;
say '';
$bool = $term->ask_yn(
prompt => 'Would you like to download and update MIB files?', default => 'n',
);
deploy_mibs() if $bool;
my $default_mibhome = dir($home, 'netdisco-mibs');
if (setting('mibhome') and setting('mibhome') ne $default_mibhome) {
my $mibhome = $term->get_reply(
print_me => "MIB home options:",
prompt => "Download and update MIB files to...?",
choices => [setting('mibhome'), $default_mibhome, 'Skip this.'],
default => 'Skip this.',
);
deploy_mibs($mibhome) if $mibhome and $mibhome ne 'Skip this.';
}
else {
$bool = $term->ask_yn(
prompt => "Download and update MIB files to $default_mibhome ?", default => 'n',
);
deploy_mibs($default_mibhome) if $bool;
}
sub deploy_db {
system 'netdisco-db-deploy';
@@ -142,13 +154,15 @@ sub deploy_oui {
}
sub deploy_mibs {
my $mibhome = 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');
my $resp = HTTP::Tiny->new->mirror($url, $file);
if ($resp->{success}) {
my $ae = Archive::Extract->new(archive => $file, type => 'tgz');
$ae->extract(to => $home);
$ae->extract(to => $mibhome);
unlink $file;
}