Changeset 28875 for trunk/ippScripts/scripts/automate_stacks.pl

Timestamp:

Aug 9, 2010, 5:47:56 PM (16 years ago)

Author:

watersc1

Message:

changing retention times for MD (longer dist) and 3Pi (shorter chip/diff)

File:

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

trunk/ippScripts/scripts/automate_stacks.pl

@@ -1046 +1046 @@
     my $args = $command;
     if ((exists($clean_alternate{$mode})) && ($clean_alternate{$mode} eq 'A')) {
-        $args .= " -dbname $dbname -updaterun -set_state goto_cleaned -full -set_label goto_cleaned -time_stamp_end $cleaning_date ";
+        $args .= " -dbname $dbname -updaterun -set_state goto_cleaned -full -set_label goto_cleaned -label $label -time_stamp_end $cleaning_date ";
     }
     elsif ((exists($clean_alternate{$mode})) && ($clean_alternate{$mode} eq 'B')) {
@@ -1065 +1065 @@
 
     foreach my $mode (@mode_list) {
-        if ((exists($clean_alternate{$mode})) && ($clean_alternate{$mode} eq 'A')) {
-            my ($cleaning_date,$command) = construct_cleantool_args($date,"",$mode);
-            if ($cleaning_date eq 'no clean') {
-                next;
-            }
-            print STDERR "$command\n";
-            if (!(defined($pretend) || $debug == 1)) {
-#           print STDERR "BEAR IS DRIVING!?\n";
-                my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-                    run ( command => $command, verbose => $verbose );
-                unless ($success) {
-                    $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
-                    &my_die("Unable to perform cleantool ($command): $error_code", 0,0,$date, $PS_EXIT_SYS_ERROR);
-                }
-            }
-        }
-        else {
+#       if ((exists($clean_alternate{$mode})) && ($clean_alternate{$mode} eq 'A')) {
+#           my ($cleaning_date,$command) = construct_cleantool_args($date,"",$mode);
+#           if ($cleaning_date eq 'no clean') {
+#               next;
+#           }
+#           print STDERR "$command\n";
+#           if (!(defined($pretend) || $debug == 1)) {
+# #           print STDERR "BEAR IS DRIVING!?\n";
+#               my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
+#                   run ( command => $command, verbose => $verbose );
+#               unless ($success) {
+#                   $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
+#                   &my_die("Unable to perform cleantool ($command): $error_code", 0,0,$date, $PS_EXIT_SYS_ERROR);
+#               }
+#           }
+#       }
+#       else {
             foreach my $target (@target_list) {
                 if (exists($noclean_list{$target})) {
@@ -1101 +1101 @@
                 }
             }
-        }
+#       }
     }
     return(0);