#!/usr/bin/perl5 -w

umask 0002;

# this gets checked into /CM/scripts

$six = $ARGV[0];
$last = $ARGV[1];

$SYNOPDIR = "/synoptic/arge";

$path = $ENV{'PATH'};
$ENV{'PATH'} = "/home/jeneen/STAGING/bin/_sgi4:$path";
$ENV{'IDL_DIR'} = "/usr/local/bin/idl";

open(PEQ, "/CM/bin/_sgi4/peq -A -w prog:mdi,level:lev1.8,series:fdM6h_06h[$six]|") || warn "$!\n";
while (<PEQ>) {
    if (/^in_(\d+)_wd/) {
	($foo, $foo, $dir) = split;
	chomp($dir);
        print "$dir\n";
	system("mkdir $SYNOPDIR/fdM6h_06h/fdM6h_06h.0$six");
	system("rm -rf $SYNOPDIR/fdM6h_06h/fdM6h_06h.0$six/*");
	system("cp $dir/* $SYNOPDIR/fdM6h_06h/fdM6h_06h.0$six");
	system("mkdir $SYNOPDIR/fd_Mag_remap_06h/fd_Mag_remap_06h.0$six");
	system("rm -rf $SYNOPDIR/fd_Mag_remap_06h/fd_Mag_remap_06h.0$six/*");
        system("rm $SYNOPDIR/fd_Mag_remap_small_06h/fd_Mag_remap_small_06h.0$six");
	system("mkdir $SYNOPDIR/fd_Mag_remap_small_06h/fd_Mag_remap_small_06h.0$six");
	system("rm -rf $SYNOPDIR/fd_Mag_remap_small_06h/fd_Mag_remap_small_06h.0$six/*");
	system("/CM/bin/_sgi4/v2helio z=1 MOFFSET=1 VCORLEV=0 MAPRMAX=0.994 MAPLGMAX=89.75 MAPLGMIN=-89.75 MAPBMAX=90 LGSHIFT=2 MAPMMAX=1800 SINBDIVS=540 in=$SYNOPDIR/fdM6h_06h/fdM6h_06h.0$six/ out=$SYNOPDIR/fd_Mag_remap_06h/fd_Mag_remap_06h.0$six/");
	system("/home/jeneen/STAGING/bin/_sgi4/rebin_vds nx=359 ny=360 in=$SYNOPDIR/fd_Mag_remap_06h/fd_Mag_remap_06h.0$six/ out=$SYNOPDIR/fd_Mag_remap_small_06h/fd_Mag_remap_small_06h.0$six/");
	system("/CM/bin/_sgi4/eofsynop qualmask=0x402c01f2 in=$SYNOPDIR/fd_Mag_remap_small_06h/fd_Mag_remap_small_06h.0$six/ new=$SYNOPDIR/fits/Arge_synop.0$six.fits old=$SYNOPDIR/fits/Arge_synop.0$last.fits");
#        system("/CM/bin/_sgi4/eofsynop qualmask=0x402c01f2 update=0 in=$SYNOPDIR/fd_Mag_remap_small_06h/fd_Mag_remap_small_06h.0$six/ new=$SYNOPDIR/fits/Arge_synop.0$six.fits");
        system("rm -rf $SYNOPDIR/fd_Mag_remap_06h/fd_Mag_remap_06h.0$six/*");
        system("rmdir $SYNOPDIR/fd_Mag_remap_06h/fd_Mag_remap_06h.0$six/");
#        system("ingest -pa archive_hold=5 in=$SYNOPDIR/fd_Mag_remap_small_06h/fd_Mag_remap_small_06h.0$six/ out=prog:mdi_eof,level:remap,series:fd_Mag_360_06h\[$six]");
    }
}
close(PEQ);