Changeset 39

Timestamp:

Feb 14, 2003, 1:55:17 AM (23 years ago)

Author:

eugene

Message:

convert to flips2, perl

File:

• trunk/Ohana/src/perl/src/fr.getfringe (modified) (2 diffs)

trunk/Ohana/src/perl/src/fr.getfringe

@@ -5 +5 @@
 if ($ARGV[0] eq "-help") { usage (); }
 if (@ARGV != 3) { die "USAGE: fr.getfringe (inlist) (binning) (output)\n" }
-
-# define the path to include FLIPS:
-$flipsconf=`gconfig -q FLIPSCONF`; chop $flipsconf;
-$flipspath=`gconfig -q FLIPSPATH`; chop $flipspath;
-$ENV{'PATH'} = "$ENV{'PATH'}:$flipspath";
-$ENV{'FLIPSDIR'} = $flipsconf;
 
 # assign the command line arguments
@@ -28 +22 @@
 # basic camera data
 $Nccd      = `cameraconfig -Nccd`;  chop $Nccd;
-$answer    = `cameraconfig -ccds`;  @ccds = split (" ", $answer); 
 if ($Nccd != @inlist) { die "ERROR: mis-matched image list sizes\n"; }
+@ccds = split (" ", `cameraconfig -ccds`); 
+if ($?) { die "ERROR: cameraconfig error\n"; }
 
 # find fringe coordinate file
-$coordfile = `detsearch -image $inlist[0] $ccds[0] split -type frpts`; chop $coordfile;
+$coordfile = `detsearch -quiet -image $inlist[0] $ccds[0] split -type frpts`; chop $coordfile;
 if ($?) { die "ERROR: can't find fringe point file for this image\n"; }
 
 # each call to getfringe adds a line to $output 
 for ($ccd = 0; $ccd < $Nccd; $ccd++) {
-    vsystem ("getfringe $inlist[$ccd] $ccds[$ccd] $coordfile $bin $output");
+    vsystem ("getfringe $inlist[$ccd] $ccds[$ccd] $coordfile $bin >> $output");
     if ($?) { die "ERROR running getfringe\n"; }
 }