Changeset 519

Timestamp:

09/04/08 18:52:52 (3 months ago)

Author:

ogawa

Message:

UID must be identical for every cybozu2ical run.

Files:

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

cybozu2ical/trunk/cybozu2ical

@@ -139 +139 @@
         created     => to_icaldate( $item->created ),
         dtstamp     => to_icaldate( $item->modified ),
-        $opt{url}
-        ? ( url => $cal->url . '?page=ScheduleView&EID=' . $item->id )
-        : (),
     );
 
@@ -192 +189 @@
 
     # set uid (recommended to be the identical syntax to RFC822)
-    if ( $opt{uid} ) {
-        my $host = URI->new( $cal->url )->host || 'localhost';
-        $args{uid} = $args{created} . '-' . $item->id . '@' . $host;
-    }
+    $args{uid} =
+      $item->id . '@' . ( URI->new( $cal->url )->host || 'localhost' )
+      if $opt{uid};
+
+    $args{url} = $cal->url . '?page=ScheduleView&EID=' . $item->id
+      if $opt{url};
 
     $vevent->add_properties(%args);