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;