ConnorCalendar/calendar.pl - diff

Return to calendar.pl CVS log

Up to [Local Repository] / ConnorCalendar

Diff for /ConnorCalendar/calendar.pl between versions 1.5 and 1.8

version 1.5, 2013/05/29 02:53:46	version 1.8, 2014/01/15 16:19:08
Line 35 my @list = ( );	Line 35 my @list = ( );
my @months = qw/ January February March April May June July	my @months = qw/ January February March April May June July
August September October November December /;	August September October November December /;
my %holidays = (	my %holidays = (
	"Easter Sunday" => 'even',
"Christmas Day" => 'even',	"Christmas Day" => 'even',
"Christmas Eve" => 'odd',	"Christmas Eve" => 'odd',
"Father's Day" => 'all',	"Father's Day" => 'all',
"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" => 'odd',	"New Year's Eve" => 'odd',
"Thanksgiving Day" => 'odd',	"Thanksgiving Day" => 'odd',
);	);
Line 57 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 );

print "Content-type: text/html\n\n";	print "Content-type: text/html\n\n";
print &header( );	print &header( );
print &css( );	print &css( );
print "<h1>Calendar for $YEAR</h1>\n";
print "</p>Holidays I have Connor are in <font color=red>Red</font>\n</br>";
print "Today is <font color=blue>Blue</font>\n</br>";
print "Weekends and special days I have Connor are in <font color=green>Green</font>\n</p>";

my $year_us = Date::Calendar::Year->new( $YEAR, $Profiles->{'US-FL'} );	my $year_us = Date::Calendar::Year->new( $YEAR, $Profiles->{'US-FL'} );
my @hdays = $year_us->labels( );	my @hdays = $year_us->labels( );

#$DEBUG = "Holidays for $YEAR:\n";	print "<h1><center><a href=\"$URL?cy=" . ( $YEAR - 1 ) .
#foreach ( sort @hdays ) { $DEBUG .= $_ ."\n"; }	"\"><--</a> " .
	"Calendar Days Connor Visits for $YEAR" .
	"<a href=\"$URL?cy=" . ( $YEAR + 1 ) . "\">--></a></h1>";
print "<center><a href=\"$URL?cy=" . ( $YEAR - 1 ) .
"\"><--</a> <b>$YEAR</b> " .
"<a href=\"$URL?cy=" . ( $YEAR + 1 ) . "\">--></a></center>";
my $row = 0;	my $row = 0;
print "<table align=center border=0><tr>";	print "<table align=center border=0><tr>";
for( my $month = 1; $month <= 12; $month++ )	for( my $month = 1; $month <= 12; $month++ )
Line 117 for( my $month = 1; $month <= 12; $month	Line 111 for( my $month = 1; $month <= 12; $month
$row++;	$row++;
}	}
print "</tr></table>";	print "</tr></table>";
print "<center>List of Special/Holidays I have Connor:<br /><pre>";	print "<p class=\"Legend\">Holidays I have Connor are in <font color=red>Red</font>\n</br>";
print map { $_ . "\n" } sort @list;	print "Today is <font color=blue>Blue</font>\n</br>";
print "</pre><br /><hr />Version: <font color=green>$VERSION</font><br />";	print "Weekends and special days I have Connor are in <font color=green>Green</font>\n</p>";
print "CVS: <a href=\"http://demandred.dyndns.org/cgi-bin/cvsweb/ConnorCalendar/\">http://demandred.dyndns.org/cgi-bin/cvsweb/ConnorCalendar/</a>";
print "</center><pre>\n\n$DEBUG</pre>";
	print "<table width=35% align=center border=0><tr><td>List of Special/Holidays " .
	"I have Connor:<br /><p class=Legend>";
	print map { $_ . "<br />\n" } sort @list;
	print "</p></td></tr></table>\n";
	print "</pre><p class=\"footer\">Version: <font color=green>$VERSION</font><br />";
	print "CVS: <a target=\"_new\" href=\"http://demandred.dyndns.org/cgi-bin/cvsweb/ConnorCalendar/\">http://demandred.dyndns.org/cgi-bin/cvsweb/ConnorCalendar/</a>";
	print "</center></p>";


###############################################################################	###############################################################################
Line 303 padding-bottom: 0px;	Line 304 padding-bottom: 0px;
font-family: "Lucida Grande", "Lucida Sans Unicode", Verdana, sans-serif;	font-family: "Lucida Grande", "Lucida Sans Unicode", Verdana, sans-serif;
#font-family: Geneva, Arial, Helvetica, sans-serif;	#font-family: Geneva, Arial, Helvetica, sans-serif;
font-size: 12pt;	font-size: 12pt;
background:url(lowerright.jpg) no-repeat bottom right;	background: #eeeeee;
color:#000000;	color:#000000;


Line 317 padding-bottom: 0px;	Line 318 padding-bottom: 0px;
text-align: center;	text-align: center;
}	}

	p.Legend {
	color: #000000;
	font-family: "Lucida Grande", "Lucida Sans Unicode", Verdana, sans-serif;
	font-size: 8pt;
	margin: auto;
	width: 300px;
	background-color : transparent;
	border-top: 1px solid #888888;
	border-left: 1px solid #888888;
	border-right: 1px solid #888888;
	border-bottom: 1px solid #888888;
	padding-top: 3px;
	padding-bottom: 3px;
	padding-left: 3px;
	padding-right: 3px;
	}

h1 {	h1 {
color: #191970;	color: #191970;
font-family: "Lucida Grande", "Lucida Sans Unicode", Verdana, sans-serif;	font-family: "Lucida Grande", "Lucida Sans Unicode", Verdana, sans-serif;
#font-family: Verdana, Arial, sans-serif;	#font-family: Verdana, Arial, sans-serif;
font-size: 12pt; font-weight: bold; line-height: 15pt;	font-size: 12pt; font-weight: bold; line-height: 15pt;
	background-color : transparent;
	margin-left: 20px;
	margin-right: 20px;
	border-top: 1px solid black;
	border-bottom: 1px solid black;
}	}


Line 364 line-height: 120%;	Line 387 line-height: 120%;
}	}


.footer {	p.footer {
padding-top: 10px;	color: #000000;
padding-left: 50px;	font-family: "Lucida Grande", "Lucida Sans Unicode", Verdana, sans-serif;
padding-right: 50px;	font-size: 8pt;
	margin: auto;
	width: 500px;
	background-color : transparent;
	border-top: 1px solid #888888;
	padding-top: 3px;
	padding-bottom: 3px;
	padding-left: 3px;
	padding-right: 3px;
	text-align: center;
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.5
changed lines
	Added in v.1.8