Allow setting the IP address on which to listen for connections.

tests/ftpserver.pl

@@ -82,6 +82,7 @@ my $ipv6;
 my $ext; # append to log/pid file names
 my $grok_eprt;
 my $port = 8921; # just a default
+my $listenaddr = "127.0.0.1"; # just a default
 my $pidfile = ".ftpd.pid"; # a default, use --pidfile
 
 do {
@@ -109,6 +110,10 @@ do {
         $port = $ARGV[1];
         shift @ARGV;
     }
+    elsif($ARGV[0] eq "--addr") {
+        $listenaddr = $ARGV[1];
+        shift @ARGV;
+    }
 } while(shift @ARGV);
 
 sub catch_zap {
@@ -569,7 +574,8 @@ sub PASV_command {
 
     if($cmd ne "EPSV") {
         # PASV reply
-        my $p="127,0,0,1";
+        my $p=$listenaddr;
+        $p =~ s/\./,/g;
         if($pasvbadip) {
             $p="1,2,3,4";
         }