path: root/tools/evolution-addressbook-clean.in

#! /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");