rdelaage
/
postgresql
mirror of https://git.postgresql.org/git/postgresql.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Update win32tzlist.pl for the new location of our Windows timezone map. 

I wasn't aware of this script till Magnus mentioned it just now ...
This commit is contained in:
Tom Lane 2011-09-23 21:42:24 -04:00
parent 0c8eda6258
commit 14a183261a
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/tools/win32tzlist.pl
View File

@ -8,11 +8,11 @@
#################################################################
#
# This script compares the timezone information in the Windows
# registry with that in pgtz.c. A list of changes will be written
# to stdout - no attempt is made to automatically edit the file.
# This script compares the timezone information in the Windows registry
# with that in src/bin/initdb/findtimezone.c. A list of changes will be
# written to stdout - no attempt is made to automatically edit the file.
#
# Run the script from the src/timezone directory.
# Run the script from the top-level PG source directory.
#
use strict;
@ -20,6 +20,8 @@ use warnings;
use Win32::Registry;
my $tzfile = 'src/bin/initdb/findtimezone.c';
#
# Fetch all timezones in the registry
#
@ -57,16 +59,16 @@ $basekey->Close();
# Fetch all timezones currently in the file
#
my @file_zones;
open(PGTZ,'<pgtz.c') or die "Could not open pgtz.c!\n";
open(TZFILE,"<$tzfile") or die "Could not open $tzfile!\n";
my $t = $/;
undef $/;
my $pgtz = <PGTZ>;
close(PGTZ);
my $pgtz = <TZFILE>;
close(TZFILE);
$/ = $t;
# Attempt to locate and extract the complete win32_tzmap struct
$pgtz =~ /win32_tzmap\[\] =\s+{\s+\/\*[^\/]+\*\/\s+(.+?)};/gs
or die "Could not locate struct win32_tzmap in pgtz.c!";
or die "Could not locate struct win32_tzmap in $tzfile!";
$pgtz = $1;
# Extract each individual record from the struct