for (my $i = 0; $i < @files; $i++)
{
my $file = $files[$i];
- my $key = $file->{'plugin_instance'} || '';
+ my $key1 = $file->{'hostname'} || '';
+ my $key2 = $file->{'plugin_instance'} || '';
+ my $key = "$key1-$key2";
$data->{$key} ||= [];
push (@{$data->{$key}}, $file);
{
next if ($entry =~ m/^\./);
next if (!-d "$data_dir/$entry");
+ next if (!-r "$data_dir/$entry" or !-x "$data_dir/$entry");
push (@ret, sanitize_hostname ($entry));
}
closedir ($dh);