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

Timestamp:

Mar 28, 2007, 5:18:02 PM (19 years ago)

Author:

Paul Price

Message:

Adding workdir from the database, not the command-line.

File:

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

trunk/ippScripts/scripts/ipp_serial_detrend.pl

@@ -12 +12 @@
 
 my ($dbname,                    # Database name to use
-    $workdir,                   # Working directory
     );
 GetOptions(
            'dbname|d=s'  => \$dbname,
-           'workdir|w=s' => \$workdir,
 ) or pod2usage( 2 );
 
@@ -94 +92 @@
         my $det_id = $item->{det_id};
         my $det_type = $item->{det_type};
+        my $workdir = $item->{workdir};
 
         my $command = "$detrend_process_exp --det_id $det_id --det_type $det_type --exp_tag $exp_tag --camera $camera --dbname $dbname";
@@ -118 +117 @@
         my $det_type = $item->{det_type};
         my $camera = $item->{camera};
+        my $workdir = $item->{workdir};
 
         my $command = "$detrend_stack --det_id $det_id --iteration $iteration --class_id $class_id --det_type $det_type --camera $camera --dbname $dbname";
@@ -140 +140 @@
         my $iteration = $item->{iteration};
         my $det_type = $item->{det_type};
+        my $workdir = $item->{workdir};
 
         my $command = "$detrend_norm_calc --det_id $det_id --iteration $iteration --det_type $det_type --dbname $dbname";
@@ -166 +167 @@
         my $uri = $item->{uri};
         my $camera = $item->{camera};
+        my $workdir = $item->{workdir};
 
         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";
@@ -192 +194 @@
         my $uri = $item->{uri};
         my $camera = $item->{camera};
+        my $workdir = $item->{workdir};
 
         my $command = "$detrend_norm_exp --det_id $det_id --iteration $iteration --camera $camera --det_type $det_type --dbname $dbname";
@@ -230 +233 @@
                 my $uri = $item->{uri};
                 my $mode = $item->{mode};
+                my $workdir = $item->{workdir};
 
                 my $command = "$detrend_resid --det_id $det_id --iteration $iteration --exp_tag $exp_tag --class_id $class_id --det_type $det_type --camera $camera --input_uri $uri --mode $mode --dbname $dbname";
@@ -261 +265 @@
         my $iteration = $item->{iteration};
         my $det_type = $item->{det_type};
+        my $workdir = $item->{workdir};
 
         my $command = "$detrend_reject_imfile --det_id $det_id --iteration $iteration --exp_tag $exp_tag --det_type $det_type --camera $camera --dbname $dbname";
@@ -284 +289 @@
         my $iteration = $item->{iteration};
         my $det_type = $item->{det_type};
+        my $workdir = $item->{workdir};
 
         my $command = "$detrend_reject_exp --det_id $det_id --iteration $iteration --det_type $det_type --camera $camera --dbname $dbname";