Changeset 330

Timestamp:

07/27/06 14:25:22 (2 years ago)

Author:

ogawa

Message:

Add TZID properties to DTSTART and DTEND.

Files:

• cybozu2ical/trunk/cybozu2ical (modified) (7 diffs)

cybozu2ical/trunk/cybozu2ical

@@ -19 +19 @@
 
 our $VERSION = '0.05';
-our $ENCODE_NCR = 0;
 
 my %opt = (conf => 'config.yaml');
@@ -26 +25 @@
 
 my $cfg = YAML::LoadFile($opt{conf});
-my $tz = DateTime::TimeZone->new(name => $cfg->{time_zone} || 'Asia/Tokyo');
 
 my $ua = LWP::UserAgent->new();
@@ -46 +44 @@
 my @lines = grep /^\d+,ts\.\d+,/, split(/\r?\n/, $content);
 
+my $tzid = $cfg->{time_zone} || 'Asia/Tokyo';
+my $tz = DateTime::TimeZone->new(name => $tzid);
+
 my $vcalendar = Data::ICal->new();
 $vcalendar->add_properties(
@@ -52 +53 @@
     method => 'PUBLISH',
     $cfg->{calname} ? ('X-WR-CALNAME' => $cfg->{calname}) : (),
-    $cfg->{time_zone} ? ('X-WR-TIMEZONE' => $cfg->{time_zone}) : (),
+    'X-WR-TIMEZONE' => $tzid
 );
 
@@ -82 +83 @@
                 $dt0->add(minutes => 10) : dt2ical($dt1);
         }
-        $vevent->add_properties(dtstart => $dtstart, dtend => $dtend);
+        $vevent->add_properties(
+            dtstart => [$dtstart, { TZID => $tzid }],
+            dtend => [$dtend, { TZID => $tzid }]
+        );
     }
 
@@ -99 +103 @@
 
 my $vtimezone = Data::ICal::Entry::TimeZone->new();
-$vtimezone->add_properties(tzid => $tz->name);
+$vtimezone->add_properties(tzid => $tzid);
 
 # probably we need to support the Daylight Saving Time
@@ -119 +123 @@
 
 my $enc = $cfg->{output_encoding} || 'utf8';
-print ($enc eq 'ncr') ?
+print $enc eq 'ncr' ?
     encode_ncr($vcalendar->as_string) :
     encode($enc, $vcalendar->as_string);