Changeset 21330 for trunk/ippScripts/scripts/stack_skycell.pl

Timestamp:

Feb 5, 2009, 11:02:18 AM (17 years ago)

Author:

eugene

Message:

handle failures in delete_temps without getting into infinite loop

File:

• trunk/ippScripts/scripts/stack_skycell.pl (modified) (6 diffs)

trunk/ippScripts/scripts/stack_skycell.pl

@@ -66 +66 @@
     $logDest .= ".update";
 }
+
 $ipprc->redirect_output($logDest) if $redirect;
 
+my $temp_images_exist = 0;
 my $image_id = $stack_id;
 my $source_id = $ipprc->source_id($dbname, $PS_TABLE_ID_STACK);
@@ -192 +194 @@
 $traceDest .= ".update" if $run_state eq 'update';
 my $configuration = $ipprc->filename("PPSTACK.CONFIG", $outroot);
+$temp_images_exist = 1;  # failures after this point should attempt to delete the temp images
 
 # for update we need to resolve the config filename here because the code that reads it
@@ -287 +290 @@
 
 
-
+my $my_die_called = 0;
 sub my_die
 {
@@ -296 +299 @@
     carp($msg);
 
-    delete_temps() unless ($save_temps);
+    unless ($my_die_called) {
+        $my_die_called = 1;
+        delete_temps() unless ($save_temps);
+    }
 
     if (defined $stack_id and not $no_update) {
@@ -317 +323 @@
 sub delete_temps
 {
+    unless ($temp_images_exist) {
+        print "No temporary images yet generated\n";
+        return 1;
+    }
+
     print "Ensuring temporary images are deleted.\n";
     my $command = "$ppConfigDump -camera $camera -recipe PPSTACK $recipe_ppStack -dump-recipe PPSTACK -";
@@ -323 +334 @@
     unless ($success) {
         $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
-        &my_die("Unable to perform ppConfigDump: $error_code", $stack_id, $error_code);
+        &my_die("Unable to perform ppConfigDump: $error_code", $stack_id, $error_code);
     }
     my $md = $mdcParser->parse(join "", @$stdout_buf) or
-        &my_die("Unable to parse metadata config doc", $stack_id, $PS_EXIT_PROG_ERROR);
+        &my_die("Unable to parse metadata config doc", $stack_id, $PS_EXIT_PROG_ERROR);
 
     my $temp_delete = metadataLookupBool($md, 'TEMP.DELETE'); # Delete temporary files?