#! /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/xsl_einstein_ipc_makeresp
# 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/xsl_einstein_ipc_makeresp."
  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/xsl_einstein_ipc_makeresp."
  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 
$version ="1.00";
$date  ="2002-11-19";
$author = "kaa";

# This script makes the Einstein IPC rsp. It is run by the xselect
# routine xsl_rspsav.

# Check that we were given an input filename

if(@ARGV != 1)
{
    print "\n usage : xsl_einstein_ipc_makeresp infile\n";
    exit(0);
}

$infile  = $ARGV[0];

# copy the rsp from the caldb. Need to check whether we want the 15 or
# 16 channel version

$command = "fkeypar fitsfile=$infile\[SPECTRUM\] keyword=DETCHANS";
system($command);
$detchans = `pget fkeypar value`;
if ( $detchans == 15 ) {
   $rmffile = "ipc_90jun07_15ch.rsp";
} elsif ( $detchans == 16 ) {
   $rmffile = "ipc_90jun07_16ch.rsp";
} else {
   print "DETCHANS for the spectum is neither 15 or 16\n";
   exit(1);
}

# if the rsp file doesn't already exist in this directory then copy it
# from the caldb.

if ( !-e $rmffile ) {

   $caldb = $ENV{'CALDB'};
   if($caldb !~/\S/) 
   {
      print "The CALDB environment variable is not set.\n";
      exit(2);
   }

   $calfile = $caldb . "/data/einstein/ipc/cpf/" . $rmffile;
   $command = "cp $calfile $rmffile";
   print "\n",$command,"\n\n";
   system($command);

}

# set the RESPFILE keyword in the spectrum to point to the file that has
# been created

$command = "fparkey value=$rmffile fitsfile=$infile\[SPECTRUM\] keyword=RESPFILE";
system($command);