Changeset 33

Timestamp:

Feb 14, 2003, 1:51:00 AM (23 years ago)

Author:

eugene

Message:

added abstract ccd names for megacam

File:

• trunk/Ohana/src/perl/src/imstatqso (modified) (2 diffs)

trunk/Ohana/src/perl/src/imstatqso

@@ -16 +16 @@
 if (@ARGV != 3) { die "USAGE: imstatqso (name) (stats) (sdat)\n"; }
 
-$line = `echo $ARGV[0] | fields IMAGEID`;
+$ccdkeyword = `gconfig CCDNUM-KEYWORD`; chop ($ccdkeyword);
+if ($?) { die "ERROR: missing CCDNUM-KEYWORD in config system\n"; } 
+
+$refccd = `gconfig SEEING_REF_CCD`; chop ($refccd);
+if ($?) { die "ERROR: missing SEEING_REF_CCD in config system\n"; } 
+
+$pixscale = `gconfig ASEC_PIX`; chop ($pixscale);
+if ($?) { die "ERROR: missing ASEC_PIX in config system\n"; } 
+
+$line = `echo $ARGV[0] | fields $ccdkeyword`;
 ($tmp, $ccd) = split (" ", $line);
 
-if ($ccd != 3) {
+if ($ccd ne $refccd) {
     print STDOUT "SUCCESS: skipping ccd $ccd\n";
     exit 0;
@@ -50 +59 @@
 $fwhm = `seeingstats $ARGV[2]`; 
 chop ($fwhm);
-$fwhm = $fwhm * 0.2;
+$fwhm = $fwhm * $pixscale;
 
 # if this is a BIAS, send just the bias for skybg