my ($sfile) = @_;
for (my $s=0;$s<scalar @{$sfile};$s++) {
my $cmd = "./xml2ini.pl -c $defaultXmlPath/config/$sfile->[$s] -o $defaultIniPath/$sfile->[$s].ini";
- print $cmd."\n";
+ print $cmd."\n" if $verbose;
system($cmd);
}
}
;BEGIN GENERATE_CHAINORDER $name
%;
for (my $s=0;$s<scalar @{$sname};$s++) {
- $sfile->[$s] .= ".ini";
$r .=";" unless($senable->[$s]);
- $r .= "JNR".$s."_".$sname->[$s]."=".$sfile->[$s]."\n";
+ $r .= "JNR".$s."_".$sname->[$s]."=".$sfile->[$s].".ini\n";
}
$r .=qq%;END GENERATE_CHAINORDER $name