#!/usr/bin/perl -w
# Copyright (c) 2008-2017 Sullivan Beck. All rights reserved.
# This program is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
# We will store all critical dates for all past years, and years
# up to some point in the future. Critical dates past that year
# will be calculated on the fly. $keep_years is the number of
# years in the future which will be kept explicitly.
#
# This ensures that years in the near future can be accessed quickly,
# and that all years past a threshold are assumed to be static
# (with respect to how critical dates are calculated).
#
# This is the number of years in the future to keep. For testing
# purposes, we'll compare years beyond that to make sure that the
# critical dates are constant. This value ($test_years) must be
# greater than $keep_years.
my($keep_years,$test_years);
$keep_years = 50;
$test_years = 60;
$curr_year = (localtime)[5] + 1900;
$keep_year = $curr_year + $keep_years;
$test_year = $curr_year + $test_years;
# Autogenerated module information
$zones_pm = "lib/Date/Manip/Zones.pm";
$zones_pod = $zones_pm;
$zones_pod =~ s/\.pm/.pod/;
$mod_dir = "lib/Date/Manip/TZ";
$off_dir = "lib/Date/Manip/Offset";
# Most zones have a LAST RULE that includes exactly 1 ST (i.e. an offset
# of 00:00) and 1 DST (some other offset).
#
# The following zones are exceptions:
%last_zone_offsets =
(
# "America/Resolute" => { "dst" => 0,
# "st" => 2, },
);
# The following zone(s) will not use a LAST RULE to calculate time zone
# changes past $keep_year. Instead, they will use all dates from a dump,
# and nothing beyond that.
#
# Asia/Jerusalem uses a non-standard way based on the Hebrew calendar.
%no_last = map { $_,1 } qw(Asia/Jerusalem Asia/Tehran);
1;
# Local Variables:
# mode: cperl
# indent-tabs-mode: nil
# cperl-indent-level: 3
# cperl-continued-statement-offset: 2
# cperl-continued-brace-offset: 0
# cperl-brace-offset: 0
# cperl-brace-imaginary-offset: 0
# cperl-label-offset: 0
# End: