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

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

version 1.9, 2014/03/21 02:55:24 version 1.10, 2016/11/03 12:49:45
Line 1 Line 1
 #!/usr/bin/perl -wT  #!/usr/bin/perl -w
   
 =begin comment info  =begin comment info
 +------------------------------------------------------------------------------  +------------------------------------------------------------------------------
Line 23  use Getopt::Long; Line 23  use Getopt::Long;
 use Pod::Usage;  use Pod::Usage;
 use Data::Dumper;  use Data::Dumper;
 use Calendar::Simple;  use Calendar::Simple;
 use Date::Calendar::Year qw( :all );  use Date::Pcalendar::Year qw( :all );
 use Date::Calendar::Profiles qw( $Profiles );  use Date::Pcalendar::Profiles qw( $Profiles );
   
 my $VERSION  = q/$Id$/;  my $VERSION  = q/$Id$/;
 my $DEBUG    = "";  my $DEBUG    = "";
Line 51  my %specials = ( Line 51  my %specials = (
                 "11/28"                 => "even",                  "11/28"                 => "even",
                 "5/6"                   => "odd",                  "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 );  my %weekends = &calcWeekends( @weekend );
   
 &ReadParse( );  &ReadParse( );
Line 63  push @list, 'Easter Sunday' if ( $YEAR % Line 64  push @list, 'Easter Sunday' if ( $YEAR %
 print "Content-type: text/html\n\n";  print "Content-type: text/html\n\n";
 print &header( );  print &header( );
 print &css( );  print &css( );
 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( );  my @hdays = $year_us->labels( );
   
 print "<h1><center><a href=\"$URL?cy=" . ( $YEAR - 1 ) .  print "<h1><center><a href=\"$URL?cy=" . ( $YEAR - 1 ) .
       "\">&lt;--</a> " .        "\">&lt;--</a> " .
       "Calendar Days Connor Visits for $YEAR" .        "Calendar Days Connor Visits for $YEAR" .
        "<a href=\"$URL?cy=" . ( $YEAR + 1 ) . "\">--&gt;</a></h1>";         "<a href=\"$URL?cy=" . ( $YEAR + 1 ) . "\"> --&gt;</a></h1>";
 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 165  sub isSpecial Line 166  sub isSpecial
 sub isWeekend  sub isWeekend
 {  {
         my $y = shift || return 0;          my $y = shift || return 0;
         my $m = shift || return 0;      my $m = shift || return 0;
         my $d = shift || return 0;      my $d = shift || return 0;
   
         $m--;          $m--;
         my $ds = sprintf( "$y/$months[$m]/%02d", $d );          my $ds = sprintf( "$y/$months[$m]/%02d", $d );
Removed from v.1.9  
changed lines
  Added in v.1.10

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