Changeset 26208
- Timestamp:
- Nov 20, 2009, 10:41:06 AM (17 years ago)
- File:
-
- 1 edited
-
trunk/pstamp/scripts/pstamp_get_image_job.pl (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/pstamp/scripts/pstamp_get_image_job.pl
r26204 r26208 60 60 my $mdcParser = PS::IPP::Metadata::Config->new; # Parser for metadata config files 61 61 62 my $params = join "", (<INPUT>); 63 64 my $data = $mdcParser->parse($params) or die("failed to parse metadata config doc"); 62 my $data = $mdcParser->parse(join "", (<INPUT>)) or die("failed to parse metadata config doc"); 65 63 my $components = parse_md_list($data); 66 64 my $n = scalar @$components; … … 89 87 } 90 88 91 92 89 my $out_dir = dirname($output_base); 93 90 my $prefix = basename($output_base) . "_"; … … 102 99 } 103 100 104 105 101 { 106 my $command = "$dist_bundle --camera $camera --stage $stage --stage_id $stage_id --component $component"; 102 my $command = "$dist_bundle --camera $camera --stage $stage --stage_id $stage_id"; 103 $command .- " --component $component"; 107 104 $command .= " --path_base $path_base --outdir $out_dir --results_file $results_file"; 108 105 $command .= " --prefix $prefix";
Note:
See TracChangeset
for help on using the changeset viewer.
