Changeset 12573
- Timestamp:
- Mar 23, 2007, 1:29:52 PM (19 years ago)
- File:
-
- 1 edited
-
trunk/ippScripts/scripts/ipp_serial_detrend.pl (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ippScripts/scripts/ipp_serial_detrend.pl
r11847 r12573 4 4 use strict; 5 5 6 use Getopt::Long; 7 use Pod::Usage qw( pod2usage ); 6 8 use IPC::Cmd qw( can_run run ); 7 9 use PS::IPP::Metadata::Config; … … 61 63 my $det_type = $item->{det_type}; 62 64 my $exp_tag = $item->{exp_tag}; 63 my $class = $item->{class};64 65 my $class_id = $item->{class_id}; 65 66 my $uri = $item->{uri}; 66 67 my $camera = $item->{camera}; 67 68 68 my $command = "$detrend_process_imfile --det_id $det_id --exp_tag $exp_tag --class $class --class_id $class_id --det_type $det_type --input_uri $uri --camera $camera --dbname $dbname";69 my $command = "$detrend_process_imfile --det_id $det_id --exp_tag $exp_tag --class_id $class_id --det_type $det_type --input_uri $uri --camera $camera --dbname $dbname"; 69 70 $command .= " --workdir $workdir" if defined $workdir; 70 71 my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
Note:
See TracChangeset
for help on using the changeset viewer.
