#!/usr/bin/perl

use File::Rsync;

# Backup Zimbra using "rsync"
my $rsync_obj = File::Rsync->new( {
        'rsync-path'    => '/usr/bin/rsync',
        'archive'       => 1,
        'recursive'     => 1,
        'links'         => 1,
        'hard-links'    => 1,
        'keep-dirlinks' => 1,
        'perms'         => 1,
        'owner'         => 1,
        'group'         => 1,
        'devices'       => 1,
        'times'         => 1
} );
$rsync_obj->exec( { src => "/opt/zimbra/", dest => "/home/czaveri/backups/zimbra-sep-17-2006" } ) or warn "rsync failed\n";