Re: NET::FTP Package

[Zitoune]

Here's the code

use Net::FTP;
$G_FTP_SITE = &Config_Get("TOTAL_CARE FTP_SITE");
$G_FTP_USERNAME    = &Config_Get("TOTAL_CARE FTP_USERNAME");
$G_FTP_PASSWORD    = &Config_Get("TOTAL_CARE FTP_PASSWORD");

$ftp = Net::FTP->new( "$G_FTP_SITE" );
$ftp->login( "$G_FTP_USERNAME","$G_FTP_PASSWORD" ); 
$ftp->binary ();

$ftp->put( "file.txt" );

$ftp->quit;

[insensate]

Use strict.
And trap for errors:

use strict;
my $ftp = Net::FTP->new( "$G_FTP_SITE" ) or die "Can't connect: $!";
$ftp->login( "$G_FTP_USERNAME","$G_FTP_PASSWORD" ) or die "Can't login
+: $!; 
$ftp->binary () or die "Can't set mode to bin: $!";