Changeset 363

Timestamp:

03/22/07 16:34:31 (20 months ago)

Author:

ogawa

Message:

Add --debug option. This allows you to include the original CSV line as the COMMENT field for each VEVENT.

Location:

cybozu2ical/trunk

Files:

• cybozu2ical (modified) (2 diffs)
• lib/WWW/CybozuOffice6/Calendar.pm (modified) (1 diff)

cybozu2ical/trunk/cybozu2ical

@@ -21 +21 @@
 
 my %opt = (conf => 'config.yaml');
-GetOptions(\%opt, 'help', 'conf=s') or pod2usage(2);
+GetOptions(\%opt, 'help', 'debug', 'conf=s') or pod2usage(2);
 pod2usage(1) if $opt{help};
 
@@ -44 +44 @@
         description => decode_utf8($item->{description}),
         created     => to_icaldate($item->{created}),
-        dtstamp     => to_icaldate($item->{modified})
+        dtstamp     => to_icaldate($item->{modified}),
     );
+
+    $args{comment} = decode_utf8($item->{debug_info})
+        if $opt{debug} && $item->{debug_info};
 
     if ($item->{is_full_day}) {

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

@@ -54 +54 @@
             $this->_parse_recurrent_event(@fields) :
             $this->_parse_general_event(@fields);
+        $item->{debug_info} = $line; # save the CSV line as for debug info.
         push @items, $item if $item;
     }