Changeset 26100 for trunk/ippScripts/scripts/addstar_run.pl

Timestamp:

Nov 12, 2009, 1:17:51 PM (16 years ago)

Author:

Paul Price

Message:

Fixing argument.

File:

• trunk/ippScripts/scripts/addstar_run.pl (modified) (2 diffs)

trunk/ippScripts/scripts/addstar_run.pl

@@ -104 +104 @@
     if (defined $dvodbReal) {
 
-        ## addstar can either save the full set of detections, or just
-        ## the image metadata, in the dvodb.  this is set in the
-        ## database table addRun
-        
-        # addstar requires the user to have a valid .ptolemyrc which
-        # in turn points at ippconfig/dvo.site
+        ## addstar can either save the full set of detections, or just
+        ## the image metadata, in the dvodb.  this is set in the
+        ## database table addRun
 
-        # get the names for the camera and the real input file
-        my $camdir = $ipprc->dvo_cameradir(); # Camera directory for addstar
-        my $realFile = $ipprc->file_resolve($fpaObjects);
+        # addstar requires the user to have a valid .ptolemyrc which
+        # in turn points at ippconfig/dvo.site
 
-        # require a defined output dvo database to run addstar (ie, refuse to use the .ptolemyrc default)
-        my $command  = "$addstar -update"; # XXX optionally set -update?
-        $command .= " -D CAMERA $camdir";
-        $command .= " -D CATDIR $dvodbReal";
-        $command .= " $realFile";
-        $command .= " -use-name $fpaObjects"; # DVO wants the neb-name as a file reference
-        $command .= " -image" if $image_only;
-        
-        my $mjd_addstar_start = DateTime->now->mjd;   # MJD of starting script
-        
-        my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-            run(command => $command, verbose => $verbose);
-        unless ($success) {
-            $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
-            &my_die("Unable to perform addstar: $error_code", $add_id, $error_code);
-        }
-        $dtime_addstar = 86400.0*(DateTime->now->mjd - $mjd_addstar_start);   # MJD of starting script
+        # get the names for the camera and the real input file
+        my $camdir = $ipprc->dvo_cameradir(); # Camera directory for addstar
+        my $realFile = $ipprc->file_resolve($fpaObjects);
+
+        # require a defined output dvo database to run addstar (ie, refuse to use the .ptolemyrc default)
+        my $command  = "$addstar -update"; # XXX optionally set -update?
+        $command .= " -D CAMERA $camdir";
+        $command .= " -D CATDIR $dvodbReal";
+        $command .= " $realFile";
+        $command .= " -use-name $fpaObjects"; # DVO wants the neb-name as a file reference
+        $command .= " -image" if $image_only;
+
+        my $mjd_addstar_start = DateTime->now->mjd;   # MJD of starting script
+
+        my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
+            run(command => $command, verbose => $verbose);
+        unless ($success) {
+            $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
+            &my_die("Unable to perform addstar: $error_code", $add_id, $error_code);
+        }
+        $dtime_addstar = 86400.0*(DateTime->now->mjd - $mjd_addstar_start);   # MJD of starting script
     }
 }
@@ -166 +166 @@
     carp($msg);
     if (defined $add_id and not $no_update) {
-# This needs to be updated when addtool is written. BROKEN
         my $command = "$addtool -add_id $add_id";
-        $command .= " -addprocessedexp";
-        $command .= " -fault $exit_code";
-        $command .= " -path_base $outroot" if defined $outroot;
-        $command .= (" -dtime_script " . ((DateTime->now->mjd - $mjd_start) * 86400));
+        $command .= " -addprocessedexp";
+        $command .= " -fault $exit_code";
+        $command .= " -path_base $outroot" if defined $outroot;
+        $command .= (" -dtime_addstar " . ((DateTime->now->mjd - $mjd_start) * 86400));
         $command .= " -dbname $dbname" if defined $dbname;
         system ($command);