Changeset 19971

Timestamp:

Oct 7, 2008, 4:31:47 PM (18 years ago)

Author:

eugene

Message:

adding dtime_script, dtime_addstar

File:

• trunk/ippScripts/scripts/camera_exp.pl (modified) (5 diffs)

trunk/ippScripts/scripts/camera_exp.pl

@@ -137 +137 @@
         $cmdflags .= " $line";
     }
+    chomp $cmdflags;
 }
 
@@ -193 +194 @@
 }
 
+my $dtime_addstar = 0;
 
 unless ($no_op) {
@@ -308 +310 @@
             $command .= " $realFile";
 
+            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);
@@ -314 +318 @@
                 &my_die("Unable to perform addstar: $error_code", $cam_id, $error_code);
             }
-        }
-    }
-}
+            $dtime_addstar = 86400.0*(DateTime->now->mjd - $mjd_addstar_start);   # MJD of starting script
+        }
+    }
+}
+
+my $dtime_script = (DateTime->now->mjd - $mjd_start) * 86400;
 
 my $fpaCommand = "$camtool -cam_id $cam_id";
@@ -325 +332 @@
     $fpaCommand .= " $cmdflags";
     $fpaCommand .= " -hostname $host" if defined $host;
-    $fpaCommand .= (" -dtime_script " . ((DateTime->now->mjd - $mjd_start) * 86400));
+    $fpaCommand .= " -dtime_script $dtime_script";
+    $fpaCommand .= " -dtime_addstar $dtime_addstar";
 } else {
     $fpaCommand .= " -updaterun -state full";