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

$SYNOPDIR = "/synoptic/eof"; 
$last = `ls -1 $SYNOPDIR/plots/*gif | tail -2 | head -1`;
chomp($last);
`cp -f $last $SYNOPDIR/plots/synop.latest.gif`;
$last = substr($last, 28,4);
print "$last\n";
$last_day = `time_index -t day=$last`;
$last_day = substr($last_day, 0,10);
print "Last day is $last_day\n";
open ( OUT, ">$SYNOPDIR/latest");
print OUT "<INPUT NAME=Date SIZE=10 VALUE=\"$last_day\"></FONT><BR>\n";
close OUT;