Changeset 18489

Timestamp:

Jul 11, 2008, 1:26:39 PM (18 years ago)

Author:

Paul Price

Message:

Just found Gene's solution: use the basename of the tess_id. Reverting to this solution.

Location:

trunk/ippScripts/scripts

Files:

• ipp_serial_diff.pl (modified) (3 diffs)
• ipp_serial_stack.pl (modified) (3 diffs)
• ipp_serial_warp.pl (modified) (3 diffs)

trunk/ippScripts/scripts/ipp_serial_diff.pl

@@ -11 +11 @@
 use PS::IPP::Metadata::List qw( parse_md_list );
 use PS::IPP::Config 1.01 qw( :standard );
+use File::Basename;
 
 use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
@@ -66 +67 @@
         my $diff_id = $item->{diff_id};
         my $skycell_id = $item->{skycell_id};
-        my $tess_id = $item->{tess_id};
+        my $tess_id = basename($item->{tess_id});
         my $workdir = $item->{workdir};
         
@@ -72 +73 @@
         die "No working directory specified.\n" unless defined $workdir;
         
-        my $outroot = caturi( $workdir, $skycell_id, "$skycell_id.dif.$diff_id" );
+        my $outroot = caturi( $workdir, $tess_id, $skycell_id, "$tess_id.$skycell_id.dif.$diff_id" );
         $ipprc->outroot_prepare( $outroot );
 

trunk/ippScripts/scripts/ipp_serial_stack.pl

@@ -14 +14 @@
 use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
 use Pod::Usage qw( pod2usage );
+use File::Basename;
 
 my $ipprc = PS::IPP::Config->new(); # IPP configuration
@@ -68 +69 @@
         my $stack_id = $item->{stack_id};
         my $workdir = $item->{workdir};
-        my $tess_id = $item->{tess_id};
+        my $tess_id = basename($item->{tess_id});
         my $skycell_id = $item->{skycell_id};
         
@@ -74 +75 @@
         die "No working directory specified.\n" unless defined $workdir;
         
-        my $outroot = caturi( $workdir, $skycell_id, "$skycell_id.stk.$stack_id" );
+        my $outroot = caturi( $workdir, $tess_id, $skycell_id, "$tess_id.$skycell_id.dif.$diff_id" );
         $ipprc->outroot_prepare( $outroot );
 

trunk/ippScripts/scripts/ipp_serial_warp.pl

@@ -14 +14 @@
 use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
 use Pod::Usage qw( pod2usage );
+use File::Basename;
 
 my $ipprc = PS::IPP::Config->new(); # IPP configuration
@@ -96 +97 @@
         my $warp_id = $item->{warp_id};
         my $skycell_id = $item->{skycell_id};
-        my $tess_id = $item->{tess_id};
+        my $tess_id = basename($item->{tess_id});
         my $cam_id = $item->{cam_id};
         my $workdir = $item->{workdir};
@@ -104 +105 @@
         die "No working directory specified.\n" unless defined $workdir;
         
-        my $outroot = caturi( $workdir, $skycell_id, "$skycell_id.wrp.$warp_id" );
+        my $outroot = caturi( $workdir, $tess_id, $skycell_id, "$tess_id.$skycell_id.dif.$diff_id" );
         $ipprc->outroot_prepare( $outroot );