Subs::XrtTdrss (version 0.0)

package Subs::XrtTdrss;
##############################################################################
#
# DESCRIPTION: This subroutine runs the xrttdrss script to process xrt tdrss 
#              data.
#
# HISTORY: 
# HISTORY: $Log: XrtTdrss.pm,v $
# HISTORY: Revision 1.2  2005/11/08 20:10:42  apsop
# HISTORY: <Previous comment bogus>New module for processing xrt tdrss data.
# HISTORY:
# HISTORY: Revision 1.1  2005/11/08 19:22:28  apsop
# HISTORY: Populate the TIMELIST and DATALIST hashes. Used to be an SWCheckInput.
# HISTORY:
# HISTORY:
#
# VERSION: 0.0
#
#
##############################################################################


use Subs::Sub;
use Util::SwiftTags;

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

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

    $self->{DESCRIPTION}="Process XRT tdrss messages";

    return $self;
}

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

sub body {
    my $self=shift;

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

    my $tdrss = Util::HEAdas->new('xrttdrss')
                            ->params({spec1file    => 'NONE',
				      spec2file    => 'NONE',
				      posfile      => 'CALDB',
				      imbiasfile   => 'CALDB',
				      pdbiasfile   => 'CALDB'})
			    ->is_script(1);

    foreach my $image ($filename->get('tdimage', 'x', 'im', '*')){
      my ($sk_image, $rw_image) = ($image) x 2;
      $sk_image =~ s/\.img/_sk\.img/;
      $rw_image =~ s/\.img/_rw\.img/;
      
      rename $image, $rw_image;
      $tdrss->params({imagefile    => $rw_image,
		      outimagefile => $sk_image})
	    ->run();
    }
}

1;