Subs::Spacecraft2FITS (version 0.0)


package Subs::Spacecraft2FITS;
##############################################################################
#
# DESCRIPTION: This subroutine converts Spacecraft HK telemetry to FITS
#
# HISTORY: 
# HISTORY: $Log: Spacecraft2FITS.pm,v $
# HISTORY: Revision 1.7  2004/05/06 20:02:34  dah
# HISTORY: Add version number back into the header comments.
# HISTORY:
# HISTORY: Revision 1.6  2004/04/28 13:47:35  dah
# HISTORY: Make one method for extracting hk, and put it in Swift2FTIS superclass.
# HISTORY:
# HISTORY: Revision 1.5  2004/04/16 20:21:18  dah
# HISTORY: Begin using embedded history records
# HISTORY:
#
# VERSION: 0.0
#
#
##############################################################################


use Subs::Swift2FITS;
use Util::Tool;

@ISA = ("Subs::Swift2FITS");
use strict;

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

    $self->{DESCRIPTION}="Decoding Spacecraft Telemetry";

    return $self;
}

##################
# METHODS:
##################

sub body {
    my $self=shift;

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

    $self->hk_extract('swift');
    $self->hk_combine('swift');

} # end of body method