Requirements:

• Linux
• IR port for your computer
• IR drivers/services installed (google for this)
• Nokia 3360 (or something comparable model phone; try yours and let me know if it works)
• ircp (google for this as well)
• Term::ReadKey

Here's how it works: click "Contacts" in your Evolution "Shortcuts" menu; in your menubar go to "Edit"->"Select All"; then "File"->"Save as VCard" to a working directory that you don't mind alot of .vcf files piling up in (one per contact).

Set your phone to receive in it's "Infrared" menu. Now, grab this script, make it executable, and run it like so: ./ev2noki.pl contactsFromEvolution.vcf, making sure that your phone's IR port and your computer's IR port are aligned (pointing at each other). I use a mirror since my IR port is on the back of my laptop.

The script immediately begins transmitting each contact individual, causing your phone to ring and prompt you to accept the transmission. Then you need to hit any key on your computer to initiate the next transmission. Yes, I know this sucks and takes a while for a large number of contacts but I've been unable to locate documentation on how to transmit them all at once. When I do, I'll update the script. It'll also be available at http://dpatrick.perlmonk.org/code.

D.

#!/usr/bin/perl

use strict;

my $i = 1;

my $list_vcf_file = @ARGV[0];
open(LISTVCF, $list_vcf_file);

while(<LISTVCF>) {
    if (/(^BEGIN:VCARD\r\n$)/) {
        open(ENTRY, ">./$i.vcf");
        print ENTRY $1;
    }
    elsif (/(^\r\n$)/) {
        print ENTRY $1;
        close ENTRY;
        print "Initiating vCard transmission #$i...\n";
        print `ircp $i.vcf 2>&1`;
        print "Hit any key for next transmission....\n";
        use Term::ReadKey;
        ReadMode('cbreak');
        my $key;
        while (not defined ($key = ReadKey(0))) {
        1;
        }
        ReadMode('normal');
        $i++;
    }
    elsif (/(^END:VCARD\r\n$)/) {
        print ENTRY $1;
    }
    else {
        s/FN/X-EV2NOKI-ORIG-FN/;
        s/X-EVOLUTION-FILE-AS/FN/;
        print ENTRY $_;
    }
}

close LISTVCF;

print "\nDone.";
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.