summaryrefslogtreecommitdiffstats
path: root/libkcal/libical/vzic-1.3/vzic-test.pl
diff options
context:
space:
mode:
Diffstat (limited to 'libkcal/libical/vzic-1.3/vzic-test.pl')
-rwxr-xr-xlibkcal/libical/vzic-1.3/vzic-test.pl164
1 files changed, 0 insertions, 164 deletions
diff --git a/libkcal/libical/vzic-1.3/vzic-test.pl b/libkcal/libical/vzic-1.3/vzic-test.pl
deleted file mode 100755
index 0bf20ea7f..000000000
--- a/libkcal/libical/vzic-1.3/vzic-test.pl
+++ /dev/null
@@ -1,164 +0,0 @@
-#!/usr/bin/perl -w
-
-#
-# 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 <damon@gnome.org>
-#
-# 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
-#
-
-#
-# This outputs an iCalendar file containing one event in each timezone,
-# as well as all the VTIMEZONEs. We use it for testing compatability with
-# other iCalendar apps like Outlook, by trying to import it there.
-#
-# Currently we have 377 timezones (with tzdata2001d).
-#
-
-# Set this to the toplevel directory of the VTIMEZONE files.
-$ZONEINFO_DIR = "/home/damon/src/zoneinfo";
-
-$output_file = "calendar.ics";
-
-
-# Save this so we can restore it later.
-$input_record_separator = $/;
-
-chdir $ZONEINFO_DIR
- || die "Can't cd to $ZONEINFO_DIR";
-
-# Create the output file, to contain all the VEVENTs & VTIMEZONEs.
-open (OUTPUTFILE, ">$output_file")
- || die "Can't create file: $output_file";
-
-# Output the standard header.
- print OUTPUTFILE <<EOF;
-BEGIN:VCALENDAR
-PRODID:-//Ximian//NONSGML Vzic Test//EN
-VERSION:2.0
-METHOD:PUBLISH
-EOF
-
-$zone_num = 0;
-
-# 365 days in a non-leap year.
-@days_in_month = ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );
-
-foreach $file (`find -name "*.ics"`) {
- # Get rid of './' at start and whitespace at end.
- $file =~ s/^\.\///;
- $file =~ s/\s+$//;
-
- if ($file eq $output_file) {
- next;
- }
-
-# print "File: $file\n";
-
- # Get the VTIMEZONE data.
- open (ZONEFILE, "$file")
- || die "Can't open file: $ZONEINFO_DIR/$file";
- undef $/;
- $vtimezone = <ZONEFILE>;
- $/ = $input_record_separator;
- close (ZONEFILE);
-
- # Strip the stuff before and after the VTIMEZONE component
- $vtimezone =~ s/^.*BEGIN:VTIMEZONE/BEGIN:VTIMEZONE/s;
- $vtimezone =~ s/END:VTIMEZONE.*$/END:VTIMEZONE\n/s;
-
- print OUTPUTFILE $vtimezone;
-
- # Find the TZID.
- $vtimezone =~ m/TZID:(.*)/;
- $tzid = $1;
-# print "TZID: $tzid\n";
-
- # Find the location.
- $file =~ m/(.*)\.ics/;
- $location = $1;
-# print "LOCATION: $location\n";
-
- # Try to find the current UTC offset that Outlook will use.
- # If there is an RRULE, we look for the first 2 TZOFFSETTO properties,
- # else we just get the first one.
- if ($vtimezone =~ m/RRULE/) {
- $vtimezone =~ m/TZOFFSETTO:([+-]?\d+)/;
- $tzoffsetto = $1;
- $vtimezone =~ m/TZOFFSETFROM:([+-]?\d+)/;
- $tzoffsetfrom = $1;
- $tzoffset = "$tzoffsetfrom/$tzoffsetto";
- } else {
- $vtimezone =~ m/TZOFFSETTO:([+-]?\d+)/s;
- $tzoffset = $1;
- }
-# print "TZOFFSET: $tzoffset\n";
-
- # We put each event on a separate day in 2001 and Jan 2002.
- $day_num = $zone_num;
- if ($day_num >= 365) {
- $year = 2002;
- $day_num -= 365;
- } else {
- $year = 2001;
- }
- $month = -1;
- for ($i = 0; $i < 12; $i++) {
- if ($day_num < $days_in_month[$i]) {
- $month = $i;
- last;
- }
- $day_num -= $days_in_month[$i]
- }
- if ($month == -1) {
- die "month = -1";
- }
-
- $month++;
- $day_num++;
- $date = sprintf ("%i%02i%02i", $year, $month, $day_num);
-# print "Date: $date\n";
-
- # Output a VEVENT using the timezone.
- print OUTPUTFILE <<EOF;
-BEGIN:VEVENT
-UID:vzic-test-${zone_num}
-DTSTAMP:20010101T000000Z
-DTSTART;TZID=${tzid}:${date}T120000
-DTEND;TZID=${tzid}:${date}T130000
-RRULE:FREQ=MONTHLY;BYMONTHDAY=${day_num}
-SUMMARY:($tzoffset) ${location} 12:00-13:00 UTC
-SEQUENCE:1
-END:VEVENT
-EOF
-
- $zone_num++;
-
- # Use this to stop after a certain number.
-# last if ($zone_num == 100);
-}
-
-# Output the standard footer.
- print OUTPUTFILE <<EOF;
-END:VCALENDAR
-EOF
-
-close (OUTPUTFILE);
-