Changeset 233

Show
Ignore:
Timestamp:
08/23/06 20:44:50 (2 years ago)
Author:
miya
Message:

Publish::iCal: fix setting organizer property

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • plagger/trunk/lib/Plagger/Plugin/Publish/iCal.pm

    r231 r233  
    66use Data::ICal; 
    77use Data::ICal::Entry::Event; 
     8use Email::Address; 
    89 
    910sub register { 
    …… 
    3435 
    3536    for my $entry ($feed->entries) { 
     37        my $address = ( Email::Address->parse($entry->author) )[0]; 
     38        my $mail = eval { $address->address } || 'nobody@example.com'; 
     39        my $name = eval { $address->name } || $entry->author; 
     40 
    3641        my $date = $entry->date; 
    3742        my $event = Data::ICal::Entry::Event->new; 
    …… 
    3944            summary     => $entry->title . ' - ' . $entry->author, 
    4045            description => $entry->summary || $entry->body, 
    41             organizer   => $entry->author, 
     46            organizer   => [ "MAILTO:$mail", { cn => $name } ], 
    4247            url         => $entry->link, 
    4348            dtstart     => join('', split('-', $date->ymd)),