Subs::AddGTI2Att (version 0.0)


package Subs::AddGTI2Att;

##############################################################################
#
# DESCRIPTION: This module has he simple functionality of appending
# DESCRIPTION: an extension that contains the GTIsto all existing
# DESCRIPTION: attitude files
#
# HISTORY: $Log: AddGTI2Att.pm,v $
# HISTORY: Revision 1.3  2012/01/12 06:52:03  apsop
# HISTORY: Changes going to proc3.15.03
# HISTORY:
#
# VERSION: 0.0
#
##############################################################################

use Subs::Sub;
use Util::Log;
#@ISA = ("Subs::Sub","Util::Log");
@ISA = ("Subs::Sub");

use strict;

sub new {
    my $proto=shift;
    my $self=$proto->SUPER::new();

    $self->{DESCRIPTION}="Adding GTI\'s to spacecraft attitude file";

    return $self;
}

sub body {
    my $self=shift;

    my $log     =$self->log();
    my $filename=$self->filename();
    my $jobpar	=$self->jobpar();

    my $sssgti = $filename->get('gti', 's', 'ss');
    my $satgti = $filename->get('gti', 's', 'at');


    my $attitude = $filename->get('attitude', 's');

    if(!-e $sssgti and !-e $satgti){
      $log->error(1, "NO GTI file available, unable to add GTI's to attitude file");
      return;
    }

    if(!-e $attitude){
      $log->error(1, "Spacecraft attitude file does not exist, unable to add GTI's to file");
      return;
    }


    if(-e $sssgti){

      Util::HEAdas->new('ftappend')
	  ->params({
		    infile => "$sssgti\[GTI\]",
		    outfile => "$attitude",
		   })
	    ->run();
    }

    if(-e $satgti){

      Util::HEAdas->new('ftappend')
	  ->params({
		    infile => "$satgti\[STDGTI\]",
		    outfile => "$attitude",
		   })
	    ->run();
    }

    return;

} # end of body method