Changeset 29330 for trunk/pstamp/scripts/pstamp_finish.pl

Timestamp:

Oct 5, 2010, 3:35:07 PM (16 years ago)

Author:

bills

Message:

various postage stamp server fixes

File:

• trunk/pstamp/scripts/pstamp_finish.pl (modified) (2 diffs)

trunk/pstamp/scripts/pstamp_finish.pl

@@ -191 +191 @@
             my $filter = $job_params->{filter};
             $filter = "0" if !$filter;
-            $exp_info = "0|0|0|$filter|0|0";
+            my $mjd_obs = $job_params->{mjd_obs};
+            $mjd_obs = "0" if !$mjd_obs;
+            $exp_info = "$mjd_obs|0|0|$filter|0|0";
         }
 
@@ -477 +479 @@
     my $ticks = timegm($sec, $min, $hr, $day, $mon-1, $year-1900);
 
+    # dateobs is UTC convert to TAI
+    # XXX: Do this properly
+    if ($year >= 2009) {
+        $ticks += 34;
+    } else {
+        $ticks += 33;
+    }
+
     return 40587.0 + ($ticks/86400.);
 }