{'sunday'} = $newvalue if defined($newvalue);
return $self->{'sunday'};
}
sub saturday {
my $self = shift;
my $newvalue = shift;
$self->{'saturday'} = $newvalue if defined($newvalue);
return $self->{'saturday'};
}
sub weekdays {
my $self = shift;
my @days = @_;
$self->{'weekdays'} = \@days if (scalar(@days)==5);
return @{$self->{'weekdays'}};
}
sub getdatehref {
my $self = shift;
my @dates = $self->_date_string_to_numeric(shift); return() unless @dates;
return $self->{'href'}->{$dates[0]};
}
sub setdatehref {
my $self = shift;
my @dates = $self->_date_string_to_numeric(shift); return() unless @dates;
my $datehref = shift || '';
foreach my $date (@dates) {
$self->{'href'}->{$date} = $datehref if defined($self->{'href'}->{$date});
}
return(1);
}
sub weekendcolor {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'weekendcolor'} = $newvalue; }
return $self->{'weekendcolor'};
}
sub weekendheadercolor {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'weekendheadercolor'} = $newvalue; }
return $self->{'weekendheadercolor'};
}
sub weekdayheadercolor {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'weekdayheadercolor'} = $newvalue; }
return $self->{'weekdayheadercolor'};
}
sub weekdaycolor {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'weekdaycolor'} = $newvalue; }
return $self->{'weekdaycolor'};
}
sub headercolor {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'headercolor'} = $newvalue; }
return $self->{'headercolor'};
}
sub bgcolor {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'bgcolor'} = $newvalue; }
return $self->{'bgcolor'};
}
sub todaycolor {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'todaycolor'} = $newvalue; }
return $self->{'todaycolor'};
}
sub bordercolor {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'bordercolor'} = $newvalue; }
return $self->{'bordercolor'};
}
sub highlightbordercolor {
my $self=shift;
$self->{"highlightbordercolorhighlight"}=shift if @_;
$self->{"highlightbordercolorhighlight"}="#2E2E2E"
unless defined($self->{"highlightbordercolorhighlight"});
return $self->{"highlightbordercolorhighlight"};
}
sub weekdaybordercolor {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'weekdaybordercolor'} = $newvalue; }
return $self->{'weekdaybordercolor'};
}
sub weekendbordercolor {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'weekendbordercolor'} = $newvalue; }
return $self->{'weekendbordercolor'};
}
sub todaybordercolor {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'todaybordercolor'} = $newvalue; }
return $self->{'todaybordercolor'};
}
sub contentcolor {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'contentcolor'} = $newvalue; }
return $self->{'contentcolor'};
}
sub highlightcontentcolor {
my $self=shift;
$self->{"highlightcontentcolor"}=shift if @_;
$self->{"highlightcontentcolor"}="#FEFEE2"
unless defined $self->{"highlightcontentcolor"};
return $self->{"highlightcontentcolor"};
}
sub headercontentcolor {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'headercontentcolor'} = $newvalue; }
return $self->{'headercontentcolor'};
}
sub weekdayheadercontentcolor {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'weekdayheadercontentcolor'} = $newvalue; }
return $self->{'weekdayheadercontentcolor'};
}
sub weekendheadercontentcolor {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'weekendheadercontentcolor'} = $newvalue; }
return $self->{'weekendheadercontentcolor'};
}
sub weekdaycontentcolor {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'weekdaycontentcolor'} = $newvalue; }
return $self->{'weekdaycontentcolor'};
}
sub weekendcontentcolor {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'weekendcontentcolor'} = $newvalue; }
return $self->{'weekendcontentcolor'};
}
sub todaycontentcolor {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'todaycontentcolor'} = $newvalue; }
return $self->{'todaycontentcolor'};
}
sub datecolor {
my $self = shift;
my @dates = $self->_date_string_to_numeric(shift); return() unless @dates;
my $newvalue = shift;
if (defined($newvalue)) {
foreach my $date (@dates) {
$self->{'datecolor'}->{$date} = $newvalue if defined($self->{'datecolor'}->{$date});
}
}
return $self->{'datecolor'}->{$dates[0]};
}
sub datebordercolor {
my $self = shift;
my @dates = $self->_date_string_to_numeric(shift); return() unless @dates;
my $newvalue = shift;
if (defined($newvalue)) {
foreach my $date (@dates) {
$self->{'datebordercolor'}->{$date} = $newvalue if defined($self->{'datebordercolor'}->{$date});
}
}
return $self->{'datebordercolor'}->{$dates[0]};
}
sub datecontentcolor {
my $self = shift;
my @dates = $self->_date_string_to_numeric(shift); return() unless @dates;
my $newvalue = shift;
if (defined($newvalue)) {
foreach my $date (@dates) {
$self->{'datecontentcolor'}->{$date} = $newvalue if defined($self->{'datecontentcolor'}->{$date});
}
}
return $self->{'datecontentcolor'}->{$dates[0]};
}
sub highlight {
my $self=shift;
my @day=@_;
foreach my $day (@day) {
$self->datebordercolor($day, $self->highlightbordercolor);
$self->datecolor($day, $self->highlightcontentcolor);
}
return(1);
}
sub getcontent {
my $self = shift;
my @dates = $self->_date_string_to_numeric(shift); return() unless @dates;
return $self->{'content'}->{$dates[0]};
}
sub setcontent {
my $self = shift;
my @dates = $self->_date_string_to_numeric(shift); return() unless @dates;
my $newcontent = shift || '';
foreach my $date (@dates) {
$self->{'content'}->{$date} = $newcontent if defined($self->{'content'}->{$date});
}
return(1);
}
sub addcontent {
my $self = shift;
my @dates = $self->_date_string_to_numeric(shift); return() unless @dates;
my $newcontent = shift || return();
foreach my $date (@dates) {
$self->{'content'}->{$date} .= $newcontent if defined($self->{'content'}->{$date});
}
return(1);
}
sub border {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'border'} = int($newvalue); }
return $self->{'border'};
}
sub cellpadding {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'cellpadding'} = $newvalue; }
return $self->{'cellpadding'};
}
sub cellspacing {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'cellspacing'} = $newvalue; }
return $self->{'cellspacing'};
}
sub width {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'width'} = $newvalue; }
return $self->{'width'};
}
sub showdatenumbers {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'showdatenumbers'} = $newvalue; }
return $self->{'showdatenumbers'};
}
sub showweekdayheaders {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'showweekdayheaders'} = $newvalue; }
return $self->{'showweekdayheaders'};
}
sub cellalignment {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'cellalignment'} = $newvalue; }
return $self->{'cellalignment'};
}
sub vcellalignment {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'vcellalignment'} = $newvalue; }
return $self->{'vcellalignment'};
}
sub contentfontsize {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'contentfontsize'} = $newvalue; }
return $self->{'contentfontsize'};
}
sub weekdayheadersbig {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'weekdayheadersbig'} = $newvalue; }
return $self->{'weekdayheadersbig'};
}
sub year {
my $self = shift;
return $self->{'year'};
}
sub month {
my $self = shift;
return $self->{'month'};
}
sub monthname {
my $self = shift;
return $self->{'monthname'};
}
sub today_year {
my $self = shift;
return $self->{'today_year'};
}
sub today_month {
my $self = shift;
return $self->{'today_month'};
}
sub today_date {
my $self = shift;
return $self->{'today_date'};
}
sub header {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'header'} = $newvalue; }
return $self->{'header'};
}
sub nowrap {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'nowrap'} = $newvalue; }
return $self->{'nowrap'};
}
sub sharpborders {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'sharpborders'} = $newvalue; }
return $self->{'sharpborders'};
}
sub cellheight {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'cellheight'} = $newvalue; }
return $self->{'cellheight'};
}
sub cellclass {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'cellclass'} = $newvalue; }
return $self->{'cellclass'};
}
sub tableclass {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'tableclass'} = $newvalue; }
return $self->{'tableclass'};
}
sub weekdaycellclass {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'weekdaycellclass'} = $newvalue; }
return $self->{'weekdaycellclass'};
}
sub weekendcellclass {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'weekendcellclass'} = $newvalue; }
return $self->{'weekendcellclass'};
}
sub todaycellclass {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'todaycellclass'} = $newvalue; }
return $self->{'todaycellclass'};
}
sub datecellclass {
my $self = shift;
my $date = lc(shift) || return(); $date = int($date) if $date =~ m/^[\d\.]+$/;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'datecellclass'}->{$date} = $newvalue; }
return $self->{'datecellclass'}->{$date};
}
sub headerclass {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'headerclass'} = $newvalue; }
return $self->{'headerclass'};
}
sub weekstartsonmonday {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'weekstartsonmonday'} = $newvalue; }
return $self->{'weekstartsonmonday'} ? 1 : 0;
}
sub Days_in_Month {
my $self=shift;
return Date::Calc::Days_in_Month($self->year, $self->month);
}
### the following methods are internal-use-only methods
# _date_string_to_numeric() takes a date string (e.g. 5, 'wednesdays', or '3friday')
# and returns the corresponding numeric date. For numerics, this sounds meaningless,
# but for the strings it's useful to have this all in one place.
# If it's a plural weekday (e.g. 'sundays') then an array of numeric dates is returned.
sub _date_string_to_numeric {
my $self = shift;
my $date = shift || return ();
my($which,$weekday);
if ($date =~ m/^\d\.*\d*$/) { # first and easiest, simple numerics
return int($date);
}
elsif (($which,$weekday) = ($date =~ m/^(\d)([a-zA-Z]+)$/)) {
my($y,$m,$d) = Date::Calc::Nth_Weekday_of_Month_Year($self->year(),$self->month(),Date::Calc::Decode_Day_of_Week($weekday),$which);
return $d;
}
elsif (($weekday) = ($date =~ m/^(\w+)s$/i)) {
$weekday = Date::Calc::Decode_Day_of_Week($weekday); # now it's the numeric weekday
my @dates;
foreach my $which (1..5) {
my $thisdate = Date::Calc::Nth_Weekday_of_Month_Year($self->year(),$self->month(),$weekday,$which);
push(@dates,$thisdate) if $thisdate;
}
return @dates;
}
}
__END__;
#################################################################################
=encoding UTF-8
=head1 NAME
HTML::CalendarMonthSimple - Perl Module for Generating HTML Calendars
=head1 SYNOPSIS
use HTML::CalendarMonthSimple;
$cal = new HTML::CalendarMonthSimple('year'=>2001,'month'=>2);
$cal->width('50%');
$cal->border(10);
$cal->header('Text at the top of the Grid');
$cal->setcontent(14,"Valentine's Day");
$cal->setdatehref(14, 'http://localhost/');
$cal->addcontent(14,"Don't forget to buy flowers.");
$cal->addcontent(13,"Guess what's tomorrow?");
$cal->bgcolor('pink');
print $cal->as_HTML;
=head1 DESCRIPTION
Note: This package is no longer being maintained by Gregor Mosheh . It is recommended that new development be built against L.
HTML::CalendarMonthSimple is a Perl module for generating, manipulating, and printing a HTML calendar grid for a specified month. It is intended as a faster and easier-to-use alternative to HTML::CalendarMonth.
This module requires the Date::Calc module, which is available from CPAN if you don't already have it.
=head1 INTERFACE METHODS
=head2 new(ARGUMENTS)
Naturally, new() returns a newly constructed calendar object.
The optional constructor arguments 'year' and 'month' can specify which month's calendar will be used. If either is omitted, the current value (e.g. "today") is used. An important note is that the month and the year are NOT the standard C or Perl -- use a month in the range 1-12 and a real year, e.g. 2001.
The arguments 'today_year', 'today_month', and 'today_date' may also be specified, to specify what "today" is. If not specified, the system clock will be used. This is particularly useful when the todaycolor() et al methods are used, and/or if you're dealing with multiple timezones. Note that these arguments change what "today" is, which means that if you specify a today_year and a today_month then you are effectively specifying a 'year' and 'month' argument as well, though you can also specify a year and month argument and override the "today" behavior.
# Examples:
# Create a calendar for this month.
$cal = new HTML::CalendarMonthSimple();
# A calendar for a specific month/year
$cal = new HTML::CalendarMonthSimple('month'=>2,'year'=>2000);
# Pretend that today is June 10, 2000 and display the "current" calendar
$cal = new HTML::CalendarMonthSimple('today_year'=>2000,'today_month'=>6,'today_date'=>10);
=head2 year
=head2 month
=head2 today_year
=head2 today_month
=head2 today_date
=head2 monthname
These methods simply return the year/month/date of the calendar, as specified in the constructor.
monthname() returns the text name of the month, e.g. "December".
=head2 setcontent(DATE,STRING)
=head2 addcontent(DATE,STRING)
=head2 highlight (@DATE)
Highlights the particular dates given.
$cal->highlight(1,10,22);
=head2 getcontent(DATE)
These methods are used to control the content of date cells within the calendar grid. The DATE argument may be a numeric date or it may be a string describing a certain occurrence of a weekday, e.g. "3MONDAY" to represent "the third Monday of the month being worked with", or it may be the plural of a weekday name, e.g. "wednesdays" to represent all occurrences of the given weekday. The weekdays are case-insensitive.
Since plural weekdays (e.g. 'wednesdays') is not a single date, getcontent() will return the content only for the first occurrence of that day within a month.
# Examples:
# The cell for the 15th of the month will now say something.
$cal->setcontent(15,"An Important Event!");
# Later down the program, we want the content to be boldfaced.
$cal->setcontent(15,"" . $cal->getcontent(15) . "");
# addcontent() does not clobber existing content.
# Also, if you setcontent() to '', you've deleted the content.
$cal->setcontent(16,'');
$cal->addcontent(16,"Hello World
");
$cal->addcontent(16,"Hello Again
");
print $cal->getcontent(16); # Prints 2 sentences
# Padded and decimal numbers may be used, as well:
$cal->setcontent(3.14159,'Third of the month');
$cal->addcontent('00003.0000','Still the third');
$cal->getcontent('3'); # Gets the 2 sentences
# The second Sunday of May is some holiday or another...
$cal->addcontent('2sunday','Some Special Day') if ($cal->month() == 5);
# Every Wednesday is special...
$cal->addcontent('wednesdays','Every Wednesday!');
# either of these will return the content for the 1st Friday of the month
$cal->getcontent('1friday');
$cal->getcontent('Fridays'); # you really should use '1friday' for the first Friday
Note: A change in 1.21 is that all content is now stored in a single set of date-indexed buckets. Previously, the content for weekdays, plural weekdays, and numeric dates were stored separately and could be fetched and set independently. This led to buggy behavior, so now a single storage set is used.
# Example:
# if the 9th of the month is the second Wednesday...
$cal->setcontent(9,'ninth');
$cal->addcontent('2wednesday','second wednesday');
$cal->addcontent('wednesdays','every wednesday');
print $cal->getcontent(9);
In version 1.20 and previous, this would print 'ninth' but in 1.21 and later, this will print all three items (since the 9th is not only the 9th but also a Wednesday and the second Wednesday). This could have implications if you use setcontent() on a set of days, since other content may be overwritten:
# Example:
# the second setcontent() effectively overwrites the first one
$cal->setcontent(9,'ninth');
$cal->setcontent('2wednesday','second wednesday');
$cal->setcontent('wednesdays','every wednesday');
print $cal->getcontent(9); # returns 'every wednesday' because that was the last assignment!
=head2 as_HTML
This method returns a string containing the HTML table for the month.
# Example:
print $cal->as_HTML();
It's okay to continue modifying the calendar after calling as_HTML(). My guess is that you'd want to call as_HTML() again to print the further-modified calendar, but that's your business...
=head2 weekstartsonmonday([1|0])
By default, calendars are displayed with Sunday as the first day of the week (American style). Most of the world prefers for calendars to start the week on Monday. This method selects which type is used: 1 specifies that the week starts on Monday, 0 specifies that the week starts on Sunday (the default). If no value is given at all, the current value (1 or 0) is returned.
# Example:
$cal->weekstartsonmonday(1); # switch over to weeks starting on Monday
$cal->weekstartsonmonday(0); # switch back to the default, where weeks start on Sunday
# Example:
print "The week starts on " . ($cal->weekstartsonmonday() ? 'Sunday' : 'Monday') . "\n";
=head2 Days_in_Month
This function returns the number of days on the current calendar.
foreach my $day (1 .. $cal->Days_in_Month) {
$cal->setdatehref($day, &make_url($cal->year, $cal->month, $day));
}
=head2 setdatehref(DATE,URL_STRING)
=head2 getdatehref(DATE)
These allow the date-number in a calendar cell to become a hyperlink to the specified URL. The DATE may be either a numeric date or any of the weekday formats described in setcontent(), et al. If plural weekdays (e.g. 'wednesdays') are used with getdatehref() the URL of the first occurrence of that weekday in the month will be returned (since 'wednesdays' is not a single date).
# Example:
# The date number in the cell for the 15th of the month will be a link
# then we change our mind and delete the link by assigning a null string
$cal->setdatehref(15,"http://sourceforge.net/");
$cal->setdatehref(15,'');
# Example:
# the second Wednesday of the month goes to some website
$cal->setdatehref('2wednesday','http://www.second-wednesday.com/');
# Example:
# every Wednesday goes to a website
# note that this will effectively undo the '2wednesday' assignment we just did!
# if we wanted the second Wednesday to go to that special URL, we should've done that one after this!
$cal->setdatehref('wednesdays','http://every-wednesday.net/');
=head2 contentfontsize([STRING])
contentfontsize() sets the font size for the contents of the cell, overriding the browser's default. Can be expressed as an absolute (1 .. 6) or relative (-3 .. +3) size.
=head2 border([INTEGER])
This specifies the value of the border attribute to the declaration for the calendar. As such, this controls the thickness of the border around the calendar table. The default value is 5.
If a value is not specified, the current value is returned. If a value is specified, the border value is changed and the new value is returned.
=head2 cellpadding
=head2 cellspacing
=head2 width([INTEGER][%])
This sets the value of the width attribute to the declaration for the calendar. As such, this controls the horizontal width of the calendar.
The width value can be either an integer (e.g. 600) or a percentage string (e.g. "80%"). Most web browsers take an integer to be the table's width in pixels and a percentage to be the table width relative to the screen's width. The default width is "100%".
If a value is not specified, the current value is returned. If a value is specified, the border value is changed and the new value is returned.
# Examples:
$cal->width(600); # absolute pixel width
$cal->width("100%"); # percentage of screen size
=head2 showdatenumbers([1 or 0])
If showdatenumbers() is set to 1, then the as_HTML() method will put date labels in each cell (e.g. a 1 on the 1st, a 2 on the 2nd, etc.) If set to 0, then the date labels will not be printed. The default is 1.
If no value is specified, the current value is returned.
The date numbers are shown in boldface, normal size font. If you want to change this, consider setting showdatenumbers() to 0 and using setcontent()/addcontent() instead.
=head2 showweekdayheaders([1 or 0])
=head2 weekdayheadersbig([1 or 0])
If showweekdayheaders() is set to 1 (the default) then calendars rendered via as_HTML() will display the names of the days of the week. If set to 0, the days' names will not be displayed.
If weekdayheadersbig() is set to 1 (the default) then the weekday headers will be in | cells. The effect in most web browsers is that they will be boldfaced and centered. If set to 0, the weekday headers will be in | cells and in normal text.
For both functions, if no value is specified, the current value is returned.
=head2 cellalignment([STRING])
=head2 vcellalignment([STRING])
cellalignment() sets the value of the align attribute to the | tag for each day's cell. This controls how text will be horizontally centered/aligned within the cells. vcellalignment() does the same for vertical alignment. By default, content is aligned horizontally "left" and vertically "top"
Any value can be used, if you think the web browser will find it interesting. Some useful alignments are: left, right, center, top, and bottom.
=head2 header([STRING])
By default, the current month and year are displayed at the top of the calendar grid. This is called the "header".
The header() method allows you to set the header to whatever you like. If no new header is specified, the current header is returned.
If the header is set to an empty string, then no header will be printed at all. (No, you won't be stuck with a big empty cell!)
# Example:
# Set the month/year header to something snazzy.
my($y,$m) = ( $cal->year() , $cal->monthname() );
$cal->header("$m $y\n\n");
=head2 bgcolor([STRING])
=head2 weekdaycolor([STRING])
=head2 weekendcolor([STRING])
=head2 todaycolor([STRING])
=head2 bordercolor([STRING])
=head2 highlightbordercolor([STRING])
=head2 weekdaybordercolor([STRING])
=head2 weekendbordercolor([STRING])
=head2 todaybordercolor([STRING])
=head2 contentcolor([STRING])
=head2 highlightcontentcolor([STRING])
=head2 weekdaycontentcolor([STRING])
=head2 weekendcontentcolor([STRING])
=head2 todaycontentcolor([STRING])
=head2 headercolor([STRING])
=head2 headercontentcolor([STRING])
=head2 weekdayheadercolor([STRING])
=head2 weekdayheadercontentcolor([STRING])
=head2 weekendheadercolor([STRING])
=head2 weekendheadercontentcolor([STRING])
These define the colors of the cells. If a string (which should be either a HTML color-code like '#000000' or a color-word like 'yellow') is supplied as an argument, then the color is set to that specified. Otherwise, the current value is returned. To unset a value, try assigning the null string as a value.
The bgcolor defines the color of all cells. The weekdaycolor overrides the bgcolor for weekdays (Monday through Friday), the weekendcolor overrides the bgcolor for weekend days (Saturday and Sunday), and the todaycolor overrides the bgcolor for today's date. (Which may not mean a lot if you're looking at a calendar other than the current month.)
The weekdayheadercolor overrides the bgcolor for the weekday headers that appear at the top of the calendar if showweekdayheaders() is true, and weekendheadercolor does the same thing for the weekend headers. The headercolor overrides the bgcolor for the month/year header at the top of the calendar. The headercontentcolor(), weekdayheadercontentcolor(), and weekendheadercontentcolor() methods affect the color of the corresponding headers' contents and default to the contentcolor().
The colors of the cell borders may be set: bordercolor determines the color of the calendar grid's outside border, and is the default color of the inner border for individual cells. The inner bordercolor may be overridden for the various types of cells via weekdaybordercolor, weekendbordercolor, and todaybordercolor.
Finally, the color of the cells' contents may be set with contentcolor, weekdaycontentcolor, weekendcontentcolor, and todaycontentcolor. The contentcolor is the default color of cell content, and the other methods override this for the appropriate days' cells.
# Example:
$cal->bgcolor('white'); # Set the default cell bgcolor
$cal->bordercolor('green'); # Set the default border color
$cal->contentcolor('black'); # Set the default content color
$cal->headercolor('yellow'); # Set the bgcolor of the Month+Year header
$cal->headercontentcolor('yellow'); # Set the content color of the Month+Year header
$cal->weekdayheadercolor('orange'); # Set the bgcolor of weekdays' headers
$cal->weekendheadercontentcolor('blue'); # Set the color of weekday headers' contents
$cal->weekendheadercolor('pink'); # Set the bgcolor of weekends' headers
$cal->weekdayheadercontentcolor('blue'); # Set the color of weekend headers' contents
$cal->weekendcolor('palegreen'); # Override weekends' cell bgcolor
$cal->weekendcontentcolor('blue'); # Override weekends' content color
$cal->todaycolor('red'); # Override today's cell bgcolor
$cal->todaycontentcolor('yellow'); # Override today's content color
print $cal->as_HTML; # Print a really ugly calendar!
=head2 datecolor(DATE,[STRING])
=head2 datecontentcolor(DATE,[STRING])
=head2 datebordercolor(DATE,[STRING])
These methods set the cell color and the content color for the specified date, and will return the current value if STRING is not specified. These color settings will override any of the settings mentioned above, even todaycolor() and todaycontentcolor().
The date may be a numeric date or a weekday string as described in setcontent() et al. Note that if a plural weekday is used (e.g. 'sundays') then, since it's not a single date, the value for the first occurrence of that weekday will be returned (e.g. the first Sunday's color).
# Example: a red-letter day!
$cal->datecolor(3,'pink');
$cal->datecontentcolor(3,'red');
# Example:
# Every Tuesday is a Soylent Green day...
# Note that if the 3rd was a Tuesday, this later assignment would override the previous one.
# see the docs for setcontent() et all for more information.
$cal->datecolor('tuesdays','green');
$cal->datecontentcolor('tuesdays','yellow');
=head2 nowrap([1 or 0])
If set to 1, then calendar cells will have the NOWRAP attribute set, preventing their content from wrapping. If set to 0 (the default) then NOWRAP is not used and very long content may cause cells to become stretched out.
=head2 sharpborders([1 or 0])
If set to 1, this gives very crisp edges between the table cells. If set to 0 (the default) standard HTML cells are used. If neither value is specified, the current value is returned.
FYI: To accomplish the crisp border, the entire calendar table is wrapped inside a table cell.
=head2 cellheight([NUMBER])
This specifies the height in pixels of each cell in the calendar. By default, no height is defined and the web browser usually chooses a reasonable default.
If no value is given, the current value is returned.
To unspecify a height, try specifying a height of 0 or undef.
=head2 tableclass([STRING])
=head2 cellclass([STRING])
=head2 weekdaycellclass([STRING])
=head2 weekendcellclass([STRING])
=head2 todaycellclass([STRING])
=head2 datecellclass(DATE,[STRING])
=head2 headerclass([STRING])
These specify which CSS class will be attributed to the calendar's table and the calendar's cells. By default, no classes are specified or used.
tableclass() sets the CSS class for the calendar table.
cellclass() is used for all calendar cells. weekdaycellclass(), weekendcellclass(), and todaycellclass() override the cellclass() for the corresponding types of cells. headerclass() is used for the calendar's header.
datecellclass() sets the CSS class for the cell for the specified date. This setting will override any of the other cell class settings, even todaycellclass() This date must be numeric; it cannot be a string such as "2wednesday"
If no value is given, the current value is returned.
To unspecify a class, try specifying an empty string, e.g. cellclass('')
=head2 sunday([STRING])
=head2 saturday([STRING])
=head2 weekdays([MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY])
These functions allow the days of the week to be "renamed", which is useful for displaying the weekday headers in another language.
# show the days of the week in Spanish
$cal->saturday('Sábado');
$cal->sunday('Domingo');
$cal->weekdays('Lunes','Martes','Miércoles','Jueves','Viernes');
# show the days of the week in German
$cal->saturday('Samstag');
$cal->sunday('Sonntag');
$cal->weekdays('Montag','Dienstag','Mittwoch','Donnerstag','Freitag');
If no value is specified (or, for weekdays() if exactly 5 arguments aren't given) then the current value is returned.
=head1 BUGS
Send bug reports to the author and log on RT.
=head1 LICENSE
This program is free software licensed under the...
The BSD License
The full text of the license can be found in the LICENSE file included with this module.
Note: Versions prior to 1.26 were licensed under a BSD-like statement "This Perl module is freeware. It may be copied, derived, used, and distributed without limitation."
=head1 AUTHORS, CREDITS, COPYRIGHTS
HTML::CalendarMonth was written and is copyrighted by Matthew P. Sisk and provided inspiration for the module's interface and features. None of Matt Sisk's code appears herein.
HTML::CalendarMonthSimple was written by Gregor Mosheh Frankly, the major inspiration was the difficulty and unnecessary complexity of HTML::CalendarMonth. (Laziness is a virtue.)
This would have been extremely difficult if not for Date::Calc. Many thanks to Steffen Beyer for a very fine set of date-related functions!
Dave Fuller added the getdatehref() and setdatehref() methods, and pointed out the bugs that were corrected in 1.01.
Danny J. Sohier provided many of the color functions.
Bernie Ledwick provided base code for the today*() functions, and for the handling of cell borders.
Justin Ainsworth provided the vcellalignment() concept and code.
Jessee Porter provided fixes for 1.12 to correct those warnings.
Bray Jones supplied the sharpborders(), nowrap(), cellheight(), cellclass() methods.
Bill Turner supplied the headerclass() method and the rest of the methods added to 1.13
Bill Rhodes provided the contentfontsize() method for version 1.14
Alberto Simões provided the tableclass() function and the saturday(), sunday(), and weekdays() functions for version 1.18. Thanks, Alberto, I've been wanting this since the beginning!
Blair Zajac provided the fixes for 1.19
Thanks to Kurt for the bug report that made all the new stuff in 1.21 possible.
Many thanks to Stefano Rodighiero for the code that made weekstartsonmonday() possible. This was a much-requested feature that will make many people happy!
Dan Boitnott provided today_year() et al in 1.23
Peter Venables provided the XML validation fixes for 1.24
=cut
HTML-CalendarMonthSimple-1.27/t/ 0000755 0001750 0001750 00000000000 14767667401 015713 5 ustar mdavis mdavis HTML-CalendarMonthSimple-1.27/t/002_functions.t 0000644 0001750 0001750 00000000473 14051753710 020456 0 ustar mdavis mdavis # -*- perl -*-
# t/001_load.t - check module loading and create testing directory
use Test::More tests => 3;
BEGIN { use_ok( 'HTML::CalendarMonthSimple' ); }
my $cal=HTML::CalendarMonthSimple->new(year=>2010, month=>7);
isa_ok ($cal, 'HTML::CalendarMonthSimple');
is($cal->Days_in_Month, 31, 'Days_in_Month');
HTML-CalendarMonthSimple-1.27/t/001_load.t 0000644 0001750 0001750 00000000401 14051753710 017353 0 ustar mdavis mdavis # -*- perl -*-
# t/001_load.t - check module loading and create testing directory
use Test::More tests => 2;
BEGIN { use_ok( 'HTML::CalendarMonthSimple' ); }
my $object = HTML::CalendarMonthSimple->new ();
isa_ok ($object, 'HTML::CalendarMonthSimple');
HTML-CalendarMonthSimple-1.27/Makefile.PL 0000644 0001750 0001750 00000001603 14767663532 017423 0 ustar mdavis mdavis use ExtUtils::MakeMaker;
WriteMakefile(
NAME => 'HTML::CalendarMonthSimple',
ABSTRACT_FROM => 'lib/HTML/CalendarMonthSimple.pm',
VERSION_FROM => 'lib/HTML/CalendarMonthSimple.pm',
AUTHOR => 'Michael R. Davis - MRDVT',
PREREQ_PM => {
'Test::Simple' => 0.44,
'Date::Calc' => 0,
},
'META_MERGE' => {
'meta-spec' => {
'version' => 2
},
'resources' => {
'repository' => {
'url' => 'git@github.com:mrdvt92/perl-HTML-CalendarMonthSimple.git',
'web' => 'https://github.com/mrdvt92/perl-HTML-CalendarMonthSimple.git',
'type' => 'git'
},
'homepage' => 'https://github.com/mrdvt92/perl-HTML-CalendarMonthSimple',
'bugtracker' => {
'web' => 'https://github.com/mrdvt92/perl-HTML-CalendarMonthSimple/issues'
}
}
},
);
HTML-CalendarMonthSimple-1.27/Changes 0000644 0001750 0001750 00000010214 14767667217 016746 0 ustar mdavis mdavis Revision history for Perl module HTML::CalendarMonthSimple
1.27 2025-03-22
- Moved from internal repo to github repo
- Updated Changes format
- Updated readme to markdown
- Updated from cp1252 to UTF-8 encoding
1.26 2010-07-29
- Maintainence moved from STIGMATA to MRDVT
- Added highlight (RT-3899)
- Added Days_in_Month (RT-58547) methods.
1.25 2005-02-18
- A minor typo correction. Nothing big.
1.24 2003-10-30
- Minor corrections to the HTML so it passes XML validation. Thanks a bundle, Peter!
1.23 2003-05-19
- Added today_year() et al. "Today" can now be overridden in the constructor.
1.22 2003-04-16
- Added the much-desired weekstartsonmonday() method. Now weeks can start on Monday and end with the weekend, instead of the American style of starting on Sunday.
1.21 2003-04-06
- Fixed the internals of setcontent() et al (see the method's doc for details).
- Made getdatehref(), setdatehref(), and datecolor() et al, able to handle weekdays in addition to numeric dates.
1.20 2003-04-04
- was a mistake on my part and was immediately superseded by 1.21.
1.19 2003-01-14
- Fixed as_HTML() such that blank/0 values can be used for various values, e.g. border size, colors, etc. Previously, values had to be non-zero or they were assumed to be undefined.
1.18 2002-07-07
- Added methods: tableclass(), sunday(), saturday(), weekdays(). Now day names can be internationalized!
1.17 2002-05-17
- Corrected B<-w> warnings about uninitialized values in as_HTML().
1.16 2002-05-06
- Fixed a very stupid bug that made addcontent() and setcontent() not work. Sorry!
1.15 2002-05-04
- Added the datecolor(), datecontentcolor(), datebordercolor(), and datecellclass() methods, allowind cosmetic attributes to be changed on a per-date basis.
1.14 2002-05-04
- Added the contentfontsize() method.
1.13 2001-11-11
Added more CSS methods: headerclass(), weekdaycellclass(), weekndcellclass(), todaycellclass(). Added a test to the module distribution at the urging of CPAN testers.
1.12 2001-11-05
- Fixed lots of warnings that were generated if B<-w> was used, due to many values defaulting to undef/blank.
- Added the sharpborders(), nowrap(), cellheight(), cellclass(), and weekdayheadersbig() methods.
- cellclass(), the beginning of CSS support. Thanks, Bray!
1.11 2001-08-18
- The module's VERSION is now properly specified, so "use" statements won't barf if they specify a minimum version.
- Added the vcellalignment() method so vertical content alignment is independent of horizontal alignment.
1.10 2001-07-01
- Estimated date as this version was not released to CPAN
- Added the headercontentcolor(), weekendheadercontentcolor(), and weekdayheadercontentcolor() methods, and made content headers use bgcolors, etc properly.
1.09 2001-06-18
- Fixed the "2Monday", et al support; a bug was found by Dale Wellman where the 7th, 14th, 21st, and 28th days weren't properly computing which Nth weekday they were so "1Monday" wouldn't work if the first Monday was the 7th of the month.
1.08 2001-06-02
- Re-did the bugfixes described in 1.05, handling padded and non-integer dates.
1.07 2001-05-26
- Fixed a typo that caused an entirely empty calendar to be displayed very small.
1.06 2001-05-26
- Changed the "which weekday" interface a bit; truncations such as "2Tue" no longer work, and must be spelled out entirely ("2Tuesday"). Added "plural weekdays" support (e.g. "wednesdays" for "every wednesday").
1.05 2001-05-22
- addcontent(), et al can now take strings such as '06' or decimals such as '3.14' and will handle them correctly.
1.04 2001-05-21
- Added the "which weekday" capability to addcontent(), setcontent(), and getcontent()
1.03 2001-04-25
- More color methods!
1.02 2001-03-10
- Added the color methods.
1.01 2001-03-10
- Added VALIGN to cells, to make alignment work with browsers better.
- Added showweekdayheaders().
- Corrected a bug that results in the month not fitting on the grid (e.g. March 2003).
- Added getdatehref() and setdatehref().
- Corrected a bug that causes a blank week to be printed at the beginning of some months.
1.00 2001-02-08
- Original version on CPAN
HTML-CalendarMonthSimple-1.27/LICENSE 0000644 0001750 0001750 00000003105 14767652471 016455 0 ustar mdavis mdavis The BSD License
Copyright (c) 2005, Gregor Mosheh
Copyright (c) 2010, Michael R. Davis
All rights reserved.
Redistribution and use in source and binary forms, with or without modification,
are permitted provided that the following conditions are met:
Redistributions of source code must retain the above copyright notice,
this list of conditions and the following disclaimer.
Redistributions in binary form must reproduce the above copyright notice,
this list of conditions and the following disclaimer in the documentation
and/or other materials provided with the distribution.
Neither the name of the Satellite Tracking of People, LLC nor the names of its
contributors may be used to endorse or promote products derived from
this software without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE
LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY,
OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
THE POSSIBILITY OF SUCH DAMAGE.
HTML-CalendarMonthSimple-1.27/perl-HTML-CalendarMonthSimple.spec 0000644 0001750 0001750 00000003054 14767662342 023720 0 ustar mdavis mdavis Name: perl-HTML-CalendarMonthSimple
Version: 1.27
Release: 1%{?dist}
Summary: Perl Module for Generating HTML Calendars
License: Distributable, see LICENSE
Group: Development/Libraries
URL: http://search.cpan.org/dist/HTML-CalendarMonthSimple/
Source0: http://www.cpan.org/modules/by-module/HTML/HTML-CalendarMonthSimple-%{version}.tar.gz
BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
BuildArch: noarch
BuildRequires: perl(Date::Calc)
BuildRequires: perl(ExtUtils::MakeMaker)
BuildRequires: perl(Test::Simple) >= 0.44
Requires: perl(Date::Calc)
Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
%description
Note: This package is no longer being maintained by Gregor Mosheh
. It is recommended that new development be
built against HTML::CalendarMonth.
%prep
%setup -q -n HTML-CalendarMonthSimple-%{version}
%build
%{__perl} Makefile.PL INSTALLDIRS=vendor
make %{?_smp_mflags}
%install
rm -rf $RPM_BUILD_ROOT
make pure_install PERL_INSTALL_ROOT=$RPM_BUILD_ROOT
find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} \;
find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null \;
%{_fixperms} $RPM_BUILD_ROOT/*
%check
make test
%clean
rm -rf $RPM_BUILD_ROOT
%files
%defattr(-,root,root,-)
%doc Changes LICENSE README.md
%{perl_vendorlib}/*
%{_mandir}/man3/*
%changelog
* Tue Sep 27 2011 Michael R. Davis (mdavis@stopllc.com) 1.26-1
- Specfile autogenerated by cpanspec 1.78.
HTML-CalendarMonthSimple-1.27/MANIFEST 0000644 0001750 0001750 00000000471 14767667402 016604 0 ustar mdavis mdavis MANIFEST
README.md
LICENSE
Changes
Makefile.PL
lib/HTML/CalendarMonthSimple.pm
t/001_load.t
t/002_functions.t
perl-HTML-CalendarMonthSimple.spec
META.yml Module YAML meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by MakeMaker)
HTML-CalendarMonthSimple-1.27/README.md 0000644 0001750 0001750 00000051650 14767665374 016745 0 ustar mdavis mdavis # NAME
HTML::CalendarMonthSimple - Perl Module for Generating HTML Calendars
# SYNOPSIS
use HTML::CalendarMonthSimple;
$cal = new HTML::CalendarMonthSimple('year'=>2001,'month'=>2);
$cal->width('50%');
$cal->border(10);
$cal->header('Text at the top of the Grid');
$cal->setcontent(14,"Valentine's Day");
$cal->setdatehref(14, 'http://localhost/');
$cal->addcontent(14," Don't forget to buy flowers.");
$cal->addcontent(13,"Guess what's tomorrow?");
$cal->bgcolor('pink');
print $cal->as_HTML;
# DESCRIPTION
Note: This package is no longer being maintained by Gregor Mosheh . It is recommended that new development be built against [HTML::CalendarMonth](https://metacpan.org/pod/HTML%3A%3ACalendarMonth).
HTML::CalendarMonthSimple is a Perl module for generating, manipulating, and printing a HTML calendar grid for a specified month. It is intended as a faster and easier-to-use alternative to HTML::CalendarMonth.
This module requires the Date::Calc module, which is available from CPAN if you don't already have it.
# INTERFACE METHODS
## new(ARGUMENTS)
Naturally, new() returns a newly constructed calendar object.
The optional constructor arguments 'year' and 'month' can specify which month's calendar will be used. If either is omitted, the current value (e.g. "today") is used. An important note is that the month and the year are NOT the standard C or Perl -- use a month in the range 1-12 and a real year, e.g. 2001.
The arguments 'today\_year', 'today\_month', and 'today\_date' may also be specified, to specify what "today" is. If not specified, the system clock will be used. This is particularly useful when the todaycolor() et al methods are used, and/or if you're dealing with multiple timezones. Note that these arguments change what "today" is, which means that if you specify a today\_year and a today\_month then you are effectively specifying a 'year' and 'month' argument as well, though you can also specify a year and month argument and override the "today" behavior.
# Examples:
# Create a calendar for this month.
$cal = new HTML::CalendarMonthSimple();
# A calendar for a specific month/year
$cal = new HTML::CalendarMonthSimple('month'=>2,'year'=>2000);
# Pretend that today is June 10, 2000 and display the "current" calendar
$cal = new HTML::CalendarMonthSimple('today_year'=>2000,'today_month'=>6,'today_date'=>10);
## year
## month
## today\_year
## today\_month
## today\_date
## monthname
These methods simply return the year/month/date of the calendar, as specified in the constructor.
monthname() returns the text name of the month, e.g. "December".
## setcontent(DATE,STRING)
## addcontent(DATE,STRING)
## highlight (@DATE)
Highlights the particular dates given.
$cal->highlight(1,10,22);
## getcontent(DATE)
These methods are used to control the content of date cells within the calendar grid. The DATE argument may be a numeric date or it may be a string describing a certain occurrence of a weekday, e.g. "3MONDAY" to represent "the third Monday of the month being worked with", or it may be the plural of a weekday name, e.g. "wednesdays" to represent all occurrences of the given weekday. The weekdays are case-insensitive.
Since plural weekdays (e.g. 'wednesdays') is not a single date, getcontent() will return the content only for the first occurrence of that day within a month.
# Examples:
# The cell for the 15th of the month will now say something.
$cal->setcontent(15,"An Important Event!");
# Later down the program, we want the content to be boldfaced.
$cal->setcontent(15,"" . $cal->getcontent(15) . "");
# addcontent() does not clobber existing content.
# Also, if you setcontent() to '', you've deleted the content.
$cal->setcontent(16,'');
$cal->addcontent(16,"Hello World ");
$cal->addcontent(16,"Hello Again ");
print $cal->getcontent(16); # Prints 2 sentences
# Padded and decimal numbers may be used, as well:
$cal->setcontent(3.14159,'Third of the month');
$cal->addcontent('00003.0000','Still the third');
$cal->getcontent('3'); # Gets the 2 sentences
# The second Sunday of May is some holiday or another...
$cal->addcontent('2sunday','Some Special Day') if ($cal->month() == 5);
# Every Wednesday is special...
$cal->addcontent('wednesdays','Every Wednesday!');
# either of these will return the content for the 1st Friday of the month
$cal->getcontent('1friday');
$cal->getcontent('Fridays'); # you really should use '1friday' for the first Friday
Note: A change in 1.21 is that all content is now stored in a single set of date-indexed buckets. Previously, the content for weekdays, plural weekdays, and numeric dates were stored separately and could be fetched and set independently. This led to buggy behavior, so now a single storage set is used.
# Example:
# if the 9th of the month is the second Wednesday...
$cal->setcontent(9,'ninth');
$cal->addcontent('2wednesday','second wednesday');
$cal->addcontent('wednesdays','every wednesday');
print $cal->getcontent(9);
In version 1.20 and previous, this would print 'ninth' but in 1.21 and later, this will print all three items (since the 9th is not only the 9th but also a Wednesday and the second Wednesday). This could have implications if you use setcontent() on a set of days, since other content may be overwritten:
# Example:
# the second setcontent() effectively overwrites the first one
$cal->setcontent(9,'ninth');
$cal->setcontent('2wednesday','second wednesday');
$cal->setcontent('wednesdays','every wednesday');
print $cal->getcontent(9); # returns 'every wednesday' because that was the last assignment!
## as\_HTML
This method returns a string containing the HTML table for the month.
# Example:
print $cal->as_HTML();
It's okay to continue modifying the calendar after calling as\_HTML(). My guess is that you'd want to call as\_HTML() again to print the further-modified calendar, but that's your business...
## weekstartsonmonday(\[1|0\])
By default, calendars are displayed with Sunday as the first day of the week (American style). Most of the world prefers for calendars to start the week on Monday. This method selects which type is used: 1 specifies that the week starts on Monday, 0 specifies that the week starts on Sunday (the default). If no value is given at all, the current value (1 or 0) is returned.
# Example:
$cal->weekstartsonmonday(1); # switch over to weeks starting on Monday
$cal->weekstartsonmonday(0); # switch back to the default, where weeks start on Sunday
# Example:
print "The week starts on " . ($cal->weekstartsonmonday() ? 'Sunday' : 'Monday') . "\n";
## Days\_in\_Month
This function returns the number of days on the current calendar.
foreach my $day (1 .. $cal->Days_in_Month) {
$cal->setdatehref($day, &make_url($cal->year, $cal->month, $day));
}
## setdatehref(DATE,URL\_STRING)
## getdatehref(DATE)
These allow the date-number in a calendar cell to become a hyperlink to the specified URL. The DATE may be either a numeric date or any of the weekday formats described in setcontent(), et al. If plural weekdays (e.g. 'wednesdays') are used with getdatehref() the URL of the first occurrence of that weekday in the month will be returned (since 'wednesdays' is not a single date).
# Example:
# The date number in the cell for the 15th of the month will be a link
# then we change our mind and delete the link by assigning a null string
$cal->setdatehref(15,"http://sourceforge.net/");
$cal->setdatehref(15,'');
# Example:
# the second Wednesday of the month goes to some website
$cal->setdatehref('2wednesday','http://www.second-wednesday.com/');
# Example:
# every Wednesday goes to a website
# note that this will effectively undo the '2wednesday' assignment we just did!
# if we wanted the second Wednesday to go to that special URL, we should've done that one after this!
$cal->setdatehref('wednesdays','http://every-wednesday.net/');
## contentfontsize(\[STRING\])
contentfontsize() sets the font size for the contents of the cell, overriding the browser's default. Can be expressed as an absolute (1 .. 6) or relative (-3 .. +3) size.
## border(\[INTEGER\])
This specifies the value of the border attribute to the declaration for the calendar. As such, this controls the thickness of the border around the calendar table. The default value is 5.
If a value is not specified, the current value is returned. If a value is specified, the border value is changed and the new value is returned.
## cellpadding
## cellspacing
## width(\[INTEGER\]\[%\])
This sets the value of the width attribute to the declaration for the calendar. As such, this controls the horizontal width of the calendar.
The width value can be either an integer (e.g. 600) or a percentage string (e.g. "80%"). Most web browsers take an integer to be the table's width in pixels and a percentage to be the table width relative to the screen's width. The default width is "100%".
If a value is not specified, the current value is returned. If a value is specified, the border value is changed and the new value is returned.
# Examples:
$cal->width(600); # absolute pixel width
$cal->width("100%"); # percentage of screen size
## showdatenumbers(\[1 or 0\])
If showdatenumbers() is set to 1, then the as\_HTML() method will put date labels in each cell (e.g. a 1 on the 1st, a 2 on the 2nd, etc.) If set to 0, then the date labels will not be printed. The default is 1.
If no value is specified, the current value is returned.
The date numbers are shown in boldface, normal size font. If you want to change this, consider setting showdatenumbers() to 0 and using setcontent()/addcontent() instead.
## showweekdayheaders(\[1 or 0\])
## weekdayheadersbig(\[1 or 0\])
If showweekdayheaders() is set to 1 (the default) then calendars rendered via as\_HTML() will display the names of the days of the week. If set to 0, the days' names will not be displayed.
If weekdayheadersbig() is set to 1 (the default) then the weekday headers will be in <th> cells. The effect in most web browsers is that they will be boldfaced and centered. If set to 0, the weekday headers will be in <td> cells and in normal text.
For both functions, if no value is specified, the current value is returned.
## cellalignment(\[STRING\])
## vcellalignment(\[STRING\])
cellalignment() sets the value of the align attribute to the | tag for each day's cell. This controls how text will be horizontally centered/aligned within the cells. vcellalignment() does the same for vertical alignment. By default, content is aligned horizontally "left" and vertically "top"
Any value can be used, if you think the web browser will find it interesting. Some useful alignments are: left, right, center, top, and bottom.
## header(\[STRING\])
By default, the current month and year are displayed at the top of the calendar grid. This is called the "header".
The header() method allows you to set the header to whatever you like. If no new header is specified, the current header is returned.
If the header is set to an empty string, then no header will be printed at all. (No, you won't be stuck with a big empty cell!)
# Example:
# Set the month/year header to something snazzy.
my($y,$m) = ( $cal->year() , $cal->monthname() );
$cal->header("$m $y\n\n");
## bgcolor(\[STRING\])
## weekdaycolor(\[STRING\])
## weekendcolor(\[STRING\])
## todaycolor(\[STRING\])
## bordercolor(\[STRING\])
## highlightbordercolor(\[STRING\])
## weekdaybordercolor(\[STRING\])
## weekendbordercolor(\[STRING\])
## todaybordercolor(\[STRING\])
## contentcolor(\[STRING\])
## highlightcontentcolor(\[STRING\])
## weekdaycontentcolor(\[STRING\])
## weekendcontentcolor(\[STRING\])
## todaycontentcolor(\[STRING\])
## headercolor(\[STRING\])
## headercontentcolor(\[STRING\])
## weekdayheadercolor(\[STRING\])
## weekdayheadercontentcolor(\[STRING\])
## weekendheadercolor(\[STRING\])
## weekendheadercontentcolor(\[STRING\])
These define the colors of the cells. If a string (which should be either a HTML color-code like '#000000' or a color-word like 'yellow') is supplied as an argument, then the color is set to that specified. Otherwise, the current value is returned. To unset a value, try assigning the null string as a value.
The bgcolor defines the color of all cells. The weekdaycolor overrides the bgcolor for weekdays (Monday through Friday), the weekendcolor overrides the bgcolor for weekend days (Saturday and Sunday), and the todaycolor overrides the bgcolor for today's date. (Which may not mean a lot if you're looking at a calendar other than the current month.)
The weekdayheadercolor overrides the bgcolor for the weekday headers that appear at the top of the calendar if showweekdayheaders() is true, and weekendheadercolor does the same thing for the weekend headers. The headercolor overrides the bgcolor for the month/year header at the top of the calendar. The headercontentcolor(), weekdayheadercontentcolor(), and weekendheadercontentcolor() methods affect the color of the corresponding headers' contents and default to the contentcolor().
The colors of the cell borders may be set: bordercolor determines the color of the calendar grid's outside border, and is the default color of the inner border for individual cells. The inner bordercolor may be overridden for the various types of cells via weekdaybordercolor, weekendbordercolor, and todaybordercolor.
Finally, the color of the cells' contents may be set with contentcolor, weekdaycontentcolor, weekendcontentcolor, and todaycontentcolor. The contentcolor is the default color of cell content, and the other methods override this for the appropriate days' cells.
# Example:
$cal->bgcolor('white'); # Set the default cell bgcolor
$cal->bordercolor('green'); # Set the default border color
$cal->contentcolor('black'); # Set the default content color
$cal->headercolor('yellow'); # Set the bgcolor of the Month+Year header
$cal->headercontentcolor('yellow'); # Set the content color of the Month+Year header
$cal->weekdayheadercolor('orange'); # Set the bgcolor of weekdays' headers
$cal->weekendheadercontentcolor('blue'); # Set the color of weekday headers' contents
$cal->weekendheadercolor('pink'); # Set the bgcolor of weekends' headers
$cal->weekdayheadercontentcolor('blue'); # Set the color of weekend headers' contents
$cal->weekendcolor('palegreen'); # Override weekends' cell bgcolor
$cal->weekendcontentcolor('blue'); # Override weekends' content color
$cal->todaycolor('red'); # Override today's cell bgcolor
$cal->todaycontentcolor('yellow'); # Override today's content color
print $cal->as_HTML; # Print a really ugly calendar!
## datecolor(DATE,\[STRING\])
## datecontentcolor(DATE,\[STRING\])
## datebordercolor(DATE,\[STRING\])
These methods set the cell color and the content color for the specified date, and will return the current value if STRING is not specified. These color settings will override any of the settings mentioned above, even todaycolor() and todaycontentcolor().
The date may be a numeric date or a weekday string as described in setcontent() et al. Note that if a plural weekday is used (e.g. 'sundays') then, since it's not a single date, the value for the first occurrence of that weekday will be returned (e.g. the first Sunday's color).
# Example: a red-letter day!
$cal->datecolor(3,'pink');
$cal->datecontentcolor(3,'red');
# Example:
# Every Tuesday is a Soylent Green day...
# Note that if the 3rd was a Tuesday, this later assignment would override the previous one.
# see the docs for setcontent() et all for more information.
$cal->datecolor('tuesdays','green');
$cal->datecontentcolor('tuesdays','yellow');
## nowrap(\[1 or 0\])
If set to 1, then calendar cells will have the NOWRAP attribute set, preventing their content from wrapping. If set to 0 (the default) then NOWRAP is not used and very long content may cause cells to become stretched out.
## sharpborders(\[1 or 0\])
If set to 1, this gives very crisp edges between the table cells. If set to 0 (the default) standard HTML cells are used. If neither value is specified, the current value is returned.
FYI: To accomplish the crisp border, the entire calendar table is wrapped inside a table cell.
## cellheight(\[NUMBER\])
This specifies the height in pixels of each cell in the calendar. By default, no height is defined and the web browser usually chooses a reasonable default.
If no value is given, the current value is returned.
To unspecify a height, try specifying a height of 0 or undef.
## tableclass(\[STRING\])
## cellclass(\[STRING\])
## weekdaycellclass(\[STRING\])
## weekendcellclass(\[STRING\])
## todaycellclass(\[STRING\])
## datecellclass(DATE,\[STRING\])
## headerclass(\[STRING\])
These specify which CSS class will be attributed to the calendar's table and the calendar's cells. By default, no classes are specified or used.
tableclass() sets the CSS class for the calendar table.
cellclass() is used for all calendar cells. weekdaycellclass(), weekendcellclass(), and todaycellclass() override the cellclass() for the corresponding types of cells. headerclass() is used for the calendar's header.
datecellclass() sets the CSS class for the cell for the specified date. This setting will override any of the other cell class settings, even todaycellclass() This date must be numeric; it cannot be a string such as "2wednesday"
If no value is given, the current value is returned.
To unspecify a class, try specifying an empty string, e.g. cellclass('')
## sunday(\[STRING\])
## saturday(\[STRING\])
## weekdays(\[MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY\])
These functions allow the days of the week to be "renamed", which is useful for displaying the weekday headers in another language.
# show the days of the week in Spanish
$cal->saturday('Sábado');
$cal->sunday('Domingo');
$cal->weekdays('Lunes','Martes','Miércoles','Jueves','Viernes');
# show the days of the week in German
$cal->saturday('Samstag');
$cal->sunday('Sonntag');
$cal->weekdays('Montag','Dienstag','Mittwoch','Donnerstag','Freitag');
If no value is specified (or, for weekdays() if exactly 5 arguments aren't given) then the current value is returned.
# BUGS
Send bug reports to the author and log on RT.
# LICENSE
This program is free software licensed under the...
The BSD License
The full text of the license can be found in the LICENSE file included with this module.
Note: Versions prior to 1.26 were licensed under a BSD-like statement "This Perl module is freeware. It may be copied, derived, used, and distributed without limitation."
# AUTHORS, CREDITS, COPYRIGHTS
HTML::CalendarMonth was written and is copyrighted by Matthew P. Sisk and provided inspiration for the module's interface and features. None of Matt Sisk's code appears herein.
HTML::CalendarMonthSimple was written by Gregor Mosheh Frankly, the major inspiration was the difficulty and unnecessary complexity of HTML::CalendarMonth. (Laziness is a virtue.)
This would have been extremely difficult if not for Date::Calc. Many thanks to Steffen Beyer for a very fine set of date-related functions!
Dave Fuller added the getdatehref() and setdatehref() methods, and pointed out the bugs that were corrected in 1.01.
Danny J. Sohier provided many of the color functions.
Bernie Ledwick provided base code for the today\*() functions, and for the handling of cell borders.
Justin Ainsworth provided the vcellalignment() concept and code.
Jessee Porter provided fixes for 1.12 to correct those warnings.
Bray Jones supplied the sharpborders(), nowrap(), cellheight(), cellclass() methods.
Bill Turner supplied the headerclass() method and the rest of the methods added to 1.13
Bill Rhodes provided the contentfontsize() method for version 1.14
Alberto Simões provided the tableclass() function and the saturday(), sunday(), and weekdays() functions for version 1.18. Thanks, Alberto, I've been wanting this since the beginning!
Blair Zajac provided the fixes for 1.19
Thanks to Kurt for the bug report that made all the new stuff in 1.21 possible.
Many thanks to Stefano Rodighiero for the code that made weekstartsonmonday() possible. This was a much-requested feature that will make many people happy!
Dan Boitnott provided today\_year() et al in 1.23
Peter Venables provided the XML validation fixes for 1.24
HTML-CalendarMonthSimple-1.27/META.yml 0000644 0001750 0001750 00000001500 14767667401 016715 0 ustar mdavis mdavis ---
abstract: 'Perl Module for Generating HTML Calendars'
author:
- 'Michael R. Davis - MRDVT'
build_requires:
ExtUtils::MakeMaker: '0'
configure_requires:
ExtUtils::MakeMaker: '0'
dynamic_config: 1
generated_by: 'ExtUtils::MakeMaker version 7.60, CPAN::Meta::Converter version 2.150010'
license: unknown
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: '1.4'
name: HTML-CalendarMonthSimple
no_index:
directory:
- t
- inc
requires:
Date::Calc: '0'
Test::Simple: '0.44'
resources:
bugtracker: https://github.com/mrdvt92/perl-HTML-CalendarMonthSimple/issues
homepage: https://github.com/mrdvt92/perl-HTML-CalendarMonthSimple
repository: https://github.com/mrdvt92/perl-HTML-CalendarMonthSimple.git
version: '1.27'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
HTML-CalendarMonthSimple-1.27/META.json 0000644 0001750 0001750 00000002474 14767667402 017101 0 ustar mdavis mdavis {
"abstract" : "Perl Module for Generating HTML Calendars",
"author" : [
"Michael R. Davis - MRDVT"
],
"dynamic_config" : 1,
"generated_by" : "ExtUtils::MakeMaker version 7.60, CPAN::Meta::Converter version 2.150010",
"license" : [
"unknown"
],
"meta-spec" : {
"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
"version" : 2
},
"name" : "HTML-CalendarMonthSimple",
"no_index" : {
"directory" : [
"t",
"inc"
]
},
"prereqs" : {
"build" : {
"requires" : {
"ExtUtils::MakeMaker" : "0"
}
},
"configure" : {
"requires" : {
"ExtUtils::MakeMaker" : "0"
}
},
"runtime" : {
"requires" : {
"Date::Calc" : "0",
"Test::Simple" : "0.44"
}
}
},
"release_status" : "stable",
"resources" : {
"bugtracker" : {
"web" : "https://github.com/mrdvt92/perl-HTML-CalendarMonthSimple/issues"
},
"homepage" : "https://github.com/mrdvt92/perl-HTML-CalendarMonthSimple",
"repository" : {
"type" : "git",
"web" : "https://github.com/mrdvt92/perl-HTML-CalendarMonthSimple.git"
}
},
"version" : "1.27",
"x_serialization_backend" : "JSON::PP version 4.06"
}
| |