Changeset 33064

Timestamp:

Jan 9, 2012, 5:53:11 PM (14 years ago)

Author:

bills

Message:

add option to actually perform the repair operations

File:

• trunk/tools/repair_bad_instance (modified) (5 diffs)

trunk/tools/repair_bad_instance

@@ -11 +11 @@
 use PS::IPP::Config 1.01 qw( :standard );
 
+my $dbname = 'gpc1';
+
 
 my ( $exp_id,
@@ -17 +19 @@
      $go,
      );
-my $dbname ='gpc1';
 
 # the char to the right of the bar may be used as a single - alias for the longer name
@@ -24 +25 @@
            'exp_id|e=s'     => \$exp_id,
            'class_id|c=s'   => \$class_id,
-           'repair'         => \$go,
+           'repair|r'       => \$go,
            'pretend'        => \$pretend,
 ) or pod2usage( 2 );
@@ -86 +87 @@
 } else {
     print "No good instances of $uri found. To fix run:\n";
-    my $cmd = "regtool -updateprocessedimfile -set_ignored -exp_id $exp_id -class_id $class_id\n";
+    my $cmd = "regtool -dbname $dbname -updateprocessedimfile -set_ignored -exp_id $exp_id -class_id $class_id\n";
     print "$cmd\n";
     if ($go) {
@@ -95 +96 @@
 
 if ($fixed) {
-    my $cmd =  "chiptool -revertprocessedimfile -exp_id $exp_id";
+    my $cmd =  "chiptool -dbname $dbname -revertprocessedimfile -exp_id $exp_id";
     print "$cmd\n";
     system $cmd;