version 1.7, 2013/05/30 14:38:50
|
version 1.9, 2014/03/21 02:55:24
|
Line 42 my %holidays = (
|
Line 42 my %holidays = (
|
"Independence Day" => 'even', |
"Independence Day" => 'even', |
"Labor Day" => 'even', |
"Labor Day" => 'even', |
"Memorial Day" => 'odd', |
"Memorial Day" => 'odd', |
"New Year's Day" => 'even', |
"New Year's Day" => 'odd', |
"New Year's Eve" => 'even', |
"New Year's Eve" => 'odd', |
"Thanksgiving Day" => 'odd', |
"Thanksgiving Day" => 'odd', |
); |
); |
|
|
Line 58 my %weekends = &calcWeekends( @weekend )
|
Line 58 my %weekends = &calcWeekends( @weekend )
|
|
|
my $yr = sprintf( "%d", $post_in{'cy'} ) || ( ( localtime )[5] + 1900 ); |
my $yr = sprintf( "%d", $post_in{'cy'} ) || ( ( localtime )[5] + 1900 ); |
my $YEAR = sprintf( "%d", $yr ); |
my $YEAR = sprintf( "%d", $yr ); |
push @list, 'Easter Sunday' if ( ! $YEAR % 2 ); |
push @list, 'Easter Sunday' if ( $YEAR % 2 == 0 ); |
|
|
print "Content-type: text/html\n\n"; |
print "Content-type: text/html\n\n"; |
print &header( ); |
print &header( ); |