Changeset 36143
- Timestamp:
- Sep 19, 2013, 4:19:06 PM (13 years ago)
- File:
-
- 1 edited
-
trunk/pstamp/scripts/pstampparse.pl (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/pstamp/scripts/pstampparse.pl
r36061 r36143 31 31 my $no_update; 32 32 my $dest_requires_magic; 33 my $dump_params = 0; 33 34 34 35 # set this to true to disable update processing … … 48 49 'save-temps'=> \$save_temps, 49 50 'no-update' => \$no_update, 51 'dump-params' => \$dump_params, 50 52 ); 51 53 … … 777 779 print "$image->{image}\n"; 778 780 ++$firstRow->{job_num}; 781 if ($dump_params) { 782 my $rownum = $firstRow->{ROWNUM}; 783 my $jobnum = $firstRow->{job_num}; 784 my $filter = substr $image->{filter}, 0, 1; 785 my $output_base = "${rownum}_${jobnum}_${filter}"; 786 write_params($output_base, $image); 787 } 779 788 } 780 789 } elsif ($job_type eq "get_image") {
Note:
See TracChangeset
for help on using the changeset viewer.
