[BACK]Return to calendar.pl CVS log [TXT] [DIR] Up to [Local Repository] / ConnorCalendar

Diff for /ConnorCalendar/calendar.pl between versions 1.6 and 1.7

version 1.6, 2013/05/29 03:27:02 version 1.7, 2013/05/30 14:38:50
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',
Line 42  my %holidays = ( Line 43  my %holidays = (
                  "Labor Day"            => 'even',                   "Labor Day"            => 'even',
                  "Memorial Day"         => 'odd',                   "Memorial Day"         => 'odd',
                  "New Year's Day"       => 'even',                   "New Year's Day"       => 'even',
                  "New Year's Eve"       => 'odd',                   "New Year's Eve"       => 'even',
                  "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";  
 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"; }        "\">&lt;--</a> " .
         "Calendar Days Connor Visits for $YEAR" .
          "<a href=\"$URL?cy=" . ( $YEAR + 1 ) . "\">--&gt;</a></h1>";
 print "<center><a href=\"$URL?cy=" . ( $YEAR - 1 ) .  
       "\">&lt;--</a> <b>$YEAR</b> " .  
        "<a href=\"$URL?cy=" . ( $YEAR + 1 ) . "\">--&gt;</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 118  print "Today is <font color=blue>Blue</f Line 116  print "Today is <font color=blue>Blue</f
 print "Weekends and special days I have Connor are in <font color=green>Green</font>\n</p>";  print "Weekends and special days I have Connor are in <font color=green>Green</font>\n</p>";
   
   
 print "<br /><table width=35% align=center border=0><tr><td>List of Special/Holidays " .  print "<table width=35% align=center border=0><tr><td>List of Special/Holidays " .
       "I have Connor:<br /><pre>";        "I have Connor:<br /><p class=Legend>";
 print map { $_ . "\n" } sort @list;  print map { $_ . "<br />\n" } sort @list;
 print "</td></tr></table>\n";  print "</p></td></tr></table>\n";
 print "</pre><p class=\"footer\">Version: <font color=green>$VERSION</font><br />";  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 "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>";  print "</center></p>";
Line 306  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 325  p.Legend { Line 323  p.Legend {
  font-family: "Lucida Grande", "Lucida Sans Unicode", Verdana, sans-serif;   font-family: "Lucida Grande", "Lucida Sans Unicode", Verdana, sans-serif;
  font-size: 8pt;   font-size: 8pt;
  margin: auto;   margin: auto;
  width: 28%;   width: 300px;
  background-color : transparent;   background-color : transparent;
  border-top: 1px solid #888888;   border-top: 1px solid #888888;
  border-left: 1px solid #888888;   border-left: 1px solid #888888;
Line 394  p.footer { Line 392  p.footer {
  font-family: "Lucida Grande", "Lucida Sans Unicode", Verdana, sans-serif;   font-family: "Lucida Grande", "Lucida Sans Unicode", Verdana, sans-serif;
  font-size: 8pt;   font-size: 8pt;
  margin: auto;   margin: auto;
  width: 48%;   width: 500px;
  background-color : transparent;   background-color : transparent;
  border-top: 1px solid #888888;   border-top: 1px solid #888888;
  padding-top: 3px;   padding-top: 3px;
Removed from v.1.6  
changed lines
  Added in v.1.7

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