Changeset 502 for cybozu2ical/trunk/lib/WWW

Timestamp:

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

Author:

ogawa

Message:

Add experimental support for Cybozu Office 7.

Location:

cybozu2ical/trunk/lib/WWW

Files:

• CybozuOffice6/Calendar.pm (modified) (1 diff)
• CybozuOffice7 (added)
• CybozuOffice7/Calendar.pm (added)

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);