#!/usr/local/bin/perl

# Script written by Joakim Edsjo to run recoos on a file.
# Script used to run IceCube simulations
# Date: 1999-11-03

die "Usage: runrecoos.pl filename\n" if @ARGV<1;


$infile=shift;
$outfile = $infile;
$outfile =~ s/\.gz$//;  # remove ".gz" from end
$outfile .= ".rec";
$outfile =~ s/.f2k.rec$/.rec.f2k/;
$outfile .= ".gz";

$prog="/group/amanda/ice3/wimp/bin";
$cpfeil="$prog/cpfeil";
$recoos="$prog/recoos";
$deff="$prog/deff";
$soff="$prog/soff";

$exe  = "$cpfeil $infile";        # read file
#$exe .= " | $deff -v -y R=-500:4000 -y c=2:500";   # deff it
$exe .= " | $deff -v -y R=-1000:10000 -y c=2:500"; # deff it
#$exe .= " | $soff -v -O 5 | $soff -v -T 2:1:1";    # soff it
$exe .= " | $soff -v -O 5";                        # require >= 5 hits
$exe .= " | $recoos -v -r n -i m";                 # recoos line-fit
$exe .= " | $recoos -v -r m -z a_upandel";         # recoos full reco
$exe .= " | gzip -c";                              # gzip it

print "Will execute: \n";
print "$exe > $outfile \n";
system("$exe > $outfile");
#system("gzip -f $outfile");