#! /usr/local/bin/perl5

use CGI qw/:standard :html3 :netscape/;
use POSIX 'strftime';

$SYNOPDIR = "/synoptic";
$EOFSYNOPDIR = "/synoptic/eof";

### Convert input date & organize output directory variables ###

$input = param('Date');
$today = strftime("%Y.%m.%d",localtime);
$last = `/home/jeneen/STAGING/bin/_sol/time_index -d in=$today` - 1;
$yesterday = `/home/jeneen/STAGING/bin/_sol/time_index -t day=$last`;
$yesterday =~ s/(.*)_(.*)_(.*)/$1/;

if ($input =~ /^\d{4}\.\d{2}\.\d{2}$/) {
  $day = `/home/jeneen/STAGING/bin/_sol/time_index -d in=$input`;
  $date = `/home/jeneen/STAGING/bin/_sol/time_index -t in=$input`;
  $date =~ s/(.*)_(.*)_(.*)/$1/;
  chomp $day;
} elsif ($input =~ /^\d{4}$/) {
  $day = `/home/jeneen/STAGING/bin/_sol/time_index -d in=$input`;
  $date = `/home/jeneen/STAGING/bin/_sol/time_index -t in=$input`;
  $date =~ s/(.*)_(.*)_(.*)/$1/;
  chomp $day;
} else {
  print_date_error();
  exit;
}

$next_day = $day + 1;
$prev_day = $day -1;

if ( ($day < 1216) || ($day > $last) ) {
  print_date_error();
  exit;
}

$mag_ps = "$SYNOPDIR/mag_images/fd_M.$day.gif";
    if ( -e $mag_ps ) {
      $mag_ps_entry = "<a href=http://soi.stanford.edu/magnetic/mag_plots/fd_M.$day.gif><B>96m Thumbnail Images</B></a><br>";
      $picture = img({src=>"http://soi.stanford.edu/magnetic/mag_plots/fd_M.$day.gif",-align=>LEFT,-alt=>'96m Thumbnail Images'});
    } else {
      $mag_ps_entry = "96m Thumbnail Images Not Available<BR>";
      $picture = "";
    }
$mag_dir = "/mag/fd_M_96m_01d.00$day";
    if ( -d $mag_dir ) {
      $mag_dir_entry = "<a href=http://soi.stanford.edu/cgi-bin/mdi/listdir2.pl?Directory=$mag_dir><B>Definintive 96m Data</B></a><BR>"
    } else {
      $mag_dir_entry = "Definitive 96m Data Not Available<BR>"
    }

$remapped_dir = "$SYNOPDIR/mdi/fd_Mag_remap_small_01d/fd_Mag_remap_small_01d.00$day";
$eof_remapped_dir = "$EOFSYNOPDIR/fd_Mag_remap_small_01d/fd_Mag_remap_small_01d.00$day";
    if ( -d $remapped_dir ) {
      $remapped_dir_entry = "<a href=http://soi.stanford.edu/cgi-bin/mdi/listdir3.pl?Directory=$remapped_dir><B>Remapped Images</B></a><BR>"
    } elsif ( -d $eof_remapped_dir ) {
      $remapped_dir_entry = "<a href=http://soi.stanford.edu/cgi-bin/mdi/listdir3.pl?Directory=$eof_remapped_dir><B>Remapped Images</B></a><BR>"
    } else {
      $remapped_dir_entry = "Remapped Images Not Available<BR>"
    }

$syn_mag_dir = "$SYNOPDIR/eof/fd_M_96m_01d/fd_M_96m_01d.00$day";
    if ( -d $syn_mag_dir ) {
      $syn_dir_entry = "<a href=http://soi.stanford.edu/cgi-bin/mdi/listdir2.pl?Directory=$syn_mag_dir><B>Preliminary 96m Data</B></a><BR>"
    } else {
      $syn_dir_entry = "Preliminary Data Not Available<BR>"
    }
$syn_gif = "$SYNOPDIR/mdi/plots/synop.00" . $day . ".gif";
    $entry1 = "<a href=http://soi.stanford.edu/magnetic/$syn_gif><B>(gif)</B></a>"; 
    push @syn_chart_list, $entry1 if ( -e $syn_gif );
$syn_ps_Z = "$SYNOPDIR/mdi/plots/synop.00" . $day . ".ps.Z";
    $entry2 = "<a href=http://soi.stanford.edu/magnetic/$syn_ps_Z><B>(ps.Z)</B></a>";
    push @syn_chart_list, $entry2 if ( -e $syn_ps_Z );
$syn_fits = "$SYNOPDIR/eof/fits/eofsynop.00" . $day . ".fits";
$syn2_fits = "$SYNOPDIR/mdi/fits/mdisynop.00" . $day . ".fits";
    $entry3 = "<a href=http://soi.stanford.edu/magnetic/$syn_fits><B>(fits)</B></a>";
    $entry4 = "<a href=http://soi.stanford.edu/magnetic/$syn2_fits><B>(fits)</B></a>";
    push @syn_chart_list, $entry3 if ( -e $syn_fits );
    push @syn_chart_list, $entry4 if ( -e $syn2_fits );

if ( $#syn_chart_list < 0 ) {
    $syn_chart_entry = "Daily Synoptic Chart<BR>Not Available"
} else {
    $syn_chart_entry = "<B>Daily Synoptic Chart</B><BR>(shift-click on link to download data)<BR>@syn_chart_list"
}

$prev_next_entry = "<a href=http://soi.stanford.edu/cgi-bin/mdi/magday2.pl?Date=$prev_day><B>Previous Day</B></a>&middot;&middot;&middot;<a href=http://soi.stanford.edu/cgi-bin/mdi/magday2.pl?Date=$next_day><B>Next Day</B></a>";    

### Print html table ###

print header,
start_html (-bgcolor=>'white',-title=>"MDI 96m Magnetograms $date"),
  $picture, 
       table({-border=>'2',-width=>300,-cellpadding=>10,-align=>CENTER},
       th(font({-size=>"+1", -color=>"purple"}, "MDI 96m Magnetograms & Synoptic Chart for $date MDI Day $day")),
       Tr({-align=>CENTER}, td["$mag_ps_entry"]),
       Tr({-align=>CENTER}, td["$syn_dir_entry"]),
       Tr({-align=>CENTER}, td["$mag_dir_entry"]),
       Tr({-align=>CENTER}, td["$syn_chart_entry"]),
       Tr({-align=>CENTER}, td["$remapped_dir_entry"]),
       Tr({-align=>CENTER}, td["$prev_next_entry"]),
       Tr({-align=>CENTER}, td["<a href=http://soi.stanford.edu/magnetic/index5.html><B>Back to Magnetic Field Page</B></a>"])
       );
end_html;
 
sub print_date_error {
  print header,
  start_html (-bgcolor=>'white'),
  "<h2><CENTER>Oops...please try again:<BR></h2>",
  "Date must be between 1996.05.01 and yesterday ($yesterday) and must be in <B>yyyy.mm.dd</B> format<BR> ",
  "or must be a <B>valid MDI Mission Day</B> between 1216 and yesterday ($last)</CENTER>",
  hr
  end_html;
}