Changeset 26290

Timestamp:

Nov 29, 2009, 3:18:43 PM (16 years ago)

Author:

bills

Message:

Add program that given a dvo database, smf file, or tess_id figures
out which image a given point is contained in. Uses dvoImagesAtCoords to do the real
work.

Location:

trunk/ippScripts

Files:

• Build.PL (modified) (1 diff)
• scripts/magic_destreak_revert.pl (modified) (1 diff)
• scripts/whichimage (added)

trunk/ippScripts/Build.PL

@@ -98 +98 @@
         scripts/rcserver_checkstatus.pl
         scripts/publish_file.pl
+        scripts/whichimage
     )],
     dist_abstract => 'Scripts for running the Pan-STARRS IPP',

trunk/ippScripts/scripts/magic_destreak_revert.pl

@@ -389 +389 @@
     $exit_code = $PS_EXIT_PROG_ERROR unless defined $exit_code;
 
-    # we wouldn't be here unless an entry already exists in the database
-#    my $command = "$magicdstool -adddestreakedfile";
-#    $command   .= " -magic_ds_id $magic_ds_id";
-#    $command   .= " -component $component";
-#    $command   .= " -fault $exit_code";
-#    $command   .= " -dbname $dbname" if defined $dbname;
-
-#    # Add the processed file to the database
-#    unless ($no_update) {
-#        my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-#            run(command => $command, verbose => $verbose);
-#        unless ($success) {
-#            carp("failed to update database for $magic_ds_id $component");
-#        }
-#    } else {
-#        print "Skipping command: $command\n";
-#    }
-
-    carp($msg);
+    # fault the whole run if one of the components fails to revert
+    my $command = "$magicdstool -updaterun";
+    $command   .= " -magic_ds_id $magic_ds_id";
+    $command   .= " -fault $exit_code";
+    $command   .= " -dbname $dbname" if defined $dbname;
+
+    # Add the processed file to the database
+    unless ($no_update) {
+        my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
+            run(command => $command, verbose => $verbose);
+        unless ($success) {
+            carp("failed to update database for $magic_ds_id $component");
+        }
+    } else {
+        print "Skipping command: $command\n";
+    }
+
     exit $exit_code;
 }