comparison CoverageReport.pl @ 27:576bfc1586f9 draft default tip

bugfix

26:859999cb135b

while (-d $wd) {
	$wd = "/tmp/Coverage.".int(rand(1000));

}
system("mkdir $wd");
$wd = "/tmp/Coverage.993";
print "wd : $wd\n";
## variables
our %commandsrun = ();

if (!exists($opts{'b'}) || !-e $opts{'b'}) {
	die('Bam File not found');

	system("cp -Rf $wd/Targets.Position.Coverage $wd/Results/");
}

system("cd $wd  && tar czf '$tarfile' Results/");
## clean up (galaxy stores outside wd)
#system("rm -Rf $wd");
###############
## FUNCTIONS ##
###############
sub arraystats{
	my @array = @_;

27:576bfc1586f9

while (-d $wd) {
	$wd = "/tmp/Coverage.".int(rand(1000));

}
system("mkdir $wd");
## variables
our %commandsrun = ();

if (!exists($opts{'b'}) || !-e $opts{'b'}) {
	die('Bam File not found');

	system("cp -Rf $wd/Targets.Position.Coverage $wd/Results/");
}

system("cd $wd  && tar czf '$tarfile' Results/");
## clean up (galaxy stores outside wd)
system("rm -Rf $wd");
###############
## FUNCTIONS ##
###############
sub arraystats{
	my @array = @_;