diff options
Diffstat (limited to 'tools/evolution-addressbook-clean.in')
-rw-r--r-- | tools/evolution-addressbook-clean.in | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/tools/evolution-addressbook-clean.in b/tools/evolution-addressbook-clean.in deleted file mode 100644 index ec407296da..0000000000 --- a/tools/evolution-addressbook-clean.in +++ /dev/null @@ -1,24 +0,0 @@ -#! /usr/bin/perl -w - -sub do_system -{ - my ($command) = @_; - system ($command); - if ($? != 0) { - die "Command failed: $command"; - } -} - -$filename = `@EVOLUTION_BINDIR@/evolution-addressbook-export`; -if ($? != 0) { - $! = $?; - die $!; -} - -$HOME = $ENV{"HOME"}; - -system ("@EVOLUTION_BINDIR@/killev"); -do_system ("/bin/mv ${HOME}/evolution/local/Contacts/addressbook.db ${HOME}/evolution/local/Contacts/addressbook-backup.db"); -do_system ("@EVOLUTION_BINDIR@/evolution-addressbook-import --input-file $filename"); -do_system ("/bin/rm $filename"); - |