b93babd6d0
2006-01-09 Ali Akcaagac / Andre Klapper <a9016009@gmx.de> * tools/evolution-addressbook-clean.in: changing old evo1.4 path to current path. Fixes bug 307513. Committing on behalf of Ali Akcaagac. svn path=/trunk/; revision=31104
25 lines
586 B
Perl
25 lines
586 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/addressbook/local/system/addressbook.db ${HOME}/.evolution/addressbook/local/system/addressbook-backup.db");
|
|
do_system ("@EVOLUTION_TOOLSDIR@/evolution-addressbook-import --input-file $filename");
|
|
do_system ("/bin/rm $filename");
|
|
|