Changeset 12421 for trunk/ippScripts/scripts/diff_skycell.pl

Timestamp:

Mar 12, 2007, 5:01:10 PM (19 years ago)

Author:

Paul Price

Message:

Updating directory names, output file names.

File:

• trunk/ippScripts/scripts/diff_skycell.pl (modified) (2 diffs)

trunk/ippScripts/scripts/diff_skycell.pl

@@ -113 +113 @@
 if (defined $workdir) {
     $workdir = $ipprc->convert_filename_absolute( $workdir );
+    $workdir = File::Spec->catdir( $workdir, "tess_" . $tess_id, "sky_" . $skycell_id );
 } else {
     my ($vol, $dir, $file) = File::Spec->splitpath( $input );
     $workdir = $dir;
 }
-
-$workdir = File::Spec->catfile( $workdir, "sky$skycell_id" );
 system "mkdir -p $workdir" unless -d $workdir;
 
 # Get the output filenames
-my $outputFile = "sky$skycell_id.dif$diff_id"; # Root name
+my $outputFile = "$tess_id.$skycell_id.dif$diff_id"; # Root name
 my $outputRoot = File::Spec->catfile( $workdir, $outputFile );
 
@@ -133 +132 @@
 my $stats = PS::IPP::Metadata::Stats->new(); # Stats parser
 unless ($no_op) {
-    my $command = "$pois $template $input $outputName"; # Command to run pois
+    my $command = "$pois -v $template $input $outputName"; # Command to run pois
 
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =