diff options
| author | nobody <nobody@localhost> | 2003-01-09 14:55:40 +0800 |
|---|---|---|
| committer | nobody <nobody@localhost> | 2003-01-09 14:55:40 +0800 |
| commit | 207669a524a8b10269bbe4657c0feca8bbb813c6 (patch) | |
| tree | 1e12040caec266ee2e16460c80583d4af3687d10 /tools/evolution-addressbook-clean.in | |
| parent | 45d0c39700d2d6ee12f45c17778d69f3119ba078 (diff) | |
| download | gsoc2013-evolution-before-new-aspell.tar.gz gsoc2013-evolution-before-new-aspell.tar.zst gsoc2013-evolution-before-new-aspell.zip | |
This commit was manufactured by cvs2svn to create tagbefore-new-aspell
'before-new-aspell'.
svn path=/tags/before-new-aspell/; revision=19351
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"); - |