Index: /trunk/tools/repair_bad_instance
===================================================================
--- /trunk/tools/repair_bad_instance	(revision 33196)
+++ /trunk/tools/repair_bad_instance	(revision 33197)
@@ -10,4 +10,5 @@
 use PS::IPP::Metadata::Config;
 use PS::IPP::Config 1.01 qw( :standard );
+use File::Basename;
 
 my $dbname = 'gpc1';
@@ -16,5 +17,4 @@
 my ( $exp_id,
      $class_id,
-     $pretend,
      $repair_lost,
      $go,
@@ -28,5 +28,4 @@
 	   'repair|r'       => \$go,
            'repair-lost|l'  => \$repair_lost,
-	   'pretend'        => \$pretend,
 ) or pod2usage( 2 );
 
@@ -35,11 +34,8 @@
  #           -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,7 +93,12 @@
     }
 } 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;