Changeset 33197

Timestamp:

Feb 2, 2012, 9:43:52 AM (14 years ago)

Author:

bills

Message:

better messages

File:

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

trunk/tools/repair_bad_instance

@@ -10 +10 @@
 use PS::IPP::Metadata::Config;
 use PS::IPP::Config 1.01 qw( :standard );
+use File::Basename;
 
 my $dbname = 'gpc1';
@@ -16 +17 @@
 my ( $exp_id,
      $class_id,
-     $pretend,
      $repair_lost,
      $go,
@@ -28 +28 @@
            'repair|r'       => \$go,
            'repair-lost|l'  => \$repair_lost,
-           'pretend'        => \$pretend,
 ) or pod2usage( 2 );
 
@@ -35 +34 @@
  #           -exitval => 3)
 unless (defined $exp_id and defined $class_id ) {
-    print STDERR "Usage: $0 --exp_id <exp_id> --class_id <class_id> [--repair]\n";
+    my $prog = basename($0);
+    print STDERR "Usage:\n\t$prog --exp_id <exp_id> --class_id <class_id> [--repair --repair-lost]\n";
     exit 1;
 }
-
-$pretend = "" if !$pretend;
-
-# print "supplied parameters: $exp_id $class_id $pretend\n";
 
 my $ipprc =  PS::IPP::Config->new();
@@ -97 +93 @@
     }
 } else {
-    print "No good instances of $uri found. To fix run:\n";
     my $cmd = "regtool -dbname $dbname -updateprocessedimfile -set_ignored -exp_id $exp_id -class_id $class_id\n";
-    print "$cmd\n";
+    print "No good instances of $uri found. ";
+    if ($repair_lost) {
+        print "Executing: ";
+    } else {
+        print "To fix run:\n";
+    }
+    print "\t$cmd\n";
     if ($repair_lost) {
         $fixed = 1;