Index: /trunk/Ohana/src/perl/src/ckimregdb
===================================================================
--- /trunk/Ohana/src/perl/src/ckimregdb	(revision 39)
+++ /trunk/Ohana/src/perl/src/ckimregdb	(revision 40)
@@ -10,4 +10,6 @@
 # imsearch and ardrange12k have different default hr:mn:sc values
 # this script converts to the ardrange12k defaults: 12:00:00
+
+# WARNING: define a ref CCD for seeing
 
 # test for current camera?
@@ -29,9 +31,12 @@
 }
 
+@ccds = split (" ", `cameraconfig -ccds`);
+if ($?) { &escape ("error with elixir camera configuration"); }
+
 @archive = split (" ", $answer);
 $N = @archive;
 print "archive: $N files\n";
 
-@imregdb = `imsearch -ccd 0 -trange $start $range -tz 10.0`;
+@imregdb = `imsearch -ccd $ccds[0] -trange $start $range -tz 10.0`;
 $N = @imregdb;
 print "imregdb: $N files\n";
@@ -62,4 +67,5 @@
 foreach $file (@missing) {
 
+    print STDERR "link: $file\n";
     $arcfile  = sprintf "%s/%s", $archive, $file;
     $linkfile = sprintf "%s/%s", $linkdir, $file;
@@ -91,6 +97,6 @@
 
 # generate table of images which can be sent to CADC, mark as distributed:
-system ("imsearch -ccd 3 -trange $start $stop -proc t -dist f -cadctable cadc.fits");
-system ("imsearch -ccd 3 -trange $start $stop -proc t -dist f -modify dist t");
+system ("imsearch -ccd $ccds[3] -trange $start $stop -proc t -dist f -cadctable cadc.fits");
+system ("imsearch -ccd $ccds[3] -trange $start $stop -proc t -dist f -modify dist t");
 
 # utilities ############################
Index: /trunk/Ohana/src/perl/src/fr.imdata
===================================================================
--- /trunk/Ohana/src/perl/src/fr.imdata	(revision 39)
+++ /trunk/Ohana/src/perl/src/fr.imdata	(revision 40)
@@ -22,16 +22,11 @@
 
 # abstract header keywords
-$datekwd = `gconfig -q DATE-KEYWORD`; chop ($datekwd);
-$timekwd = `gconfig -q UT-KEYWORD`; chop ($timekwd);
-$obsidkwd = `gconfig -q ID-KEYWORD`; chop ($obsidkwd);
-$exptimekwd = `gconfig -q EXPTIME-KEYWORD`; chop ($exptimekwd);
+($datekwd, $timekwd, $obsidkwd, $exptimekwd) = 
+    split (" ", `gconfig DATE-KEYWORD UT-KEYWORD ID-KEYWORD EXPTIME-KEYWORD`);
+if ($?) { die "ERROR problem with keywords\n"; }
 
-$answer = `echo $list[0] | fields $datekwd $timekwd $obsidkwd $exptimekwd`;
-# need to eventually fix return value of 'fields'
-# if ($?) { die "ERROR problem with fr.imdata\n"; }
-
-# grab interesting data
-($file, $date, $utc, $obsid, $exptime) = split (" ", $answer);
-if ($exptime eq "") { die "ERROR problem with fr.imdata\n"; }
+($file, $date, $utc, $obsid, $exptime) = 
+    split (" ", `echo $list[0] | fields $datekwd $timekwd $obsidkwd $exptimekwd`);
+if ($?) { die "ERROR missing header information\n"; }
  
 open (FILE, ">$imdata");
Index: /trunk/Ohana/src/perl/src/fr.medbin.spline
===================================================================
--- /trunk/Ohana/src/perl/src/fr.medbin.spline	(revision 39)
+++ /trunk/Ohana/src/perl/src/fr.medbin.spline	(revision 40)
@@ -14,6 +14,6 @@
 
 $Nccd = `cameraconfig -Nccd`; chop ($Nccd);
-$answer = `cameraconfig -ccds`;
-@ccds = split (" ", $answer); 
+@ccds = split (" ", `cameraconfig -ccdn`);
+if ($?) { die "ERROR: cameraconfig error\n"; }
 
 if (! -d $meddir) { vsystem ("mkdir -p $meddir"); }