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

fix very wrong rancid conf parser

Browse Source
This commit is contained in:
Oliver Gorwits
2018-02-01 18:02:34 +00:00
parent 340773ecd1
commit e5e2fc4ac4
1 changed files with 8 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lib/App/Netdisco/Worker/Plugin/MakeRancidConf.pm
View File

@@ -7,7 +7,7 @@ use App::Netdisco::Worker::Plugin;
use aliased 'App::Netdisco::Worker::Status';
use Path::Class;
use List::Util 'first';
use List::Util qw/pairkeys pairfirst/;
use File::Slurper 'write_text';
use App::Netdisco::Util::Permission 'check_acl_no';
@@ -30,8 +30,8 @@ register_worker({ phase => 'main' }, sub {
\['age(now(), last_discover) > ?::interval', $down_age] },
});
$config->{groups} ||= [{ default => 'any' }];
$config->{vendormap} ||= [];
$config->{groups} ||= { default => 'any' };
$config->{vendormap} ||= {};
my $routerdb = {};
while (my $d = $devices->next) {
@@ -40,14 +40,12 @@ register_worker({ phase => 'main' }, sub {
$name =~ s/$domain_suffix$//
if check_acl_no($d, $config->{by_hostname});
my $vmatch =
first { check_acl_no($d, (values %$_)[0]) } @{$config->{vendormap}};
my $vendor = $vmatch
? (keys %$vmatch)[0] : $d->vendor;
my ($group) =
pairkeys pairfirst { check_acl_no($d, $b) } %{ $config->{groups} };
my $gmatch =
first { check_acl_no($d, (values %$_)[0]) } @{$config->{groups}};
my $group = (keys %$gmatch)[0];
my ($vendor) =
(pairkeys pairfirst { check_acl_no($d, $b) } %{ $config->{vendormap} })
|| $d->vendor;
push @{$routerdb->{$group}},
(sprintf "%s${delimiter}%s${delimiter}%s", $name, $vendor,