Changeset 300

Timestamp:

04/16/06 19:32:22 (2 years ago)

Author:

ogawa

Message:

Add more robust timezone support.
Add a document.

Files:

• cybozu2ical/trunk/cybozu2ical.pl (modified) (5 diffs, 1 prop)

cybozu2ical/trunk/cybozu2ical.pl

@@ -1 +1 @@
-#!/usr/bin/perl
-.pl: converting CybozuOffice
+: Convert Cybozu Office 
-#
-Hirotaka Ogawa (hirotaka.ogawa at gmail.com)
+$Id$
-
-use strict;
@@ -13 +13 @@
-use Data::ICal::Entry::TimeZone;
-use Data::ICal::Entry::TimeZone::Standard;
-
-
-
+
+
+
+
-
-my $cfg = YAML::LoadFile($ARGV[0] || 'config.yaml');
+my $tz = DateTime::TimeZone->new(name => $cfg->{time_zone} || 'Asia/Tokyo');
-
-my $ua = LWP::UserAgent->new();
@@ -48 +50 @@
-
-# current timestamp
-Date::ICal->new(epoch => time)->ical
+dt2ical(DateTime->from_epoch(epoch => time))
-
-while ($#lines != -1) {
@@ -59 +61 @@
-    my $epoch = $fields[1];
-    $epoch =~ s/ts\.//;
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
-
-    my $vevent = Data::ICal::Entry::Event->new();
@@ -94 +85 @@
-
-my $vtimezone = Data::ICal::Entry::TimeZone->new();
-
-
+
+
+
-my $standard = Data::ICal::Entry::TimeZone::Standard->new();
+
+my $dt = cydate2dt("1970/01/01", "00:00:00", $tz);
+my $offset = DateTime::TimeZone::offset_as_string($dt->offset) || '+0900';
+my $tzname = $cfg->{tzname} || $tz->short_name_for_datetime($dt) || 'JST';
+
-$standard->add_properties(
-'+0900'
-'+0900'
-'JST'
-'19700101T000000'
+$offset
+$offset
+$tzname
+dt2ical($dt)
-);
-
-$vtimezone->add_entry($standard);
+
-$vcalendar->add_entry($vtimezone);
-
-print $vcalendar->as_string;
-
+sub cydate2dt {
+    my($date, $time, $tz) = @_;
+    my @d = split("/", $date);
+    my @t = split(":", $time);
+
+    my $dt = DateTime->new(
+        year => $d[0], month => $d[1], day => $d[2],
+        hour => $t[0] || 0, minute => $t[1] || 0, second => $t[2] || 0,
+        time_zone => $tz || 'Asia/Tokyo'
+    );
+    return $dt;
+}
+
+sub dt2ical {
+    my($dt) = @_;
+    $dt->ymd('') . 'T' . $dt->hms('') . ($dt->time_zone->is_utc ? 'Z' : '');
+}
+
-1;
+=head1 NAME
+
+cybozu2ical - Convert CybozuOffice6 calendar into iCal format
+
+=head1 SYNOPSIS
+
+  % cybozu2ical
+  % cybozu2ical /path/to/config.yaml
+
+=head1 DESCRIPTION
+
+=head1 DESCRIPTION
+
+C<cybozu2ical> is a command line application that fetches Cybozu
+Office 6 calendar items and converts them into a iCal file.  It allows
+you to easily integrate the Cybozu Calendar into iCalendar-enabled
+Calendar applications, such as Microsoft Outlook, Apple iCal, and of
+course, Google Calendar.
+
+You can run this via crontab, for example, every 1 hour.
+
+=head1 REQUIREMENT
+
+This application requires perl 5.8.0 with following Perl modules
+installed on your box.
+
+=over 4
+
+=item Data::ICal
+
+=item DateTime
+
+=item YAML
+
+=back
+
+=head1 OPTIONS
+
+This application has a command-line option as follows:
+
+=over 4
+
+=item path/to/config.yaml
+
+Specified the path to a configuration file. By default, C<config.yaml>
+in the current directory.
+
+=back
+
+=head1 CONFIGURATION
+
+The distributions includes a sample configuration file
+C<config.yaml.sample>. You can rename it to C<config.yaml> and
+configure C<cybozu2ical>.
+
+=over 4
+
+=item cybozu_url
+
+Set the URL of your Cybozu Office 6.
+
+=item username, password
+
+Set your username and password for Cybozu Office 6.
+
+=item time_zone
+
+Set the timezone of your Cybozu Office 6 (e.g., Asia/Tokyo).
+
+=item tzname
+
+Set the short timezone name of your Cybozu Office 6 (e.g., JST).
+
+=back
+
+=head1 DEVELOPMENT
+
+The development version is always available from the following
+subversion repository:
+
+  svn://svn.as-is.net/public/cybozu2ical/trunk
+
+You can browse the files via SVN::Web from the following:
+
+  http://svn.as-is.net/svnweb/public/browse/cybozu2ical/trunk/
+
+Any comments, suggestions, or patches are welcome.
+
+=head1 AUTHOR
+
+Hirotaka Ogawa E<lt>hirotaka.ogawa at gmail.comE<gt>
+
+This script is free software and licensed under the same terms as Perl
+(Artistic/GPL).
+
+=cut