#!/usr/bin/perl
#---------------------------------------------------------------------------------#
# This script splits the acf files into separate files for each MCM group
# April 2003 HvH
#---------------------------------------------------------------------------------#
$ONLINE_CONFIGURATION = $ENV{ONLINE_CONFIGURATION};
$ARCNET_DATA = "$ONLINE_CONFIGURATION/Arcnet";
$path = "$ARCNET_DATA/mvd/acf/";

print (" Program to split ACF files.  \n");
print ("Give ACF file name; Choices are:      \n");

@names = qw/ mvd_dcim_fpga.acf mvd_mcm_read_serial.acf mvd_tcim_check_glink.acf 
             mvd_mcm_fpga.acf mvd_mcm_serial_run.acf /;
for ($i=1; $i<=5; $i++){
  print ("     $i:   $names[$i-1] \n");
}
print(" choose 1-5: ");
$choice = <STDIN>;
if ($choice==2 || $choice==4 || $choice==5 ) {
  $infile = $names[$choice-1];
}
elsif ($choice == 1 || $choice == 3 ) {
  die "\n DCIM, TCIM downloads not MCM group-splittable \n";
}
else { die "\n bad choice - try again \n";}

#$infile =  "mvd_mcm_serial_run.acf";   # hardwire name
$type = substr($infile,3);
print ("type: $type \n\n");
unless(open INPUT , $path.$infile) { die " Can't open acf file: $path$infile - abort";}
open OUTFILE, ">dummy.tmp";

@lines = <INPUT>;                        # read the whole web page
foreach (@lines){                        # loop over lines
  if ( ($_ =~ m%//%) && ($_ =~ m%-%) ){  # search for // and -
    close OUTFILE;
    $fileout = substr($_,3,5).$type;
    $fileout = "\L$fileout";             # to lowercase 
    print (" $fileout \n");
    $fileout2 = "none";
    if ($_ =~ m%and%){
      $fileout2 = substr($_,13,5).$type;
      $fileout2 = "\L$fileout2";             # to lowercase 
      print (" 2nd file: $fileout2 \n");
    }
    open   OUTFILE,  ">$fileout";
    if ($fileout2 ne "none"){
      print ("                opening 2nd file\n");
      open OUTFILE2, ">$fileout2";
    }
  }       # end search for //
  print OUTFILE ("$_");
  if ($fileout2 ne "none"){
    print OUTFILE2 ("$_");
  }
}         # end foreach read lines
close OUTFILE;
close OUTFILE2;
close INPUT;

#===================================================================================#