Laszlo (Laca) Peter
5b67a84071
2007-06-20 Laszlo (Laca) Peter <laca@sun.com> * configure.in: make the path to perl configurable and add addressbook/tools/csv2vcard to AC_OUTPUT. Part of the fix for bug #433732 2007-06-20 Laszlo (Laca) Peter <laca@sun.com> ** Fix for bug #433732 * tools/Makefile.am: expand @PERL@ in evolution-addressbook-clean.in * tools/csv2vcard: rename to csv2vcard.in * tools/csv2vcard.in: make the path to perl configurable * tools/evolution-addressbook-clean.in: make the path to perl configurable svn path=/trunk/; revision=33711
25 lines
578 B
Plaintext
25 lines
578 B
Plaintext
#!@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");
|
|
|