my @o;
@o = qx($_[0]) unless $dryrun;
print "Not running> $_[0]\n" if $dryrun;
- print Dumper @o if $verbose;
+ printreturn(@o) if $verbose;
}
system($cmd);
}
}
+
+
+sub printreturn {
+ foreach my $l (@_) {
+ chomp $l;
+ print $l."\n";
+ }
+ }
###############################
## Fill information to template ini files
my ($name,$id,$addr) = @_;
$r = qq%
[$name]
-chainsini=chains_board$id.ini
+chainsini=chains.ini
FPGAtrbnetAddr=0x$addr
CONFwaitstart_trbnetAddr=0xb007
CONFtriginitseq_trbnetAddr=0xb003