Changeset 101

Timestamp:

Oct 7, 2003, 11:49:08 PM (23 years ago)

Author:

eugene

Message:

abstracted ccd name/number info

File:

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

trunk/Ohana/src/perl/src/ckvalid

@@ -35 +35 @@
 $runid = "none";
 
+# load ccd config information
+@ccdn   = split (" ", `cameraconfig -ccdn`); if ($?) { &goodbye ("ERROR in cameraconfig"); }
+@ccds   = split (" ", `cameraconfig -ccds`); if ($?) { &goodbye ("ERROR in cameraconfig"); }
+
 # determine image mode (SPLIT / MEF / SINGLE)
 $mode = ckimmode ($name);
@@ -55 +59 @@
 # create the name of a real file:
 if ($mode eq SPLIT) {
-    $tmpname = "$name/$root" . "00.fits";
+    $tmpname = sprintf "%s/%s%s.fits", $name, $root, $ccdn[0];
 } else {
     $tmpname = $name;
@@ -106 +110 @@
 if ($mode eq "SPLIT") {
     # we only need the name of an single representative file on disk
-    $tmpname = sprintf "%s/%s%02d.fits", $name, $root, 0;
+    $tmpname = sprintf "%s/%s%s.fits", $name, $root, $ccdn[0];
 } else {
     $tmpname = $name;
@@ -118 +122 @@
 
 # check on PHOTOMETRY
-$answer = `ckphotom $tmpname 00 $mode`;
+$answer = `ckphotom $tmpname $ccds[0] $mode`;
 if ($?) {
     if ($VEROSE) { print STDERR "photom failed: $answer\n"; }