Changeset 35933

Timestamp:

Aug 13, 2013, 1:46:49 PM (13 years ago)

Author:

bills

Message:

Add keywords DVOCALIB and UBERCALEXP

File:

• tags/ipp-20130712/pstamp/scripts/psgetcalibinfo (modified) (1 diff, 1 prop)

tags/ipp-20130712/pstamp/scripts/psgetcalibinfo

@@ -75 +75 @@
     }
 }
+
+
+my $OUT;
+if ($output eq '-') {
+    $OUT = *STDOUT;
+} else {
+    open $OUT, ">$output" or die "failed to open $output for writing\n";
+}
+
 if (!$relexp) {
-    print "Failed to find calibration information for camRun: $cam_id\n";
+    print STDERR "Failed to find calibration information for camRun: $cam_id\n";
+    print $OUT "DVOCALIB     STR         F # exposure not calibrated with DVO\n";
     exit 0;
 }
 
-open OUT, ">$output" or die "failed to open $output for writing\n";
+my $ubercal_exp = ($relexp->{flags} & 0x200) ? "T # exposure has ubercal zero point" : "F # exposure does not have ubercal zero point";
 
-print OUT "ZPCALIB      F32         $relexp->{zpt_obs} # calibrated zero point\n";
-print OUT "ZPCALERR     F32         $relexp->{zpt_stdev} # calibrated zero point error - 0 for ubercal exposure\n";
-print OUT "MCAL         F32         $relexp->{mcal} # zero point offset due to clouds\n";
-print OUT "DVOFLAGS     U32         $relexp->{flags} # dvo flags - 512 is ubercal bit\n";
-print OUT "UCALDIST     S32         $relexp->{ubercal_dist} # distance to ubercal image\n";
-print OUT "DVODB        STR         $relexp->{dvodb} # dvo database used for calibration \n";
-print OUT "UCALFILE     STR         $relexp->{ubercal_file} # ubercal file used for calibration\n";
-print OUT "CALDATE      STR         $relexp->{time_stamp} # time of calibration\n";
-print OUT "PSREL        STR         $relexp->{release_name} # PS release name\n";
+print $OUT "DVOCALIB     STR         T # exposure calibrated with DVO\n";
+print $OUT "ZPCALIB      F32         $relexp->{zpt_obs} # calibrated zero point\n";
+print $OUT "ZPCALERR     F32         $relexp->{zpt_stdev} # calibrated zero point error - 0 for ubercal exposure\n";
+print $OUT "MCAL         F32         $relexp->{mcal} # zero point offset due to clouds\n";
+print $OUT "UCALEXP      STR         $ubercal_exp\n";
+print $OUT "DVOFLAGS     U32         $relexp->{flags} # dvo flags\n";
+print $OUT "UCALDIST     S32         $relexp->{ubercal_dist} # distance to ubercal image\n";
+print $OUT "DVODB        STR         $relexp->{dvodb} # dvo database used for calibration \n";
+print $OUT "UCALFILE     STR         $relexp->{ubercal_file} # ubercal file used for calibration\n";
+print $OUT "CALDATE      STR         $relexp->{time_stamp} # time of calibration\n";
+print $OUT "PSREL        STR         $relexp->{release_name} # PS release name\n";
 
-close OUT or die "failed to close $output\n";
+close $OUT or die "failed to close $output\n";