Changeset 43

Timestamp:

Feb 14, 2003, 1:57:09 AM (23 years ago)

Author:

eugene

Message:

add CRUNID / cameraRun to status server

File:

• trunk/Ohana/src/perl/src/mkrun (modified) (4 diffs)

trunk/Ohana/src/perl/src/mkrun

@@ -166 +166 @@
     system ("mkrun sys camera.current $camera");
     system ("mkrun sys runid.current $runid");
+    system ("ssPut /e/state/$camera/cameraRun $runid COMMENT=\"valid current camera run ID (CRUNID)\" LIFETIME=90000");
+    system ("ssPut /e/state/masterRun $runid COMMENT=\"master current camera run ID (CRUNID)\" LIFETIME=90000");
     exit 0;
 }
@@ -205 +207 @@
     $line = grab_runline ($ARGV[1]);
     print STDOUT "$line\n";
-    exit 0;
+    if ($line eq "") { 
+        exit 1;
+    } else {
+        exit 0;
+    }
 }
 
@@ -223 +229 @@
         $mjd_start = date_to_mjd ($start);
         $mjd_stop  = date_to_mjd ($stop);
-        if (($mjd >= $mjd_start) && ($mjd <= $mjd_stop)) { 
+        if (($mjd >= $mjd_start) && ($mjd < $mjd_stop)) { 
             print STDOUT "$line\n";
             exit 0;
@@ -553 +559 @@
 
     ($year, $month, $day) = $date =~ /(\d+)\/(\d+)\/(\d+)/;
+
     $mjd = get_mjd ($year, $month, $day);