.\" Automatically generated by Pod::Man 2.28 (Pod::Simple 3.30)
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings.  \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote.  \*(C+ will
.\" give a nicer C++.  Capital omega is used to do unbreakable dashes and
.\" therefore won't be available.  \*(C` and \*(C' expand to `' in nroff,
.\" nothing in troff, for use with C<>.
.tr \(*W-
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
.    ds C`
.    ds C'
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el       .ds Aq '
.\"
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.\"
.\" Avoid warning from groff about undefined register 'F'.
.de IX
..
.nr rF 0
.if \n(.g .if rF .nr rF 1
.if (\n(rF:(\n(.g==0)) \{
.    if \nF \{
.        de IX
.        tm Index:\\$1\t\\n%\t"\\$2"
..
.        if !\nF==2 \{
.            nr % 0
.            nr F 2
.        \}
.    \}
.\}
.rr rF
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear.  Run.  Save yourself.  No user-serviceable parts.
.    \" fudge factors for nroff and troff
.if n \{\
.    ds #H 0
.    ds #V .8m
.    ds #F .3m
.    ds #[ \f1
.    ds #] \fP
.\}
.if t \{\
.    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
.    ds #V .6m
.    ds #F 0
.    ds #[ \&
.    ds #] \&
.\}
.    \" simple accents for nroff and troff
.if n \{\
.    ds ' \&
.    ds ` \&
.    ds ^ \&
.    ds , \&
.    ds ~ ~
.    ds /
.\}
.if t \{\
.    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
.    ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
.    ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
.    ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
.    ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
.    ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
.\}
.    \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
.    \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
.    \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
\{\
.    ds : e
.    ds 8 ss
.    ds o a
.    ds d- d\h'-1'\(ga
.    ds D- D\h'-1'\(hy
.    ds th \o'bp'
.    ds Th \o'LP'
.    ds ae ae
.    ds Ae AE
.\}
.rm #[ #] #H #V #F C
.\" ========================================================================
.\"
.IX Title "CAL 1"
.TH CAL 1 "2001-06-06" "perl v5.20.0" "User Contributed Perl Documentation"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
.nh
.SH "NAME"
cal.pl \- member of the Perl Power Tools.
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
cal.pl [\-jy?] [[month] year]
.PP
If no arguments are supplied, the current month will be displayed.  If only the
\&\-j flag is passed as an argument, the current month will be displayed with
julian day numbering (see below).
.SS "\s-1FLAGS\s0"
.IX Subsection "FLAGS"
Below is a list of the flags that can be passed to cal.pl, and their meanings.
.IP "\-j" 4
.IX Item "-j"
displays the requested date using julian days for the numbers.  That is, each
day number is the day of the year for that day.  Thus, in non leap-years,
December 31 is day 365.
.IP "\-y" 4
.IX Item "-y"
displays the calendar for the current year.  Note this is mutually
exclusive with
the \-n flag above.
.IP "\-?" 4
displays information and usage instructions for the program.  If this flag
is included
in any flag combination, it overrides all other flags.
.SS "\s-1MONTH/YEAR\s0"
.IX Subsection "MONTH/YEAR"
If only one number is supplied, this number will be used as the year.  If
two numbers
are supplied, the first will be the month, and the second will be the year.
 Valid
months are 1 through 12, and valid years are 1 through 9999.
.PP
\&\fB\s-1NOTE:\s0\fR dates must be fully defined.  Entering a year of 99 means 99 \s-1AD,\s0
not 1999 \s-1AD.\s0
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
cal.pl generates calendars from 1 \s-1AD\s0 through 9999 \s-1AD,\s0 in the following format.
.PP
\&\ \ \ \ \ \ \ \ \ March\ 1999\ \ \ \ \ \ \ \ \ \ \ \ Su\ \ \ M\ \ Tu\ \ \ W\ \ Th\ \ \ F\ \ Sa\ \ \ \ \ \ \ \ 1\ \ \ 2\ \ \ 3\ \ \ 4\ \ \ 5\ \ \ 6\ \ \ \ 7\ \ \ 8\ \ \ 9\ \ 10\ \ 11\ \ 12\ \ 13\ \ \ 14\ \ 15\ \ 16\ \ 17\ \ 18\ \ 19\ \ 20\ \ \ 21\ \ 22\ \ 23\ \ 24\ \ 25\ \ 26\ \ 27\ \ \ 28\ \ 29\ \ 30\ \ 31\ 
.PP
It takes into account the conversion from the Julian Calendar to the
Gregorian Calendar
in September, 1752.  Note that this was the date used in the \s-1UK\s0 and all of
her colonies
(including the U.S.).  Thus, in September, 1752, there were only 19 days.
Eleven days
had to be removed from the calendar to make up for inaccuracies in the
Julian Calendar.
So, September 2, 1752 was followed by September 14, 1752 in the \s-1UK\s0 and all
colonies,
as shown below.
.PP
\&\ \ \ \ \ \ \ September\ 1752\ \ \ \ \ \ \ \ \ \ Su\ \ \ M\ \ Tu\ \ \ W\ \ Th\ \ \ F\ \ Sa\ \ \ \ \ \ \ \ \ \ \ \ 1\ \ \ 2\ \ 14\ \ 15\ \ 16\ \ \ 17\ \ 18\ \ 19\ \ 20\ \ 21\ \ 22\ \ 23\ \ \ 24\ \ 25\ \ 26\ \ 27\ \ 28\ \ 29\ \ 30\ 
.PP
The Julian calendar has a leap year every 4 years.  The Gregorian calendar has
a leap year based on the following:  If the year is evenly divisible by
400, it is a leap
year, else, if the year is evenly divisible by 4, and not evenly divisible
by 100, it is
a leap year.  All other years are not leap years.  There is some contention
over whether
4 \s-1AD\s0 was a leap year or not.  Not all the experts agree, as there was a
counting error
in the beginning of the Julian calendar with regards to leap years that had
to be
corrected, and thus some years that would normally have been leap years
were not.  This
calendar assumes that 4 \s-1AD\s0 was indeed a leap year.
.SH "FURTHER READING"
.IX Header "FURTHER READING"
The calculations used in this calendar, as well as information on when the
calendar was
switched over, and the implications thereof, were obtained from information
found at
the following \s-1URL. \s0 If you would like to find out more about calendars, I
highly
suggest taking a look.
.PP
\&\fI\s-1URL:\s0 http://www.pip.dknet.dk/~c\-t/calendar.html\fR
.SH "AUTHOR"
.IX Header "AUTHOR"
Michael E. Schechter
mschechter@earthlink.net
.SH "COPYRIGHT INFORMATION"
.IX Header "COPYRIGHT INFORMATION"
This application is distributed as part of the Perl Power Tools.  Feel free
to copy,
modify, delete, or whatever you would like with this file, under the
information
contained in the \s-1GNU GPL.\s0