Changeset 372

Show
Ignore:
Timestamp:
06/08/07 01:48:15 (1 year ago)
Author:
ogawa
Message:

cybozu_urlのhost partを取り出す操作をWWW/CybozuOffice6/Calendar.pmにオフロード。

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • cybozu2ical/trunk/cybozu2ical

    r370 r372  
    7070 
    7171    # set uid (recommended to be the identical syntax to RFC822) 
    72     $args{uid} = $args{created} . '-' . $item->id . '@' . URI->new($cfg->{cybozu_url})->host; 
     72    $args{uid} = $args{created} . '-' . $item->id . '@' . $cal->host; 
    7373 
    7474    $vevent->add_properties(%args); 

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

    r371 r372  
    1010use Text::CSV_XS; 
    1111 
    12 our $VERSION = '0.02'; 
     12our $VERSION = '0.03'; 
    1313 
    1414sub new { 
    1515    my($class, %param) = @_; 
    1616    $param{url} ||= delete $param{cybozu_url}; 
     17    $param{host} ||= URI->new($param{url})->host; 
    1718    $param{ua} ||= LWP::UserAgent->new(); 
    1819    bless \%param, $class; 
    …… 
    2021 
    2122sub url                 { shift->_accessor('url',               @_) } 
     23sub host                { shift->_accessor('host',              @_) } 
    2224sub username            { shift->_accessor('username',          @_) } 
    2325sub userid              { shift->_accessor('userid',            @_) } 
    …… 
    320322=over 8 
    321323 
     324=item id (string) 
     325 
     326A unique id. 
     327 
    322328=item start (DateTime object) 
    323329