$Cnf{"Language"}="English";
# 12/10 = Dec 10 (US) or Oct 12 (anything else)
$Cnf{"DateFormat"}="US";
# Local timezone
$Cnf{"TZ"}="";
# Timezone to work in (""=local, "IGNORE", or a timezone)
$Cnf{"ConvTZ"}="";
# Date::Manip internal format (0=YYYYMMDDHH:MN:SS, 1=YYYYHHMMDDHHMNSS)
$Cnf{"Internal"}=0;
# First day of the week (1=monday, 7=sunday). ISO 8601 says monday.
$Cnf{"FirstDay"}=1;
# First and last day of the work week (1=monday, 7=sunday)
$Cnf{"WorkWeekBeg"}=1;
$Cnf{"WorkWeekEnd"}=5;
# If non-nil, a work day is treated as 24 hours long (WorkDayBeg/WorkDayEnd
# ignored)
$Cnf{"WorkDay24Hr"}=0;
# Start and end time of the work day (any time format allowed, seconds
# ignored)
$Cnf{"WorkDayBeg"}="08:00";
$Cnf{"WorkDayEnd"}="17:00";
# If "today" is a holiday, we look either to "tomorrow" or "yesterday" for
# the nearest business day. By default, we'll always look "tomorrow"
# first.
$Cnf{"TomorrowFirst"}=1;
# Erase the old holidays
$Cnf{"EraseHolidays"}="";
# Set this to non-zero to be produce completely backwards compatible deltas
$Cnf{"DeltaSigns"}=0;
# If this is 0, use the ISO 8601 standard that Jan 4 is in week 1. If 1,
# make week 1 contain Jan 1.
$Cnf{"Jan1Week1"}=0;
# 2 digit years fall into the 100 year period given by [ CURR-N,
# CURR+(99-N) ] where N is 0-99. Default behavior is 89, but other useful
# numbers might be 0 (forced to be this year or later) and 99 (forced to be
# this year or earlier). It can also be set to "c" (current century) or
# "cNN" (i.e. c18 forces the year to bet 1800-1899). Also accepts the
# form cNNNN to give the 100 year period NNNN to NNNN+99.
$Cnf{"YYtoYYYY"}=89;
# Set this to 1 if you want a long-running script to always update the
# timezone. This will slow Date::Manip down. Read the POD documentation.
$Cnf{"UpdateCurrTZ"}=0;
# Use an international character set.
$Cnf{"IntCharSet"}=0;
# Use this to force the current date to be set to this:
$Cnf{"ForceDate"}="";
# Use this to make "today" mean "today at midnight".
$Cnf{"TodayIsMidnight"}=0;
###########################################################################
require 5.000;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
DateManipVersion
Date_Init
ParseDateString
ParseDate
ParseRecur
Date_Cmp
DateCalc
ParseDateDelta
UnixDate
Delta_Format
Date_GetPrev
Date_GetNext
Date_SetTime
Date_SetDateField
Date_IsHoliday
Events_List
Date_DaysInMonth
Date_DayOfWeek
Date_SecsSince1970
Date_SecsSince1970GMT
Date_DaysSince1BC
Date_DayOfYear
Date_DaysInYear
Date_WeekOfYear
Date_LeapYear
Date_DaySuffix
Date_ConvTZ
=2= |