Rsync com File::Rsync

leo_tech
(usa Fedora)

Enviado em 15/04/2011 - 16:54h

Pessoal,

Estou com uma dúvida num script que estou criando em perl.
Esta assim:

my $obj = File::Rsync->new( { archive => 1, compress => 1, rsh => "/usr/bin/ssh", 'rsync-path' => '/usr/bin/rsync', 'stats' => 0,} );
$obj->exec( { src => '/root', dest => "root\@192.168.0.236:/home/usuario/teste" } )or warn "A transferencia falhou!\n";

Como estou iniciando em Perl, gostaria de saber como tratar o erro para posteriormente enviar um e-mail...
Se o rsync falhar eu já tenho a mensagem "A transferencia falhou!", mas quando o rsync roda com sucesso não tenho status...

Se alguem pudar dar uma ajuda agradeço...

Att,
Leandro César