Blob Blame History Raw
#!/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: