#!/opt/common/bin/perl

use lib "/opt/spacenet/igpp/perl/IGPP";
use Clinetime;

my $SCRIPT_PATH = "/cache2/THEMIS_weygand/DE2/magnetic_fields_magb/gms_62ms_vmsbin/scripts";

if (! @ARGV) {
  print "Usage: de2_maga.pl <VAX binary file(s)>\n";
  exit();
}

my @BinFiles = @ARGV;

foreach my $BinFile (@BinFiles) {
  my @BinFile = split /_/, $BinFile;
  my $AscFile = sprintf "de2_%s_%s_%s.dat", $BinFile[2], substr($BinFile[4], 0, 4), substr($BinFile[0], 2);
  print "mp bp=$SCRIPT_PATH/de2_mag.bp ifile=$BinFile ofile=ascii/$AscFile\n";
  system("mp bp=$SCRIPT_PATH/de2_mag.bp ifile=$BinFile ofile=ascii/$AscFile");
#  print "gzip ascii/$AscFile\n\n";
#  system("gzip ascii/$AscFile");

}