#! /bin/sh
# This is the LHEA perl script: /cvmfs/extras-fp7.egi.eu/extras/heasoft/ftools/x86_64-unknown-linux-gnu-libc2.19-0/bin/day2time
# The purpose of this special block is to make this script work with
# the user's local perl, regardless of where that perl is installed.
# The variable LHEAPERL is set by the initialization script to
# point to the local perl installation.
#-------------------------------------------------------------------------------
eval '
if [ "x$LHEAPERL" = x ]; then
  echo "Please run standard LHEA initialization before attempting to run /cvmfs/extras-fp7.egi.eu/extras/heasoft/ftools/x86_64-unknown-linux-gnu-libc2.19-0/bin/day2time."
  exit 3
elif [ "$LHEAPERL" = noperl ]; then
  echo "During LHEA initialization, no acceptable version of Perl was found."
  echo "Cannot execute script /cvmfs/extras-fp7.egi.eu/extras/heasoft/ftools/x86_64-unknown-linux-gnu-libc2.19-0/bin/day2time."
  exit 3
elif [ `$LHEAPERL -v < /dev/null 2> /dev/null | grep -ic "perl"` -eq 0 ]; then
  echo "LHEAPERL variable does not point to a usable perl."
  exit 3
else
  # Force Perl into 32-bit mode (to match the binaries) if necessary:
  if [ "x$HD_BUILD_ARCH_32_BIT" = xyes ]; then
    if [ `$LHEAPERL -V 2> /dev/null | grep -ic "USE_64_BIT"` -ne 0 ]; then
      VERSIONER_PERL_PREFER_32_BIT=yes
      export VERSIONER_PERL_PREFER_32_BIT
    fi
  fi
  exec $LHEAPERL -x $0 ${1+"$@"}
fi
'
if(0);
# Do not delete anything above this comment from an installed LHEA script!
#-------------------------------------------------------------------------------
#!/usr/bin/perl
use Getopt::Std;

getopt();
if (defined $opt_h) { print<<EOHELP;

day2time converts a time offset (in days) relative to a reference date/time
to an absolute date/time.

EOHELP
exit 0;
}

 &set_toolname("day2time");
 &set_toolversion("1.0");

 $offset =0;
 $leapfile =0;
 $datezero =0;
 $timezero =0;
 $date =0;
 $time =0;
 $mjd =0;
 $mode =0;

 &day2time_getpar();


 $status = &day2time_work($offset,$leapfile,
                 $datezero,$timezero,$date,$time,$mjd,$mode);

 if( $status) {
    print "Error running day2time\n";
    exit(-1);
 }
 else {
    &day2time_setpar();
 }
 


sub day2time_work {

   my @val =@_;
   chop($val[0]);
   chop($val[1]);
   chop($val[2]);
   chop($val[3]);
   $val[0] *= 86400;

   my $output= `sec2time offset=$val[0] leapfile=$val[1] datezero=$val[2] timezero=$val[3] mode=$val[7]`;
   chop($output);
   my @results =split(/ +/,$output);
   $results[3] /=86400;
   $date = $results[14];
   $time = $results[15];
   $mjd = $results[20];

   print "@results\n";

   return 0;

}


sub day2time_getpar {

 if (&get_par("offset",\$offset,0)) {
    print "Error getting parameter \"offset\"\n";
    exit(-1)
 }
 if (&get_par("leapfile",\$leapfile,1)){
    print "Error getting parameter \"leapfile\"\n";
    exit(-1)
 }
 if (&get_par("datezero",\$datezero,2)) {
    print "Error getting parameter \"datezero\"\n";
    exit(-1)
 }
 if(&get_par("timezero",\$timezero,3)) {
    print "Error getting parameter \"timezero\"\n";
    exit(-1)
 }
 if (&get_par("date",\$date,4)) {
    print "Error getting parameter \"date\"\n";
    exit(-1)
 }
 if(&get_par("time",\$time,5)) {
    print "Error getting parameter \"time\"\n";
    exit(-1)
 }
 if (&get_par("mjd",\$mjd,6)) {
    print "Error getting parameter \"mjd\"\n";
    exit(-1)
 }
 if(&get_par("mode",\$mode,7)) {
    print "Error getting parameter \"mode\"\n";
    exit(-1)
 }


}

sub day2time_setpar {
  &set_par("date",$date);
  &set_par("time",$time);
  &set_par("mjd",$mjd);
}

sub set_par {
   my ($name,$val) =@_;
   my $status =0;
   $status =`pquery $toolname $name $name=$val`;
   return $status;
}


sub set_toolname {
   my ($var) =@_;
   $toolname =$var;
}

sub set_toolversion {
   my ($var) =@_;
   $toolversion =$var;
}

sub get_par {
   my ($name,$valref,$num) =@_;
   my $status =0;

   if ($#ARGV < $num) {
   $$valref = `pquery $toolname $name `;
   }
   elsif ( $ARGV[$num] =~ /\=/ ) {
     if ( $ARGV[$num] =~ /$name\=/ ) {
       $$valref = `pquery $toolname $name $ARGV[$num]`;
     }
     else {
       print "Parameter duplicated, possibly ambiguous: $name\n";
       $status =1;
     }
   }
   else {
   $$valref = `pquery $toolname $name $name=$ARGV[$num]`;
   }

   return $status;

}