Blob Blame History Raw
#!/usr/bin/perl -w
# Copyright (c) 2010-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.

###############################################################################
###############################################################################
# This script is used to automatically generate the Date::Manip::DM5abbrevs
# modeul used in Date::Manip 5.xx .

use lib "./lib";

require 5.010000;
use strict;
use warnings;

use Date::Manip::Zones;
use Date::Manip::TZ;

our($VERSION);
$VERSION='6.60';

our($DEBUG);
$DEBUG = 0;

our(@keep);
@keep = qw(
      idlw   -1200
      nt     -1100
      sat    -0400
      cldt   -0300
      at     -0200
      utc    +0000
      mewt   +0100
      mez    +0100
      fwt    +0100
      gb     +0100
      swt    +0100
      mesz   +0200
      fst    +0200
      metdst +0200
      eetdst +0300
      eetedt +0300
      bt     +0300
      it     +0330
      zp4    +0400
      zp5    +0500
      ist    +0530
      zp6    +0600
      awst   +0800
      rok    +0900
      aest   +1000
      acdt   +1030
      cadt   +1030
      aedt   +1100
      eadt   +1100
      nzt    +1200
      idle   +1200
         );

############################################################################
# MAIN PROGRAM
############################################################################

my $year = ( localtime(time) )[5] + 1900;
my $tz   = new Date::Manip::TZ;

my $podstr = '=pod';    # so the CPAN indexer won't treat this as a POD file

print "package Date::Manip::DM5abbrevs;
# Copyright (c) 2003-$year 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.

########################################################################
########################################################################

$podstr

=head1 NAME

Date::Manip::DM5abbrevs - A list of all timezone abbreviations

=head1 SYNPOSIS

This module is not intended to be used directly. Date::Manip 5.xx
will load it as needed.

This module contains all of the time zone abbreviations from
Date::Manip 6.xx copied backwards to 5.xx to provide slightly
better support for time zones.

Note that this is only a bandaid fix, and does not add proper
time zone handling to version 5.xx .

=cut

require 5.000;

use strict;
use warnings;

our(\$VERSION);
\$VERSION='6.60';

END {
   my \$tmp;
   \$tmp = \\\$Date::Manip::DM5::Abbrevs;
}

\$Date::Manip::DM5::Abbrevs = join(' ',qw(
";

my @tmp = @keep;
my %off;
while (@tmp) {
   my($abb) = shift(@tmp);
   my($off) = shift(@tmp);
   $off{$abb} = $off;
   print "      $abb" . " "x(6-length($abb)) . " $off\n";
}
print "\n";

# We have to come up with the best offset for each abbreviation.
#
# We'll look first at values in the current year.
# Then we'll look back in time.

ABBREV: foreach my $abbrev (sort keys %Date::Manip::Zones::Abbrev) {
   my @zone = @{ $Date::Manip::Zones::Abbrev{$abbrev} };

   foreach my $zone (@zone) {
      my @period = $tz->all_periods($zone,$year);
      foreach my $period (@period) {
         my @per = @$period;
         my $abb = lc($per[4]);
         next  if ($abb ne $abbrev);
         my $off = $per[3];
         my ($h,$m,$s) = @$off;
         $h += 0;
         next  if ($s != 0);

         my $sign;
         if ($h < 0) {
            $h *= -1;
            $m *= -1;
            $sign = "-";
         } else {
            $sign = "+";
         }
         $h = "0$h"  if (length($h) == 1);
         $m = "0$m"  if (length($m) == 1);
         $off = "$sign$h$m";

         print "      $abb" . " "x(6-length($abb)) . " $off\n";
         $off{$abb} = $off;
         next ABBREV;
      }
   }

   # If we've arrived here, we didn't find the abbreviation in
   # the current year, so we need to go back in time.

   my $best_off  = "";
   my $best_date = "0001010100:00:00";

   print ":: Abbrev = $abbrev...\n"  if ($DEBUG);

 ZONE:foreach my $zone (@zone) {
      my @period = $tz->periods($zone,undef,$year);
      while (@period) {
         my $period = pop(@period);

         my @per  = @$period;
         my $date = $per[10];
         my $abb  = lc($per[4]);
         next  if ($abb ne $abbrev);
         my $off = $per[3];
         my ($h,$m,$s) = @$off;
         $h += 0;
         next  if ($s != 0);

         my $sign;
         if ($h < 0  ||
             ($h == 0  &&  $m < 0)) {
            $h *= -1;
            $m *= -1;
            $sign = "-";
         } else {
            $sign = "+";
         }
         $h = "0$h"  if (length($h) == 1);
         $m = "0$m"  if (length($m) == 1);

         if ($date lt $best_date) {
            print "::     $zone => $best_off [ $best_date ]\n"  if ($DEBUG);
            next ZONE;
         }

         $best_off = "$sign$h$m";
         $best_date = $date;

         print "::     $zone => $best_off [ $best_date ] ***\n"  if ($DEBUG);
         next ZONE;
      }
   }

   if ($best_off) {
      $off{$abbrev} = $best_off;
      print "      $abbrev" . " "x(6-length($abbrev)) . " $best_off\n";
   }
   next ABBREV;
}

print "));

$podstr

=head1 TIMEZONES

The following timezones are defined:

";

foreach my $abb (sort keys %off) {
   my $off = $off{$abb};
   print "      " . uc($abb) . " "x(6-length($abb)) . " $off\n";
}

print "

=head1 LICENSE

This script is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=head1 AUTHOR

Sullivan Beck (sbeck\@cpan.org)

=cut

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: