Net::FTP

["Simon B. Nielsen" <sslug@sslug>]

Jeg prøver at bruge Net::FTP til at overføre en backup fra en server til en
anden. Problemet er bare at der kun bliver overført en lille del og så
stoppes der. Jeg gør følgende:

use strict;
use Net::FTP;

my($directory) = "C:\\MSSQL7\\BACKUP\\datadir\\";
opendir(DIR, $directory) || die($directory." not found");
my(@dir) = grep{-f $directory.$_} readdir DIR;
closedir DIR;

@dir = reverse(sort(@dir));
my($file) = $dir[0];

my($ftp) = Net::FTP->new("xxx.xxx.xxx.xxx", Debug => 0);
$ftp->login("xxxxx",xxxxx);
$ftp->type('binary');
$ftp->put($directory.$file);
$ftp->quit;

Filen der skal overføres fylder næsten 50 MB, men der bliver overført 4k. Er
der nogen der ved hvorfor det går galt? Jeg har prøvet uden $ftp->quit;, men
det ændrede ikke noget.

Simon