PERL : ftp retry ...

#!/usr/bin/perl

use Sys::Hostname;
use Net::FTP;


$ftp_host="192.168.0.2";
$ftp_usr="login";
$ftp_mdp="pass";
$ftp_destination_rep = '/home/data/';

$email_from='from@domain.com';
$email_to='to@domain.com';

$ftp_ok=false;
until ($retry == 0 || $ftp_ok) {
	print "appel";
	$ftp_ok=ftp_upload($repertoire_destinataire,$fichier_destinataire);
	print "retour : $ftp_ok\n";
	$retry--;
	if (!$ftp_ok) {sleep(30);}
}


sub ftp_upload
{
	($repertoire, $fichier) = @_;
	
	$ftp = Net::FTP->new($ftp_host, Debug => 0, Timeout=>240)
		or do {
			print "connexion impossible sur $ftp_host: $@\n";
			return 0;
		};
		#or die "Cannot connect to $goftp_ftp: $@";
	
	$ftp->login($ftp_usr,$ftp_mdp)
		or do {
			print "login impossible sur $ftp_host:",$ftp->message;
			return 0;
		};
		#or die "Cannot login ", $ftp->message; 
	
	print "upload de $repertoire/$fichier\n";
	
	$ftp->put("$repertoire/$fichier")
		or do {
			print "put impossible sur $ftp_host de $repertoire$fichier :",$ftp->message;
			return 0;
		};
		#or die "put failed ", $ftp->message;
	
	print "fin upload de $repertoire/$fichier\n";
	
	$ftp->quit;
	return 1;
}
__END__