#!/usr/bin/perl
#

$filter = "";
$filter_lc = lc($filter);
$filter_uc = uc($filter);

@files = glob("hs2331-???$filter.pht");

$cmd  = "/home/richmond/spiff2012/home/richmond/tass/ensemble/multipht ";
$cmd .= " x=1 y=2 mag=11 err=12 jd=14 ";
$cmd .= " outfile=multi6_" . $filter_lc . ".out ";
$cmd .= " matchrad=3 ";
#$cmd .= " template=HS2331-250.pht ";
foreach $file (@files) {
  $cmd .= " $file ";
}

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

#$ret = `$cmd`;
#printf "ret is ..$ret.. \n";


exit 0;
