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
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