Changeset 29829 for trunk/ippScripts/scripts/magic_destreak_cleanup.pl

Timestamp:

Nov 24, 2010, 12:45:33 PM (15 years ago)

Author:

bills

Message:

if there are no components left to clean up set run state to 'cleaned'

File:

• trunk/ippScripts/scripts/magic_destreak_cleanup.pl (modified) (1 diff)

trunk/ippScripts/scripts/magic_destreak_cleanup.pl

@@ -130 +130 @@
         push @components, $comp;
         $num_components++;
+}
+if ($num_components == 0) {
+    # no components to clean up set run state to cleaned
+    my $command = "$magicdstool -updaterun -magic_ds_id $magic_ds_id -set_state cleaned";
+    $command   .= " -dbname $dbname" if defined $dbname;
+
+    unless ($no_update) {
+        my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
+            run(command => $command, verbose => $verbose);
+        unless ($success) {
+            carp("failed to update database for $magic_ds_id");
+        }
+    } else {
+        print "Skipping command: $command\n";
+    }
+    exit 0;
 }