Importar contactos ovi (nokia) al iphone

El problema: Instalé Whatsapp en mi ipod, pero como esta aplicación de mensajería trabaja con los contactos del teléfono (ipod en este caso) no tengo amigos para usar este servicio. Así que pienso cargar todos los contactos que tenga para poder saber quien tiene la aplicación y poder chatear con ellos.

La idea: tengo algunos contactos en https://contactsui.ovi.com que sincronicé justo antes que me robaran el teléfono, así que tengo que tomar esos contactos, formatearlos (csv, ldif, vcf, etc), para luego importarlos en el ipod.

Primero pensé en hacer un script usando WWW::Mechanize para obtener los contactos y guardarlos en un archivo .csv pero revisando la página noté que se pueden mostrar como lista (por defecto muestra miniatura), así que para mi fue más fácil simplemente copiar y pegar en una hoja de cálculo.

imagen-21

Luego guardé el documento como archivo .csv para trabajar mejor con los datos. Quedando de esta forma:

nombre,apellido,organizacion,telefono,correo,
aaa,bbb,ccc,333,correo@algo.com

La aplicación que estoy usando para importar los contactos al ipod es Contacts tool, que trabaja con el formato LDIF. Lo primero que hice fue crear un contacto directamente con el ipod con los campos que me interesaban (nombre,apellido, organización, teléfono,correo) y lo exporté desde esta aplicación para usarlo como plantilla al generar este archivo (es muy cómodo compartir estos archivos porque permite enviarlos por correo y para obtener datos levanta un servidor web).

El archivo generado tiene este formato:

version: 1
dn: cn=vida boheme
objectclass: top
objectclass: person
objectclass: organizationalPerson
objectclass: inetOrgPerson
objectclass: ctoolPerson
cn: vida boheme
givenName: vida
sn: boheme
mobile: 001122334455
description: mal tripeo lo del 27/12/2010 11:41:36 p.m. en mcy

A partir de aquí hice un script en perl (básico) para obtener como archivo de entrada un .csv y devolver el LDIF, para luego importar este a Contact tools.

#!usr/bin/perl
print "version: 1\n";
while(<>){
	@linea = split(",",$_);
	print "dn: cn=$linea[0] $linea[1] \n";
print <<BLOQ1;
objectclass: top
objectclass: person
objectclass: organizationalPerson
objectclass: inetOrgPerson
objectclass: ctoolPerson
BLOQ1
	print "cn: $linea[0] $linea[1]\n";
	print "givenName: $linea[0]\n";
	print "sn: $linea[1]\n" if $linea[1];
	print "mobile: $linea[3]\n";
	print "o: $linea[2]\n" if $linea[2] ;
	print "ctoolHomeMail: $linea[4]\n" if $linea[4] ;
	print "\n";
}

el modo de uso es:

perl script-perl.pl archivo.csv > nuevoarchivo.ldif

 

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s