Changeset 12576

Timestamp:

Mar 23, 2007, 2:31:35 PM (19 years ago)

Author:

Paul Price

Message:

Adding det_type to detrend_process_exp.pl, so that it can set the correct output directory.

Location:

trunk/ippScripts/scripts

Files:

• detrend_process_exp.pl (modified) (2 diffs)
• ipp_serial_detrend.pl (modified) (1 diff)

trunk/ippScripts/scripts/detrend_process_exp.pl

@@ -33 +33 @@
 use Pod::Usage qw( pod2usage );
 
-my ($det_id, $exp_tag, $camera, $dbname, $workdir, $no_update, $no_op);
+my ($det_id, $det_type, $exp_tag, $camera, $dbname, $workdir, $no_update, $no_op);
 GetOptions(
     'det_id|d=s'        => \$det_id,
+    'det_type|t=s'      => \$det_type,
     'exp_tag|e=s'       => \$exp_tag,
     'camera|c=s'        => \$camera,
@@ -46 +47 @@
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
 pod2usage(
-    -msg => "Required options: --det_id --exp_tag --camera",
+    -msg => "Required options: --det_id --det_type --exp_tag --camera",
     -exitval => 3,
 ) unless defined $det_id
-    and defined $exp_tag,
+    and defined $det_type
+    and defined $exp_tag
     and defined $camera;
 

trunk/ippScripts/scripts/ipp_serial_detrend.pl

@@ -93 +93 @@
         my $camera = $item->{camera};
         my $det_id = $item->{det_id};
-
-        my $command = "$detrend_process_exp --det_id $det_id --exp_tag $exp_tag --camera $camera --dbname $dbname";
+        my $det_type = $item->{det_type};
+
+        my $command = "$detrend_process_exp --det_id $det_id --det_type $det_type --exp_tag $exp_tag --camera $camera --dbname $dbname";
         $command .= " --workdir $workdir" if defined $workdir;
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =