Fabio/ddclient
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

group_hosts_by: Readability improvements

Browse source
This commit is contained in:
Richard Hansen 2024-07-12 16:10:13 -04:00
parent 5d2a1e864a
commit 64af205cfc
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
ddclient.in
View file

@ -3459,14 +3459,14 @@ sub get_ipv6 {
######################################################################
sub group_hosts_by {
my ($hosts, $attributes) = @_;
my %attrs = map({ ($_ => 1) } @$attributes);
my %attrs = map({ ($_ => undef); } @$attributes);
my @attrs = sort(keys(%attrs));
my %groups = ();
my %groups;
my $d = Data::Dumper->new([])->Indent(0)->Sortkeys(1)->Terse(1)->Useqq(1);
for my $h (@$hosts) {
my %cfg = map({ ($_ => $config{$h}{$_}); } grep(exists($config{$h}{$_}), @attrs));
my $sig = $d->Reset()->Values([\%cfg])->Dump();
push @{$groups{$sig}}, $h;
push(@{$groups{$sig}}, $h);
}
return %groups;
}