=**************************************
= Name: Calendar Script
= Description:This is a simple Calendar Display script. It will display the current Month, with the current day marked. This can be placed on a webpage, anywhere you need to display it.
= By: Randy McCleary
=
=This code is copyrighted and has= limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=422&lngWId=6=for details.=**************************************
#!/usr/bin/perl -w
###################################################
## This is a simple Calendar Display script.
## It will display the current Month, with the
## current day marked. This can be placed on a
## webpage, anywhere you need to display it.
###################################################
use POSIX;
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use Time::Local;
###################################################
## Define Globals
###################################################
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = 0;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $month_name = ("January", "February", "March",
"April", "May", "June", "July",
"August", "September", "October",
"November", "December")[$mon];
my $time_t = POSIX::mktime(0, 0, 1, 1, $mon, $year);
my @attribs = localtime($time_t);
my $start_day = @attribs[6] + 1;
my @month_days = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
my $days_in_month = @month_days[$mon];
&init();
&Display_Calendar();
###################################################
## Sub to Initiate the calendar
###################################################
sub init {
print header;
#########################
## Check for leap year
#########################
if($mon == 1) {
$year += 1900;
if($year%4 == 0 && $year%100 == 0 && $year%400 == 0) {
$days_in_month = 29;
}
elsif($year%4 == 0 && $year%100 != 0) {
$days_in_month = 29;
}
}
$days_in_month += $start_day - 1;
}
###################################################
## Sub to Diplay the generated Calendar Month
###################################################
sub Display_Calendar {
###################################################
## Begin to Print out the Calendar in a Table
###################################################
print "<table cellspacing=\"1\" cellpadding=\"2\" border=\"0\" bgcolor=\"#336699\">\n";
print " <tr>\n";
print " <th colspan=\"7\"><font color=\"#FFFFFF\">$month_name</font></th>\n";
print " </tr>\n";
print " <tr>\n";
print " <th width=\"20\" bgcolor=\"#CCCCCC\">S</th>\n";
print " <th width=\"20\" bgcolor=\"#CCCCCC\">M</th>\n";
print " <th width=\"20\" bgcolor=\"#CCCCCC\">T</th>\n";
print " <th width=\"20\" bgcolor=\"#CCCCCC\">W</th>\n";
print " <th width=\"20\" bgcolor=\"#CCCCCC\">T</th>\n";
print " <th width=\"20\" bgcolor=\"#CCCCCC\">F</th>\n";
print " <th width=\"20\" bgcolor=\"#CCCCCC\">S</th>\n";
print " </tr>\n";
my $day = 1;
my $count = 0;
my $temp = 0;
for(my $i=1; $i<=$days_in_month; $i++) {
if($count == 0) {
print " <tr>\n";
}
if($count % 7 == 0 && $count != 0) {
print " </tr><tr>\n";
}
if($i < $start_day) {
print " <td bgcolor=\"#EFEFEF\" align=\"center\">-</td>\n";
}
else {
if($day == $mday) {
print " <td bgcolor=\"#FFFF00\" align=\"center\"><b>$day</b></td>\n";
}
else {
print " <td bgcolor=\"#FFFFFF\" align=\"center\">$day</td>\n";
}
$day++;
}
if($i == $days_in_month && $count % 7 != 6 ) {
$temp = 6 - $count % 7;
for(my $j=1; $j <= $temp; $j++) {
print " <td bgcolor=\"#EFEFEF\" align=\"center\">-</td>\n";
}
print " </tr></table>\n";
}
$count++;
}
}
|
