Changeset 35790

Timestamp:

Jul 10, 2013, 12:12:29 PM (13 years ago)

Author:

bills

Message:

don't raise an error if config file storage object does not exist.
Treat it the same way as a gone file

File:

• tags/ipp-20130307/ippScripts/scripts/ipp_cleanup.pl (modified) (4 diffs)

tags/ipp-20130307/ippScripts/scripts/ipp_cleanup.pl

@@ -242 +242 @@
                     my $fault = $imfile->{fault};
 
-                    if (file_gone($config_file)) {
+                    if (file_gone($config_file) or !storage_object_exists($config_file)) {
                         # config file was lost. Clean up. If the chip is ever updated a new config
                         # file will be created
@@ -551 +551 @@
                     my $fault = $skyfile->{fault};
                     my $quality = $skyfile->{quality};
-                    if (file_gone($config_file)) {
+                    if (file_gone($config_file) or !storage_object_exists($config_file)) {
                         print STDERR "forcing cleanup warp $stage_id $skycell_id fault: $fault quality: $quality"
                             . " because config file ($config_file) is gone\n";
@@ -890 +890 @@
                     my $fault = $skyfile->{fault};
                     my $quality = $skyfile->{quality};
-                    if (file_gone($config_file)) {
+                    if (file_gone($config_file) or !storage_object_exists($config_file)) {
                         print STDERR "forcing cleanup diff $stage_id $skycell_id fault: $fault quality: $quality"
                             . " because config file ($config_file) is gone\n";
@@ -2389 +2389 @@
 }
 
+sub storage_object_exists {
+    my $filename = shift;
+    $nebulous_server = $ipprc->nebulous() if !$nebulous_server;
+    return $nebulous_server->storage_object_exists($filename);
+}
+
 # XXX we currently do not set the error state in the db on my_die
 sub my_die