Changeset 9180 for trunk/ippScripts/scripts/detrend_stack.pl

Timestamp:

Oct 3, 2006, 5:47:25 PM (20 years ago)

Author:

Paul Price

Message:

Adding path handling.

File:

• trunk/ippScripts/scripts/detrend_stack.pl (modified) (5 diffs)

trunk/ippScripts/scripts/detrend_stack.pl

@@ -11 +11 @@
 use PS::IPP::Metadata::List qw( parse_md_list );
 use PS::IPP::Metadata::Stats;
+
+use PS::IPP::Config;
+my $ipprc = PS::IPP::Config->new(); # IPP configuration
+use File::Spec;
 
 use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
@@ -73 +77 @@
 }
 
+my $example = ${$files}[0]->{uri}; # Example file
+my ($vol, $dir, $file) = File::Spec->splitpath( $example );
+
 # Stack the files
 my $outputRoot = $camera . '.' . $det_type . '.' . $det_id . '.' . $iter . '.' . $class_id; # Root name
+$outputRoot = File::Spec->rel2abs( File::Spec->catpath( $vol, $dir, $outputRoot ), $ipprc->workdir() );
 my $outputStack = $outputRoot . '.fits'; # Output name
 my $outputStats = $outputRoot . '.stats'; # Statistics name
@@ -81 +89 @@
     foreach my $file (@$files) {
         my $uri = $file->{uri}; # URI for input file
+        $uri = File::Spec->rel2abs( $uri, $ipprc->workdir() );
         $command .= ' ' . $uri;
     }
@@ -93 +102 @@
     die "Unable to find expected output file: $outputStats\n" if not -f $outputStats;
 }
-
-### Could do some sort of JPEG generation here.
 
 # Get the statistics on the stacked image
@@ -112 +119 @@
 
 # Add the resultant into the database
+$outputStack = File::Spec->abs2rel( $outputStack, $ipprc->workdir() );
 unless ($no_update) {
     my $command = "$dettool -addstacked -det_id $det_id -iteration $iter -class_id $class_id" .