[MacPerl] Net::FTP + file truncation

[Ben Brewer <bbrewer@europa.com>]

Hi!

I've been using the code below to successfully upload all the files in a
folder on my mac to our web server.  Files over a certain length however
(seems to be about 20k), are truncated when I check the new copies on the
server.  Any thoughts on why this is and how to circumvent it would be most
appreciated!

Thanks!


#local source for files to be uploaded
chdir($dbDirectory);
opendir(D, $dbDirectory)
	or die "Could not open $dbDirectory: $!";

my $ftp = Net::FTP->new("$remoteHost");
$ftp->login($usr, $pswd);
$ftp->cwd($directory);

foreach my $fileToSend (readdir(D)) {
	$ftp->put($fileToSend, $fileToSend)
		or die "Could not put $fileToSend\n";
}

$ftp->quit();



===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org