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

Diff for /ConnorCalendar/calendar.pl between versions 1.10 and 1.12

version 1.10, 2016/11/03 12:49:45 version 1.12, 2017/06/15 01:52:15
Line 26  use Calendar::Simple; Line 26  use Calendar::Simple;
 use Date::Pcalendar::Year qw( :all );  use Date::Pcalendar::Year qw( :all );
 use Date::Pcalendar::Profiles qw( $Profiles );  use Date::Pcalendar::Profiles qw( $Profiles );
   
 my $VERSION  = q/$Id$/;  my $VERSION  = '$Id$';
 my $DEBUG    = "";  my $DEBUG    = "";
 my $URL      = "http://demandred.dyndns.org/cgi-bin/ConnorCalendar/index.cgi";  my $URL      = "http://demandred.dyndns.org/cgi-bin/ConnorCalendar/index.cgi";
 my %post_in  = ( );  my %post_in  = ( );
 my %opts     = &fetchOptions( );  my %opts     = &fetchOptions( );
 my @list     = ( );  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',                   "Easter Sunday"        => 'even',
                  "Christmas Day"        => 'even',                   "Christmas Day"        => 'even',
Line 51  my %specials = ( Line 51  my %specials = (
                 "11/28"                 => "even",                  "11/28"                 => "even",
                 "5/6"                   => "odd",                  "5/6"                   => "odd",
                 );                  );
   
   print "Content-type: text/html\n\n";
   print &header( );
   
   
 ## Change this @weekend to 'qw/ 2011 8 12 /' for original schedule  ## Change this @weekend to 'qw/ 2011 8 12 /' for original schedule
 my @weekend  = qw/ 2011 8 19 /;  my @weekend  = qw/ 2011 8 19 /;
 my %weekends = &calcWeekends( @weekend );  my %weekends = &calcWeekends( @weekend );
   
 &ReadParse( );  &ReadParse( );
   
 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 == 0 );  push @list, 'Easter Sunday' if ( $YEAR % 2 == 0 );
   
 print "Content-type: text/html\n\n";  
 print &header( );  
 print &css( );  print &css( );
 my $year_us = Date::Pcalendar::Year->new( $YEAR, $Profiles->{'US-FL'} );  my $year_us = Date::Pcalendar::Year->new( $YEAR, $Profiles->{'US-FL'} );
 my @hdays = $year_us->labels( );  my @hdays = $year_us->labels( );
Removed from v.1.10  
changed lines
  Added in v.1.12

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