#!/usr/bin/perl -w 

use CGI qw(:all) ;

my $today;
my $thismonth;
my $thisyear;


chomp($today = `date +"%-d"`);
chomp($thismonth = `date +"%-m"`);
chomp($thisyear = `date +"%Y"`);
my $cal;
my $dir;

$cgi = CGI->new;
$dir=$cgi->param("dir");
if($cgi->param("today") && $cgi->param("thismonth") && $cgi->param("thisyear"))
{
			if($dir eq "back")
			{
				$today=$cgi->param("today");
				$today=$today-1;
			}	
}

print $cgi->header,$cgi->start_html("$today.$thismonth.$thisyear");
	
print<<HTML;
<table border=1>
<tr>
	<td><form name="input" action="date.cgi" method="POST">
		<input type="hidden" name="today" value="$today">
		<input type="hidden" name="thismonth" value="$thismonth">
		<input type="hidden" name="thisyear" value="$thisyear">
		<input type="hidden" name="dir" value="back">
		<input type="submit" value="Yesterday"></td>
	    </form>
	<td>$today</td>
	<td>$thismonth</td>
	<td>$thisyear</td>
	<td><button type="button">Tomorrow</td>
	<td><button type="button">Set Title</td>
</tr>
</table>
HTML
print $cgi->end_html;