diff options
author | Daniel Stenberg <daniel@haxx.se> | 2001-04-24 21:09:53 +0000 |
---|---|---|
committer | Daniel Stenberg <daniel@haxx.se> | 2001-04-24 21:09:53 +0000 |
commit | 4ddb3fbbf431c21e68a9a221324108c83cf31544 (patch) | |
tree | 4f3838ab1c6249067b2096c14abb991911621d21 /tests/ftpserver.pl | |
parent | cc872ebc192f64aa6360853fbdbf0476d05b9178 (diff) |
new tests, new server invoke system
Diffstat (limited to 'tests/ftpserver.pl')
-rw-r--r-- | tests/ftpserver.pl | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl index 4f1cd6898..0263dce55 100644 --- a/tests/ftpserver.pl +++ b/tests/ftpserver.pl @@ -289,7 +289,15 @@ sub PORT_command { return 0; } my $iaddr = inet_aton("$1.$2.$3.$4"); - my $paddr = sockaddr_in(($5<<8)+$6, $iaddr); + + my $port = ($5<<8)+$6; + + if(!$port || $port > 65535) { + print STDERR "very illegal PORT number: $port\n"; + return 1; + } + + my $paddr = sockaddr_in($port, $iaddr); my $proto = getprotobyname('tcp') || 6; socket(SOCK, PF_INET, SOCK_STREAM, $proto) || die "major failure"; |