25 lines
564 B
Perl
25 lines
564 B
Perl
#! /usr/bin/perl -w
|
|
|
|
sub do_system
|
|
{
|
|
my ($command) = @_;
|
|
system ($command);
|
|
if ($? != 0) {
|
|
die "Command failed: $command";
|
|
}
|
|
}
|
|
|
|
$filename = `@EVOLUTION_TOOLSDIR@/evolution-addressbook-export`;
|
|
if ($? != 0) {
|
|
$! = $?;
|
|
die $!;
|
|
}
|
|
|
|
$HOME = $ENV{"HOME"};
|
|
|
|
system ("@EVOLUTION_TOOLSDIR@/killev");
|
|
do_system ("/bin/mv ${HOME}/evolution/local/Contacts/addressbook.db ${HOME}/evolution/local/Contacts/addressbook-backup.db");
|
|
do_system ("@EVOLUTION_TOOLSDIR@/evolution-addressbook-import --input-file $filename");
|
|
do_system ("/bin/rm $filename");
|
|
|