Changeset 18489 for trunk/ippScripts/scripts/ipp_serial_stack.pl
- Timestamp:
- Jul 11, 2008, 1:26:39 PM (18 years ago)
- File:
-
- 1 edited
-
trunk/ippScripts/scripts/ipp_serial_stack.pl (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ippScripts/scripts/ipp_serial_stack.pl
r18486 r18489 14 14 use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt ); 15 15 use Pod::Usage qw( pod2usage ); 16 use File::Basename; 16 17 17 18 my $ipprc = PS::IPP::Config->new(); # IPP configuration … … 68 69 my $stack_id = $item->{stack_id}; 69 70 my $workdir = $item->{workdir}; 70 my $tess_id = $item->{tess_id};71 my $tess_id = basename($item->{tess_id}); 71 72 my $skycell_id = $item->{skycell_id}; 72 73 … … 74 75 die "No working directory specified.\n" unless defined $workdir; 75 76 76 my $outroot = caturi( $workdir, $ skycell_id, "$skycell_id.stk.$stack_id" );77 my $outroot = caturi( $workdir, $tess_id, $skycell_id, "$tess_id.$skycell_id.dif.$diff_id" ); 77 78 $ipprc->outroot_prepare( $outroot ); 78 79
Note:
See TracChangeset
for help on using the changeset viewer.
