Mercurial > hg > Applications > Calcon
changeset 14:6ee8b90426e7 n702iD
*** empty log message ***
| author | kono |
|---|---|
| date | Fri, 24 Mar 2006 00:53:50 +0900 |
| parents | 3ac4a1a56ca3 |
| children | d0692e1c031f |
| files | Calcon.pm README |
| diffstat | 2 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/Calcon.pm Thu Mar 23 22:59:13 2006 +0900 +++ b/Calcon.pm Fri Mar 24 00:53:50 2006 +0900 @@ -3391,7 +3391,15 @@ # $self->print "x-custom2:$data\n" if($data); # } if (defined $record{'group'} ) { + my $gno; $record{'group'} =~ s/[\n\r]*//g; + if (! defined($self->{'-group'}->{$record{'group'}})) { + # group 00 は特別らしい。 + $gno = $self->{-group}->{$record{'group'}}= ++$self->{'-groupno'}; + } else { + $gno = $self->{'-group'}->{$record{'group'}}; + } + $self->print( "X-GNO:$gno\n"); $self->print( "X-GN;CHARSET=SHIFT_JIS:".$record{'group'}."\n"); }
--- a/README Thu Mar 23 22:59:13 2006 +0900 +++ b/README Fri Mar 24 00:53:50 2006 +0900 @@ -44,6 +44,8 @@ Mac OS X のiCal, Address Book, Applescript 経由です 'Entourage' => 'Calcon::Entourage_write', Mac OS X のEntourage X, Applescript 経由です + 'N702' => 'Calcon::Vcard_N702iD_write', + Docomo 携帯電話のVcard 'File' => 'Calcon::File_write', 独自のフラットファイルフォーマット (EUC)