use Data::Dumper;
sub signFiles {
local ($signing, $config) = @_;
local $exprs = $signing->{FilePatterns}->{value};
local $template = $signing->{CommandTemplate}->{value};
local $savedPATH= $ENV{PATH};
$ENV{PATH} = $config->{Config}->{unixfind}->{value}.";".$savedPATH;
foreach $expr (split(" ", $exprs)) { local $cmd = "find . -iname \"$expr\"";
local $list = `$cmd`; foreach $target (split("\n", $list)) {
$target =~ s|/|\\|g; local $template2 = $template;
$template2 =~ s/%filename%/$target/;
print "Info -- Signing $target\n" if ($verbose);
!system("$template2") or die "Fatal -- Error signing $target.";
}
}
$ENV{PATH} = $savedPATH;
}
return 1;