forked from libical/vzic
-
Notifications
You must be signed in to change notification settings - Fork 0
/
vzic-merge.pl
executable file
·132 lines (104 loc) · 3.82 KB
/
vzic-merge.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
#!/usr/bin/perl -w
use Getopt::Long;
#
# Vzic - a program to convert Olson timezone database files into VZTIMEZONE
# files compatible with the iCalendar specification (RFC2445).
#
# Copyright (C) 2001 Ximian, Inc.
# Copyright (C) 2003 Damon Chaplin.
#
# Author: Damon Chaplin <[email protected]>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
#
#
# This merges in a new set of VTIMEZONE files with the 'master' set. It only
# updates the files in the master set if the VTIMEZONE component has really
# been changes. Note that the TZID normally includes the date the VTIMEZONE
# file was generated on, so we have to ignore this when comparing the files.
#
# Set these to the toplevel directories of the 2 sets of VTIMEZONE files.
$MASTER_ZONEINFO_DIR = "/home/allen/projects/libical/libical/zoneinfo";
$NEW_ZONEINFO_DIR = "/home/allen/projects/libical/vzic/zoneinfo";
# Set this to 1 if you have version numbers in the TZID like libical.
$LIBICAL_VERSIONING = 1;
# Set this to 0 for dry-runs, and 1 to actually update.
$DO_UPDATES = 1;
GetOptions(
'master-zoneinfo-dir=s' => \$MASTER_ZONEINFO_DIR,
'new-zoneinfo-dir=s' => \$NEW_ZONEINFO_DIR,
) or die 'Invalid command-line arguments';
# Save this so we can restore it later.
$input_record_separator = $/;
chdir $NEW_ZONEINFO_DIR
|| die "Can't cd to $NEW_ZONEINFO_DIR";
foreach $new_file (`find -name "*.ics"`) {
# Get rid of './' at start and whitespace at end.
$new_file =~ s/^\.\///;
$new_file =~ s/\s+$//;
# print "File: $new_file\n";
open (NEWZONEFILE, "$new_file")
|| die "Can't open file: $NEW_ZONEINFO_DIR/$new_file";
undef $/;
$new_contents = <NEWZONEFILE>;
$/ = $input_record_separator;
close (NEWZONEFILE);
$master_file = $MASTER_ZONEINFO_DIR . "/$new_file";
# print "Master File: $master_file\n";
$copy_to_master = 0;
# If the ics file exists in the master copy we have to compare them,
# otherwise we can just copy the new file into the master directory.
if (-e $master_file) {
open (MASTERZONEFILE, "$master_file")
|| die "Can't open file: $master_file";
undef $/;
$master_contents = <MASTERZONEFILE>;
$/ = $input_record_separator;
close (MASTERZONEFILE);
$new_contents_copy = $new_contents;
# Strip the TZID from both contents.
$new_contents_copy =~ s/^TZID:\S+$//m;
$new_tzid = $&;
$master_contents =~ s/^TZID:\S+$//m;
$master_tzid = $&;
# print "Matched: $master_tzid\n";
if ($new_contents_copy ne $master_contents) {
print "$new_file has changed. Updating...\n";
$copy_to_master = 1;
if ($LIBICAL_VERSIONING) {
# We bump the version number in the new file.
$master_tzid =~ m%_(\d+)/%;
$version_num = $1;
# print "Version: $version_num\n";
$version_num++;
$new_tzid =~ s%_(\d+)/%_$version_num/%;
# print "New TZID: $new_tzid\n";
$new_contents =~ s/^TZID:\S+$/$new_tzid/m;
}
}
} else {
print "$new_file doesn't exist in master directory. Copying...\n";
$copy_to_master = 1;
}
if ($copy_to_master) {
# print "Updating: $new_file\n";
if ($DO_UPDATES) {
open (MASTERZONEFILE, ">$master_file")
|| die "Can't create file: $master_file";
print MASTERZONEFILE $new_contents;
close (MASTERZONEFILE);
}
}
}