#!/usr/bin/perl -wT
=begin comment info
+------------------------------------------------------------------------------
|
| See end of script for comments and 'pod2man $NAME | nroff -man' to
| view man page or pod2text $NAME for plain text.
|
| Nicholas DeClario Calendar for $YEAR
\n";
print "
";
print "$months[($month - 1)]\n";
print "Su Mo Tu We Th Fr Sa\n"; my @CALS = calendar( $month, $YEAR ); foreach my $cal ( @CALS ) { foreach my $day ( @$cal ) { if( defined $day ) { my $h_day = ( $year_us->labels( $YEAR, $month, $day ) )[1]; if( &IHaveConnor( $h_day ) ) { print sprintf "%2d ", $day; } elsif ( &isSpecial( $YEAR, $month, $day ) || &isWeekend( $YEAR, $month, $day ) ) { print sprintf "%2d ", $day; } elsif ( &isToday( $YEAR, $month, $day ) ) { print sprintf "%2d ", $day; } else { print sprintf "%2d ", $day; } } else { print ' '; } } print "\n"; } print " | ";
$row++;
}
print "
$DEBUG"; ############################################################################### ############################################################################### sub IHaveConnor { my $holiday = shift || return 0; my $y = ( $YEAR % 2 ) ? "odd" : "even"; if ( defined $holidays{$holiday} ) { return 1 if ( $holidays{$holiday} eq "all" ); return 1 if ( $holidays{$holiday} eq $y ); } return 0; } sub isSpecial { my $y = shift || return 0; my $m = shift || return 0; my $d = shift || return 0; my $yr = ( $YEAR % 2 ) ? "odd" : "even"; my $ref = "$m/$d"; if ( defined $specials{$ref} ) { return 1 if ( $specials{$ref} eq "all" || $specials{$ref} eq $yr ); } return 0; } sub isWeekend { my $y = shift || return 0; my $m = shift || return 0; my $d = shift || return 0; return 0; } sub isToday { my $y = shift || return 0; my $m = shift || return 0; my $d = shift || return 0; return 1 if ( $y eq ( ( localtime )[5] + 1900 ) && $m eq ( ( localtime )[4] + 1 ) && $d eq ( ( localtime )[3] ) ); return 0; } ############################################################################### ############################################################################### sub ReadParse { my $a = $_[0] ? $_[0] : \%post_in; my ( $i, $in ); my @in = ( ); if ( defined $ENV{'SERVER_NAME'} ) { my $SERVER = $ENV{'SERVER_NAME'}; } if ( ( defined $ENV{'REQUEST_METHOD'} ) && ($ENV{'REQUEST_METHOD'} eq 'POST') ) { read(STDIN, $in, $ENV{'CONTENT_LENGTH'}); } else { $in = $ENV{'QUERY_STRING'} || ""; } @in = split(/\&/, $in); foreach $i (@in) { my ($k, $v) = split(/=/, $i, 2); $k =~ s/\+/ /g; $k =~ s/%(..)/pack("c",hex($1))/ge; $v =~ s/\+/ /g; $v =~ s/%(..)/pack("c",hex($1))/ge; $a->{$k} = defined($a->{$k}) ? $a->{$k}."\0".$v : $v; } } ############################################################################### ## ## &fetchOptions( ); ## ## Grab our command line arguments and toss them in to a hash ## ############################################################################### sub fetchOptions { my %opts; &GetOptions( "help|?" => \$opts{'help'}, "man" => \$opts{'man'}, ) || &pod2usage( ); &pod2usage( ) if defined $opts{'help'}; &pod2usage( { -verbose => 2, -input => \*DATA } ) if defined $opts{'man'}; return %opts; } __END__ =head1 NAME masterbuild.pl - blurb =head1 SYNOPSIS masterbuild.pl [options] Options: --help,? Display the basic help menu --man,m Display the detailed man page =head1 DESCRIPTION =head1 HISTORY =head1 AUTHOR Nicholas DeClario