Changeset 513

Timestamp:

08/29/08 19:33:40 (3 months ago)

Author:

ogawa

Message:

Add --uid, --no-uid, --url, --no-url for CLI options.

Location:

cybozu2ical/trunk

Files:

• README.txt (modified) (1 diff)
• cybozu2ical (modified) (4 diffs)

cybozu2ical/trunk/README.txt

@@ -49 +49 @@
     --output-csv /path/to/output.csv
         Specify the output CSV file for debugging.
+
+    --uid, --no-uid
+        Enable/disable UID fields of the iCalendar file.
+
+    --url, --no-url
+        Enable/disable URL fields of the iCalendar file.
 
     --help

cybozu2ical/trunk/cybozu2ical

@@ -89 +89 @@
     conf                     => 'config.yaml',
     'compat-google-calendar' => 0,
+    'uid'                    => 1,
+    'url'                    => 1,
 );
 GetOptions( \%opt, 'output=s', 'conf=s', 'compat-google-calendar', 'debug',
-    'input-csv=s', 'output-csv=s', 'help', )
+    'input-csv=s', 'output-csv=s', 'help', 'uid!', 'url!' )
   or pod2usage(2);
 pod2usage(1) if $opt{help};
@@ -137 +139 @@
         created     => to_icaldate( $item->created ),
         dtstamp     => to_icaldate( $item->modified ),
-        url         => $cal->url . '?page=ScheduleView&EID=' . $item->id,
+        $opt{url}
+        ? ( url => $cal->url . '?page=ScheduleView&EID=' . $item->id )
+        : (),
     );
 
@@ -188 +192 @@
 
     # set uid (recommended to be the identical syntax to RFC822)
-    my $host = URI->new($cal->url)->host || 'localhost';
-    $args{uid} = $args{created} . '-' . $item->id . '@' . $host;
+    if ( $opt{uid} ) {
+        my $host = URI->new( $cal->url )->host || 'localhost';
+        $args{uid} = $args{created} . '-' . $item->id . '@' . $host;
+    }
 
     $vevent->add_properties(%args);
@@ -313 +319 @@
 Specify the output CSV file for debugging.
 
+=item --uid, --no-uid
+
+Enable/disable UID fields of the iCalendar file.
+
+=item --url, --no-url
+
+Enable/disable URL fields of the iCalendar file.
+
 =item --help