#! /usr/local/bin/perl -w

if ($ARGV[0] eq "mag" ) {
  open (IN, "latestHMImag.info");
  open ( OUT, ">latestHMImag.info2");
} elsif ($ARGV[0] eq "int") {
  open (IN, "latestHMIint.info");
  open ( OUT, ">latestHMIint.info2");
} elsif ($ARGV[0] eq "dop") {
  open (IN, "latestHMIdop.info");
  open ( OUT, ">latestHMIdop.info2");
} elsif ($ARGV[0] eq "ld") {
  open (IN, "latestHMILd.info");
  open ( OUT, ">latestHMILd.info2");
} elsif ($ARGV[0] eq "lw") {
  open (IN, "latestHMILw.info");
  open ( OUT, ">latestHMILw.info2");
}

if ( ($ARGV[0] eq "dop") || ($ARGV[0] eq "ld") || ($ARGV[0] eq "lw") ) {

  while ( <IN> ) {
    ($foo,$foo,$TREC,$foo,$CROTA2,$foo,$RSUNOBS,$foo,$CRPIX1,$foo,$CRPIX2,$foo,$CDELT1,$foo,$CDELT2,$foo,$OBSVR,$foo,$foo,$foo,$FILE) = split(/[\[\]]/, $_);
    $TREC =~ s/"/'/g;
    $CROTA2 =~ s/"//g;
    $RSUNOBS =~ s/"/'/g;
    $CRPIX1 =~ s/"//g;
    $CRPIX2 =~ s/"//g;
    $CDELT1 =~ s/"//g;
    $CDELT2 =~ s/"//g;
    $OBSVR =~ s/"//g;
    $FILE =~ s/"/'/g;
    $FILE =~ s/\\//g;
    print OUT "TREC=$TREC\nCROTA2=$CROTA2\nRSUNOBS=$RSUNOBS\nCRPIX1=$CRPIX1\nCRPIX2=$CRPIX2\nCDELT1=$CDELT1\nCDELT2=$CDELT2\nOBSVR=$OBSVR\nFILE=$FILE\n";
  }
} else {
  while ( <IN> ) {
    ($foo,$foo,$TREC,$foo,$CROTA2,$foo,$RSUNOBS,$foo,$CRPIX1,$foo,$CRPIX2,$foo,$CDELT1,$foo,$CDELT2,$foo,$foo,$foo,$FILE) = split(/[\[\]]/, $_);
    $TREC =~ s/"/'/g;
    $CROTA2 =~ s/"//g;
    $RSUNOBS =~ s/"/'/g;
    $CRPIX1 =~ s/"//g;
    $CRPIX2 =~ s/"//g;
    $CDELT1 =~ s/"//g;
    $CDELT2 =~ s/"//g;
    $FILE =~ s/"/'/g;
    $FILE =~ s/\\//g;
    print OUT "TREC=$TREC\nCROTA2=$CROTA2\nRSUNOBS=$RSUNOBS\nCRPIX1=$CRPIX1\nCRPIX2=$CRPIX2\nCDELT1=$CDELT1\nCDELT2=$CDELT2\nFILE=$FILE\n";
  }
}
close IN;
close OUT;