File: evolution-addressbook-clean

package info (click to toggle)
evolution 2.0.4-2sarge3
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 86,600 kB
  • ctags: 29,239
  • sloc: ansic: 282,229; sh: 11,353; xml: 7,480; makefile: 3,293; perl: 1,591
file content (24 lines) | stat: -rw-r--r-- 633 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
#! /usr/bin/perl -w

sub do_system
{
    my ($command) = @_;
    system ($command);
    if ($? != 0) {
	die "Command failed: $command";
    }
}

$filename = `/home/evolution-dist//libexec/evolution/2.0/evolution-addressbook-export`;
if ($? != 0) {
    $! = $?;
    die $!;
}

$HOME = $ENV{"HOME"};

system ("/home/evolution-dist//libexec/evolution/2.0/killev");
do_system ("/bin/mv ${HOME}/evolution/local/Contacts/addressbook.db ${HOME}/evolution/local/Contacts/addressbook-backup.db");
do_system ("/home/evolution-dist//libexec/evolution/2.0/evolution-addressbook-import --input-file $filename");
do_system ("/bin/rm $filename");