#!/usr/bin/perl -w

use strict;

my @studies = qw(dupI dupII fafb fafc);
my @institutions = qw(arl_cor.cdrom arl_ef.cdrom ef_hist_dev_ang.cdrom ef_hist_dev_anm.cdrom ef_hist_dev_l1.cdrom ef_hist_dev_l2.cdrom ef_hist_dev_md.cdrom ef_hist_dev_ml1.cdrom ef_hist_dev_ml2.cdrom excalibur.cdrom mit_mar_95.cdrom mit_sep_96.cdrom umd_mar_97.cdrom usc_mar_97.cdrom);

my $executable = "ut_score_cms";
my $thisdir = "../score_cms";
my $inputdir = "../input";
my $mapfile = "$inputdir/misc/namemap.lut";

foreach my $study (@studies)
{
   my $probesfile   = "$inputdir/misc/score_$study.probes";
   my $galleryfile  = "$inputdir/misc/score_$study.gallery";
   my $outputdir    = "$thisdir/$study";
   mkdir ($outputdir, 0755) || die "cannot make directory $outputdir" unless -d $outputdir;

   foreach my $i (@institutions)
   {
      my $output = sprintf("%s/cms_%s.txt", $outputdir, instname($i));
      next if -e $output;
      print "making $output\n";
      my $commandline = "$executable  $galleryfile  $probesfile  $inputdir/$i $mapfile > $output";
      system($commandline) && warn "failed on exec of $commandline";
   }
}
exit;

sub instname
{
   my $withcdrom = $_[0];
   my @sanscdrom = split(/\./, $withcdrom);
   return $sanscdrom[0];
}