Changeset 12218

Timestamp:

Mar 2, 2007, 5:49:41 PM (19 years ago)

Author:

Paul Price

Message:

Updating file names and directories.

Location:

trunk/ippScripts/scripts

Files:

• diff_skycell.pl (modified) (1 diff)
• stack_skycell.pl (modified) (1 diff)
• warp_overlap.pl (modified) (1 diff)
• warp_skycell.pl (modified) (1 diff)

trunk/ippScripts/scripts/diff_skycell.pl

@@ -118 +118 @@
 }
 
+$workdir = File::Spec->catfile( $workdir, "sky$skycell_id" );
+system "mkdir -p $workdir" unless -d $workdir;
+
 # Get the output filenames
-my $outputFile = "$skycell_id.sub.$diff_id"; # Root name
+my $outputFile = "sky$skycell_id.dif$diff_id"; # Root name
 my $outputRoot = File::Spec->catfile( $workdir, $outputFile );
 

trunk/ippScripts/scripts/stack_skycell.pl

@@ -112 +112 @@
 }
 
+$workdir = File::Spec->catfile( $workdir, "sky$skycell_id" );
+system "mkdir -p $workdir" unless -d $workdir;
+
 # Get the output filenames
-my $outputFile = "$skycell_id.stack.$stack_id"; # Root name
+my $outputFile = "sky$skycell_id.stk$stack_id"; # Root name
 my $outputRoot = File::Spec->catfile( $workdir, $outputFile );
 

trunk/ippScripts/scripts/warp_overlap.pl

@@ -99 +99 @@
 }
 
+$workdir = File::Spec->catfile( $workdir, "warp$warp_id" );
+system "mkdir -p $workdir" unless -d $workdir;
+
 # Generate a MDC file with the overlaps
-my $overlapName = File::Spec->catfile( $workdir, $warp_id . '.overlap.mdc' );
+my $overlapName = File::Spec->catfile( $workdir, 'overlap.mdc' );
 open my $overlapFile, "> $overlapName" or die "Unable to open mdc file $overlapName";
 print $overlapFile "warpSkyCellMap MULTI\n\n";

trunk/ippScripts/scripts/warp_skycell.pl

@@ -92 +92 @@
     $workdir = $dir;
 }
-my $outputFile = "$skycell_id.warp.$warp_id"; # Root name
+
+$workdir = File::Spec->catfile( $workdir, "sky$skycell_id" );
+system "mkdir -p $workdir" unless -d $workdir;
+
+my $outputFile = "sky$skycell_id.wrp$warp_id"; # Root name
 my $outputRoot = File::Spec->catfile( $workdir, $outputFile );
 my $outputImage = $ipprc->filename("PSWARP.OUTPUT", $outputRoot, $skycell_id );