Changeset 502 for cybozu2ical/trunk/cybozu2ical

Timestamp:

08/27/08 20:00:00 (4 months ago)

Author:

ogawa

Message:

Add experimental support for Cybozu Office 7.

Files:

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

cybozu2ical/trunk/cybozu2ical

@@ -7 +7 @@
 use lib 'lib';
 
-use Encode qw/decode_utf8 encode/;
-use WWW::CybozuOffice6::Calendar;
+use Encode qw( decode_utf8 encode );
 use Data::ICal;
 use Data::ICal::Entry::Event;
@@ -108 +107 @@
 );
 
-# Obtain Cybozu Office 6 Calendar items
-my $cal = WWW::CybozuOffice6::Calendar->new(%$cfg);
+# Obtain Cybozu Office 6/7 Calendar items
+my $cal_class = $cfg->{cybozu_version} == 7 ?
+    'WWW::CybozuOffice7::Calendar' : 'WWW::CybozuOffice6::Calendar';
+eval "use $cal_class;";
+my $cal = $cal_class->new(%$cfg);
 
 if ($opt{'input-csv'}) {
@@ -255 +257 @@
 =item DateTime
 
-=item YAML
+=item YAML or YAML::Tiny
 
 =back