Advertisement
DRVTiny

grf_loop

Sep 19th, 2019
445
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.55 KB | None | 0 0
  1. for my $grf ( @{$tz->{'graphs'}} ) {
  2.     my $cljFilter =
  3.         exists $grf->{'exclude'}
  4.             ? do {
  5.                 my %excl = map {$_ => 1} @{$grf->{'exclude'}};
  6.                 sub {
  7.                     ! exists( $excl{$_[0]} )
  8.                 }
  9.               }
  10.             : \&ALWAYS_TRUE;
  11.     my $grfName = lc $grf->{'name'};
  12.     $_->{'enabled'} = 1 for map $_->{$grfName}, grep exists($_->{$grfName}), map $_->{'graphs'}, @hosts{map lc($_), grep $cljFilter->($_), @{exists($grf->{'only_on'}) ? $grf->{'only_on'} : $cmnHostsList}};
  13. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement