#!/usr/bin/perl
#

#$target = "pnv1915_";
$target = "jup_";
#$target = "ngc6418_";
$filter = "V";
$filter_lc = lc($filter);
$filter_uc = uc($filter);
$aper = "5";

@files = glob($target . $filter_lc . "*.pht");

$cmd  = "/old_spiff/home/richmond/tass/ensemble/multipht ";
if ($aper eq "3") {
  $cmd .= " x=1 y=2 mag=5 err=6 jd=12 ";
}
elsif ($aper eq "4") {
  $cmd .= " x=1 y=2 mag=7 err=8 jd=12 ";
}
elsif ($aper eq "5") {
  $cmd .= " x=1 y=2 mag=9 err=10 jd=12 ";
}
else {
  printf " invalid aper $aper \n";
  exit(1);
}
#$cmd .= " template=uzboo_clear-004.pht ";
#$cmd .= " outfile=multi3_" . $filter_lc . ".out ";
$cmd .= " outfile=multi_" . $target . $aper . "_" . $filter_lc . ".out ";
$cmd .= " matchrad=10 ";
foreach $file (@files) {
  $cmd .= " $file ";
}

printf "cmd is ..$cmd.. \n";

exec($cmd);
#printf "ret is ..$ret.. \n";


exit 0;