#!/usr/bin/perl -w use CGI qw(:cgi); use CGI::Carp qw(fatalsToBrowser); print "Content-type: text/html\n\n"; ### Global Variables ### @month_abbr = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec ); @month_long = qw( January February March April May June July August September October November December ); @days_abbr = qw( Sun Mon Tue Wed Thu Fri Sat ); #@days_long = qw( Sunday Monday Tuesday Wednesday Thursday Friday Saturday ); $jandays = $mardays = $maydays = $juldays = $augdays = $octdays = $decdays = 31; $sepdays = $aprdays = $jundays = $novdays = 30; $febdays = 28; @thismonth = qw( $jandays $febdays $mardays $aprdays $maydays $jundays $augdays $sepdays $octdays $novdays $decdays ); ################### ##### Main Routine ##### ################### &head; $thisyear = 2002; yeartable($thisyear); for ($x = 1; $x < 4; $x++) { &month_top($x); &meat($x, $thisyear); } print "\n"; yeartable($thisyear + 1); for ($x = $x; $x < 7; $x++) { &month_top($x); &meat($x, $thisyear); } print "\n"; for ($x = $x; $x < 10; $x++) { &month_top($x); &meat($x, $thisyear); } print "\n"; for ($x = $x; $x < 13; $x++) { &month_top($x); &meat($x, $thisyear); } print "\n"; ###################### ##### End Main Routine ##### ###################### sub head { # Opens the master table, too print "\n"; print "\n"; print "Bettendorf Stanford Inc. [Employee Calendar]\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "Employee Calendar\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; } sub month_top { print "\n"; } ##### Close off the file ##### print "\n"; print "\n"; print "\n"; print "
\n"; } sub yeartable { $year = $_[0]; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
", $year, "
\n"; my $count = 0; foreach (@month_abbr) { $count++; print ""; print $_; print "
\n"; } print "\n"; print "
\n"; print "		\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; for (0..6) { print "\n"; } } sub meat { $days = $thismonth[$_[0]]; for (1..$days) { print "\n"; } print "\n"; print "
",$month_long[$_[0]-1],"
",$days_abbr[$_],""; print $_[0]; print ""; print "
\n"; print "\n"; print "
\n"; print "\n"; print "\n"; print "\n";