Changeset 16752 for trunk/ippScripts/scripts/ipp_serial_detrend.pl

Timestamp:

Feb 28, 2008, 5:02:12 PM (18 years ago)

Author:

Paul Price

Message:

Need to create the output directory

File:

• trunk/ippScripts/scripts/ipp_serial_detrend.pl (modified) (11 diffs)

trunk/ippScripts/scripts/ipp_serial_detrend.pl

@@ -9 +9 @@
 use PS::IPP::Metadata::Config qw( caturi );
 use PS::IPP::Metadata::List qw( parse_md_list );
+use PS::IPP::Config;
 use Data::Dumper;
 
@@ -25 +26 @@
 
 my $mdcParser = PS::IPP::Metadata::Config->new; # Metadata config parser
+my $ipprc = PS::IPP::Config->new(); # IPP configuration
 
 # Look for programs we need
@@ -74 +76 @@
 
                 my $outroot = caturi( $workdir, "$camera.$det_type.$det_id", $exp_tag, "$exp_tag.detproc.$det_id" );
+                $ipprc->outroot_prepare( $outroot );
 
                 my $command = "$detrend_process_imfile --det_id $det_id --exp_tag $exp_tag --exp_id $exp_id --class_id $class_id --det_type $det_type --input_uri $uri --camera $camera --dbname $dbname --outroot $outroot";
@@ -109 +112 @@
         
         my $outroot = caturi( $workdir, "$camera.$det_type.$det_id", $exp_tag, "$exp_tag.detproc.$det_id" );
+        $ipprc->outroot_prepare( $outroot );
 
         my $command = "$detrend_process_exp --det_id $det_id --det_type $det_type --exp_tag $exp_tag --exp_id $exp_id --camera $camera --dbname $dbname --outroot $outroot";
@@ -139 +143 @@
         
         my $outroot = caturi( $workdir, "$camera.$det_type.$det_id", "$camera.$det_type.$det_id.$iteration" );
+        $ipprc->outroot_prepare( $outroot );
+
 
         my $command = "$detrend_stack --det_id $det_id --iteration $iteration --class_id $class_id --det_type $det_type --camera $camera --dbname $dbname --outroot $outroot";
@@ -168 +174 @@
         
         my $outroot = caturi( $workdir, "$camera.$det_type.$det_id", "$camera.$det_type.normstat.$det_id.$iteration" );
+        $ipprc->outroot_prepare( $outroot );
 
         my $command = "$detrend_norm_calc --det_id $det_id --iteration $iteration --det_type $det_type --dbname $dbname --outroot $outroot";
@@ -199 +206 @@
         
         my $outroot = caturi( $workdir, "$camera.$det_type.$det_id", "$camera.$det_type.norm.$det_id.$iteration" );
+        $ipprc->outroot_prepare( $outroot );
 
         my $command = "$detrend_norm_apply --det_id $det_id --iteration $iteration --class_id $class_id --value $value --input_uri $uri --camera $camera --det_type $det_type --dbname $dbname --outroot $outroot";
@@ -230 +238 @@
         
         my $outroot = caturi( $workdir, "$camera.$det_type.$det_id", "$camera.$det_type.normexp.$det_id.$iteration" );
+        $ipprc->outroot_prepare( $outroot );
 
         my $command = "$detrend_norm_exp --det_id $det_id --iteration $iteration --camera $camera --det_type $det_type --dbname $dbname --outroot $outroot";
@@ -275 +284 @@
                 
                 my $outroot = caturi( $workdir, "$camera.$det_type.$det_id", $exp_tag, "$exp_tag.detresid.$det_id.$iteration" );
-                
+                $ipprc->outroot_prepare( $outroot );
+
                 my $command = "$detrend_resid --det_id $det_id --iteration $iteration --exp_tag $exp_tag --exp_id $exp_id --class_id $class_id --det_type $det_type --camera $camera --input_uri $uri --mode $mode --dbname $dbname --outroot $outroot";
                 $command .= " --reduction $reduction" if defined $reduction;
@@ -313 +323 @@
         
         my $outroot = caturi( $workdir, "$camera.$det_type.$det_id", $exp_tag, "$exp_tag.detresid.$det_id.$iteration" );
-        
+        $ipprc->outroot_prepare( $outroot );
+
         my $command = "$detrend_reject_imfile --det_id $det_id --iteration $iteration --exp_tag $exp_tag --exp_id $exp_id --det_type $det_type --camera $camera --dbname $dbname --outroot $outroot";
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
@@ -341 +352 @@
         
         my $outroot = caturi( $workdir, "$camera.$det_type.$det_id", "$camera.$det_type.$det_id.$iteration.detreject" );
-        
+        $ipprc->outroot_prepare( $outroot );
+
         my $command = "$detrend_reject_exp --det_id $det_id --iteration $iteration --det_type $det_type --camera $camera --dbname $dbname --outroot $outroot";
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =