Text-vCard reviews

cpanratings
 

RSS | Module Info | Add a review of Text-vCard

Text-vCard (3.02) ****

Hi, I've troubles with `Text::vCard::Addressbook' when used `CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE' into .vcf file. It cuts the long string of more then 13 characters utf-8 encoding.For fix it, I've made this patch:

--- /usr/local/lib/perl5/site_perl/5.16/Text/vCard/Addressbook.pm~ 2014-02-14 22:37:27.000000000 +0400
+++ /usr/local/lib/perl5/site_perl/5.16/Text/vCard/Addressbook.pm 2014-04-08 11:49:08.000000000 +0400
@@ -290,9 +290,10 @@

my $inside = 0;

foreach my $line ( split( "\x0D\x0A", $text ) ) {

+ $line .= "\x0D\x0A";

if ($inside) {
- if ( $line =~ /=$/ ) {
- $line =~ s/=$//;
+ if ( $line =~ /=\x0D\x0A$/ ) {
+ $line =~ s/=\x0D\x0A$//;

} else {

$inside = 0;

}
@@ -300,9 +301,9 @@

if ( $line =~ /ENCODING=QUOTED-PRINTABLE/i ) {

$inside = 1;
- $line =~ s/=$//;
+ $line =~ s/=\x0D\x0A$//;

}
- $out .= $line . "\x0D\x0A";
+ $out .= $line;

}

$text = $out;

Text-vCard (2.03) **

I had trouble getting this to work as described. Good example code is what's needed but there is little to examine and the docs are skimpy.

All I could extract and use from a vCard was the name and address. I could not extract phone numbers.

I like the idea though, and I believe there is a need for a good vCard module, or at least some more working example code for this one.

Text-vCard (1.5) ****

After rewriting the code the vCard became easier to handle. Now it's neat and sleek. I use it to import vcf's to my online-address book and it works!