--- ConnorCalendar/calendar.pl 2013/05/29 03:27:02 1.6 +++ ConnorCalendar/calendar.pl 2016/11/03 12:49:45 1.10 @@ -1,4 +1,4 @@ -#!/usr/bin/perl -wT +#!/usr/bin/perl -w =begin comment info +------------------------------------------------------------------------------ @@ -8,7 +8,7 @@ | | Nicholas DeClario | March 2009 -| $Id: calendar.pl,v 1.6 2013/05/29 03:27:02 nick Exp $ +| $Id: calendar.pl,v 1.10 2016/11/03 12:49:45 nick Exp $ | +------------------------------------------------------------------------------ =end comment @@ -23,10 +23,10 @@ use Getopt::Long; use Pod::Usage; use Data::Dumper; use Calendar::Simple; -use Date::Calendar::Year qw( :all ); -use Date::Calendar::Profiles qw( $Profiles ); +use Date::Pcalendar::Year qw( :all ); +use Date::Pcalendar::Profiles qw( $Profiles ); -my $VERSION = q/$Id: calendar.pl,v 1.6 2013/05/29 03:27:02 nick Exp $/; +my $VERSION = q/$Id: calendar.pl,v 1.10 2016/11/03 12:49:45 nick Exp $/; my $DEBUG = ""; my $URL = "http://demandred.dyndns.org/cgi-bin/ConnorCalendar/index.cgi"; my %post_in = ( ); @@ -35,13 +35,14 @@ my @list = ( ); my @months = qw/ January February March April May June July August September October November December /; my %holidays = ( + "Easter Sunday" => 'even', "Christmas Day" => 'even', "Christmas Eve" => 'odd', "Father's Day" => 'all', "Independence Day" => 'even', "Labor Day" => 'even', "Memorial Day" => 'odd', - "New Year's Day" => 'even', + "New Year's Day" => 'odd', "New Year's Eve" => 'odd', "Thanksgiving Day" => 'odd', ); @@ -50,28 +51,26 @@ my %specials = ( "11/28" => "even", "5/6" => "odd", ); -my @weekend = qw/ 2011 8 12 /; +## Change this @weekend to 'qw/ 2011 8 12 /' for original schedule +my @weekend = qw/ 2011 8 19 /; my %weekends = &calcWeekends( @weekend ); &ReadParse( ); my $yr = sprintf( "%d", $post_in{'cy'} ) || ( ( localtime )[5] + 1900 ); my $YEAR = sprintf( "%d", $yr ); +push @list, 'Easter Sunday' if ( $YEAR % 2 == 0 ); print "Content-type: text/html\n\n"; print &header( ); print &css( ); -print "

Calendar for $YEAR

\n"; -my $year_us = Date::Calendar::Year->new( $YEAR, $Profiles->{'US-FL'} ); +my $year_us = Date::Pcalendar::Year->new( $YEAR, $Profiles->{'US-FL'} ); my @hdays = $year_us->labels( ); -#$DEBUG = "Holidays for $YEAR:\n"; -#foreach ( sort @hdays ) { $DEBUG .= $_ ."\n"; } - - -print "
<-- $YEAR " . - "-->
"; +print "

<-- " . + "Calendar Days Connor Visits for $YEAR" . + " -->

"; my $row = 0; print ""; for( my $month = 1; $month <= 12; $month++ ) @@ -118,10 +117,10 @@ print "Today is BlueGreen\n

"; -print "
List of Special/Holidays " . - "I have Connor:
";
-print map { $_ . "\n" } sort @list;
-print "
\n"; +print "
List of Special/Holidays " . + "I have Connor:

"; +print map { $_ . "
\n" } sort @list; +print "

\n"; print "

Version: $VERSION
"; print "CVS: http://demandred.dyndns.org/cgi-bin/cvsweb/ConnorCalendar/"; print "

"; @@ -167,8 +166,8 @@ sub isSpecial sub isWeekend { my $y = shift || return 0; - my $m = shift || return 0; - my $d = shift || return 0; + my $m = shift || return 0; + my $d = shift || return 0; $m--; my $ds = sprintf( "$y/$months[$m]/%02d", $d ); @@ -306,7 +305,7 @@ padding-bottom: 0px; font-family: "Lucida Grande", "Lucida Sans Unicode", Verdana, sans-serif; #font-family: Geneva, Arial, Helvetica, sans-serif; font-size: 12pt; - background:url(lowerright.jpg) no-repeat bottom right; + background: #eeeeee; color:#000000; @@ -325,7 +324,7 @@ p.Legend { font-family: "Lucida Grande", "Lucida Sans Unicode", Verdana, sans-serif; font-size: 8pt; margin: auto; - width: 28%; + width: 300px; background-color : transparent; border-top: 1px solid #888888; border-left: 1px solid #888888; @@ -394,7 +393,7 @@ p.footer { font-family: "Lucida Grande", "Lucida Sans Unicode", Verdana, sans-serif; font-size: 8pt; margin: auto; - width: 48%; + width: 500px; background-color : transparent; border-top: 1px solid #888888; padding-top: 3px;