Changeset 33196

Timestamp:

Feb 2, 2012, 9:32:41 AM (14 years ago)

Author:

bills

Message:

Add new option --repair-lost which causes lost rawImfile to be set to ignored.
Don't do that with -r

File:

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

trunk/tools/repair_bad_instance

@@ -17 +17 @@
      $class_id,
      $pretend,
+     $repair_lost,
      $go,
      );
@@ -26 +27 @@
            'class_id|c=s'   => \$class_id,
            'repair|r'       => \$go,
+           'repair-lost|l'  => \$repair_lost,
            'pretend'        => \$pretend,
 ) or pod2usage( 2 );
@@ -50 +52 @@
 my $file = $stmt->fetchrow_hashref();
 
+if (!$file) {
+    print STDERR "failed to find rawImfile for $exp_id $class_id\n";
+    exit 1;
+}
 my $uri = $file->{uri};
 my $ignored = $file->{ignored};
+
+if (!$uri) {
+    print STDERR "failed to find uri for $exp_id $class_id\n";
+    exit 1;
+}
 
 my $output = `neb-locate -p -a $uri`;
 
 if (!$output) {
-    die "failed to locate any instances for $uri\n";
+    print STDERR "WARNING failed to locate any instances for $uri\n";
 }
 
@@ -89 +100 @@
     my $cmd = "regtool -dbname $dbname -updateprocessedimfile -set_ignored -exp_id $exp_id -class_id $class_id\n";
     print "$cmd\n";
-    if ($go) {
+    if ($repair_lost) {
         $fixed = 1;
         system $cmd;