passive mode for FTP transfer of invoice spools, RT#17925

diff --git a/FS/FS/Cron/upload.pm b/FS/FS/Cron/upload.pm
index 5fe8131..c266797 100644 (file)
--- a/FS/FS/Cron/upload.pm
+++ b/FS/FS/Cron/upload.pm
@@ -231,7 +231,7 @@ sub spool_upload {
 
       my($hostname, $path) = ($1, $2);
 
-      my $ftp = new Net::FTP($hostname)
+      my $ftp = new Net::FTP($hostname, Passive=>1)
         or die "can't connect to $hostname: $@\n";
       $ftp->login($username, $password)
         or die "can't login to $hostname: ". $ftp->message."\n";