Is there something I'm missing in Net::FTP? The script below works for
one file but not for another.
#!/usr/in/perl
use strict;
use Net::FTP;
my $hostname = 'web.host.address';
my %hostoptn = ('Passive' => 1, 'Debug' => 1);
my $username = 'myusername';
my $password = 'mypassword';
my $home = 'my/home/directory';
my $file2ftp = 'My HD:My Folder:Another Folder:filename.html';
my $filename = 'filename.html';
my $ftp = Net::FTP->new($hostname, %hostoptn);
$ftp->login($username, $password);
$ftp->cwd($home);
$ftp->ascii;
$ftp->put($file2ftp);
$ftp->quit;
This script works consistently for one file but not for another. On
failure, the server returns: "425 Data connection error".
--
Rev. Leland R. Beaudrot
A fisher of men, using the Net. >((((("> ~Jesus
http://www.arpsynod.org/
