Changeset 38

Timestamp:

Feb 14, 2003, 1:53:56 AM (23 years ago)

Author:

eugene

Message:

ccd name / number abstractions

File:

• trunk/Ohana/src/perl/src/fr.detrend (modified) (1 diff)

trunk/Ohana/src/perl/src/fr.detrend

@@ -23 +23 @@
 $Nccd = `cameraconfig -Nccd`; chop ($Nccd);
 if ($Nccd != @outlist) { die "ERROR: mis-matched number of images\n"; }
-$answer  = `cameraconfig -ccds`;
-@ccds    = split (" ", $answer);
+@ccds    = split (" ", `cameraconfig -ccds`);
+if ($?) { die "ERROR: cameraconfig error\n"; }
+@ccdn    = split (" ", `cameraconfig -ccdn`);
+if ($?) { die "ERROR: cameraconfig error\n"; }
 
 # run flatten.flips for each input and output image:
 for ($ccd = 0; $ccd < $Nccd; $ccd++) {
     
-    $infile  = mk_filename ($path, $root, $mode, $ccds[$ccd]);
+    $infile  = mk_filename ($path, $root, $mode, $ccdn[$ccd]);
     $outfile = $outlist[$ccd];