Changeset 36048 for trunk/pstamp/scripts/pstamp_job_run.pl
- Timestamp:
- Aug 27, 2013, 2:42:06 PM (13 years ago)
- File:
-
- 1 edited
-
trunk/pstamp/scripts/pstamp_job_run.pl (modified) (6 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/pstamp/scripts/pstamp_job_run.pl
r36018 r36048 562 562 } 563 563 564 # stack_summary stage does not currently use proper file rules. 565 # The parser defers handlint this to us.. 566 564 567 sub update_stack_summary_filenames { 565 568 my $params = shift; … … 570 573 $params->{mask} = $path_base . ".mask.b1.fits"; 571 574 $params->{weight} = $path_base . ".variance.b1.fits"; 575 $params->{jpeg} = $path_base . ".image.0.b1.jpeg"; 572 576 $params->{exp} = $path_base . ".exp.b1.fits"; 573 577 $params->{num} = $path_base . ".num.b1.fits"; 574 575 578 } 576 579 … … 580 583 my $result; 581 584 my $resolved = $ipprc->file_resolve($src); 582 if ($ipprc->file_exists($resolved)) { 585 if ($resolved and $ipprc->file_exists($resolved)) { 586 print "Copying $src to $dest\n" if $verbose;; 583 587 $result = copy($resolved, $dest); 584 588 } else { … … 602 606 my ($outputBase, $r_options, $params) = @_; 603 607 608 print "Just copying files for $job_id.\n"; 609 604 610 my $options = $$r_options; 605 611 if ($options & $PSTAMP_SELECT_IMAGE) { … … 616 622 } 617 623 } 624 if ($options & $PSTAMP_SELECT_JPEG) { 625 if (!myCopy("$outputBase.jpg", $params->{jpeg}, 'jpeg', 0)) { 626 $options &= ~$PSTAMP_SELECT_JPEG; 627 } 628 } 618 629 if ($options & $PSTAMP_SELECT_EXP) { 619 630 if (!myCopy("$outputBase.exp.fits", $params->{exp}, 'exp', 0)) { … … 628 639 629 640 $$r_options = $options; 641 642 print "Done with copy.\n"; 630 643 631 644 return 0;
Note:
See TracChangeset
for help on using the changeset viewer.
