Changeset 502

Timestamp:

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

Author:

ogawa

Message:

Add experimental support for Cybozu Office 7.

Location:

cybozu2ical/trunk

Files:

• config.yaml.sample (modified) (2 diffs)
• cybozu2ical (modified) (3 diffs)
• lib/WWW/CybozuOffice6/Calendar.pm (modified) (1 diff)
• lib/WWW/CybozuOffice7 (added)
• lib/WWW/CybozuOffice7/Calendar.pm (added)

cybozu2ical/trunk/config.yaml.sample

@@ -1 +1 @@
 cybozu_url: http://www.example.com/cbag/ag.cgi
+cybozu_version: 7
 calname: Your Calendar Name
 username: user
@@ -8 +9 @@
 input_encoding: shiftjis
 output_encoding: utf8
+date_range: 30

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

cybozu2ical/trunk/lib/WWW/CybozuOffice6/Calendar.pm

@@ -189 +189 @@
 
     my %args;
-    return unless $ymd && $ymd =~ m!^(\d+)/(\d+)/(\d+)$!;
+    return unless $ymd && ($ymd =~ m!^(\d+)/(\d+)/(\d+)$! || $ymd =~ m!^da\.(\d+)\.(\d+)\.(\d+)$!);
     @args{qw(year month day)} = ($1, $2, $3);