Changeset 26554 for trunk/ippScripts/scripts/magic_destreak.pl

Timestamp:

Jan 9, 2010, 10:53:10 AM (16 years ago)

Author:

bills

Message:

If skycell file doesn't exist create a temporary template one.
This happens when re-doing restreaking after cleanup/update
if the corresponding diffRun has been cleaned.

File:

• trunk/ippScripts/scripts/magic_destreak.pl (modified) (3 diffs)

trunk/ippScripts/scripts/magic_destreak.pl

@@ -15 +15 @@
 
 use IPC::Cmd 0.36 qw( can_run run );
-use File::Temp qw( tempfile );
+use File::Temp qw( tempfile tempdir );
 use File::Basename qw( basename dirname );
 use PS::IPP::Metadata::Config;
@@ -179 +179 @@
 }
 
+my $temp_dir;
+
 if ($stage ne "camera") {
     # get skycell list if needed
@@ -200 +202 @@
                     &my_die("Unable to parse metadata list", $magic_ds_id, $component, $PS_EXIT_PROG_ERROR);
 
+            $temp_dir = tempdir( CLEANUP => !$save_temps);
             ($sfh, $skycell_list) = tempfile( "/tmp/skycell_list.XXXX", UNLINK => !$save_temps);
 
             foreach my $skycell (@$skycells) {
-                my $skycell_uri = $ipprc->filename("PPSUB.OUTPUT", $skycell->{path_base});
+                my $skycell_uri;
+                if ($skycell->{data_state} eq "full") {
+                    $skycell_uri = $ipprc->filename("PPSUB.OUTPUT", $skycell->{path_base});
+                } else {
+                    # diff run must have been cleaned up, need to create this skycell file on the fly
+                    my $skycell_id = $skycell->{skycell_id};
+                    $skycell_uri = "$temp_dir/$skycell_id";
+                    $ipprc->skycell_file($skycell->{tess_id}, $skycell_id, $skycell_uri, $verbose) or
+                        &my_die("failed to create skycell file for $skycell_id", $magic_ds_id, $component, $PS_EXIT_PROG_ERROR);
+                }
                 print $sfh "$skycell_uri\n";
             }
-            close $sfh;
+            close $sfh
         }
     }