diff options
Diffstat (limited to 'tests/ftpserver.pl')
| -rwxr-xr-x | tests/ftpserver.pl | 163 |
1 files changed, 130 insertions, 33 deletions
diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl index 474b4f293..729cbf7f3 100755 --- a/tests/ftpserver.pl +++ b/tests/ftpserver.pl @@ -148,13 +148,15 @@ my $ftplistparserstate; my $ftptargetdir; #********************************************************************** -# when running a ftp server, global var datasockf_mode var is used to -# keep info relative to the actual running state of the secondary or -# data sockfilt process. 'none' represents that the data sockfilt is -# not running. 'active' and 'passive' indicates that the data sockfilt -# is running and specifies operational mode. +# global variables used when running a ftp server to keep state info +# relative to the secondary or data sockfilt process. Values of these +# variables should only be modified using datasockf_state() sub, given +# that they are closely related and relationship is a bit awkward. # -my $datasockf_mode = 'none'; +my $datasockf_state = 'STOPPED'; # see datasockf_state() sub +my $datasockf_mode = 'none'; # ['none','active','passive'] +my $datasockf_runs = 'no'; # ['no','yes'] +my $datasockf_conn = 'no'; # ['no','yes'] #********************************************************************** # global vars used for signal handling @@ -329,10 +331,21 @@ sub sendcontrol { } } -# Send data to the client on the data stream - +#********************************************************************** +# Send data to the FTP client on the data stream when data connection +# is actually established. Given that this sub should only be called +# when a data connection is supposed to be established, calling this +# without a data connection is an indication of weak logic somewhere. +# sub senddata { my $l; + if($datasockf_conn eq 'no') { + logmsg "WARNING: Detected data sending attempt without DATA channel\n"; + foreach $l (@_) { + logmsg "WARNING: Data swallowed: $l\n" + } + return; + } foreach $l (@_) { if(!$datadelay) { # spit it all out at once @@ -498,7 +511,7 @@ sub close_dataconn { logmsg "=====> Closed $datasockf_mode DATA connection\n"; - $datasockf_mode = 'none'; + datasockf_state('STOPPED'); } ################ @@ -817,6 +830,11 @@ my @ftpdir=("total 20\r\n", "drwxrwxrwx 2 98 1 512 Oct 30 14:33 pub\r\n", "dr-xr-xr-x 5 0 1 512 Oct 1 1997 usr\r\n"); + if($datasockf_conn eq 'no') { + sendcontrol "503 data channel not established\r\n"; + return 0; + } + if($ftplistparserstate) { @ftpdir = ftp_contentlist($ftptargetdir); } @@ -832,6 +850,12 @@ my @ftpdir=("total 20\r\n", sub NLST_ftp { my @ftpdir=("file", "with space", "fake", "..", " ..", "funny", "README"); + + if($datasockf_conn eq 'no') { + sendcontrol "503 data channel not established\r\n"; + return 0; + } + logmsg "pass NLST data on data connection\n"; for(@ftpdir) { senddata "$_\r\n"; @@ -935,6 +959,11 @@ sub SIZE_ftp { sub RETR_ftp { my ($testno) = @_; + if($datasockf_conn eq 'no') { + sendcontrol "503 data channel not established\r\n"; + return 0; + } + if($ftplistparserstate) { my @content = wildcard_getfile($ftptargetdir, $testno); if($content[0] == -1) { @@ -1029,6 +1058,11 @@ sub STOR_ftp { my $filename = "log/upload.$testno"; + if($datasockf_conn eq 'no') { + sendcontrol "503 data channel not established\r\n"; + return 0; + } + logmsg "STOR test number $testno in $filename\n"; sendcontrol "125 Gimme gimme gimme!\r\n"; @@ -1080,13 +1114,14 @@ sub STOR_ftp { sub PASV_ftp { my ($arg, $cmd)=@_; my $pasvport; + my $bindonly = ($nodataconn) ? '--bindonly' : ''; # kill previous data connection sockfilt when alive - if($datasockf_mode ne 'none') { + if($datasockf_runs eq 'yes') { killsockfilters($proto, $ipvnum, $idnum, $verbose, 'data'); logmsg "DATA sockfilt for $datasockf_mode data channel killed\n"; - $datasockf_mode = 'none'; } + datasockf_state('STOPPED'); logmsg "====> Passive DATA channel requested by client\n"; @@ -1094,12 +1129,17 @@ sub PASV_ftp { # We fire up a new sockfilt to do the data transfer for us. my $datasockfcmd = "./server/sockfilt " . - "--ipv$ipvnum --port 0 " . + "--ipv$ipvnum $bindonly --port 0 " . "--pidfile \"$datasockf_pidfile\" " . "--logfile \"$datasockf_logfile\""; $slavepid = open2(\*DREAD, \*DWRITE, $datasockfcmd); - $datasockf_mode = 'passive'; + if($nodataconn) { + datasockf_state('PASSIVE_NODATACONN'); + } + else { + datasockf_state('PASSIVE'); + } print STDERR "$datasockfcmd\n" if($verbose); @@ -1111,7 +1151,7 @@ sub PASV_ftp { logmsg "DATA sockfilt said: FAIL\n"; logmsg "DATA sockfilt for passive data channel failed\n"; logmsg "DATA sockfilt not running\n"; - $datasockf_mode = 'none'; + datasockf_state('STOPPED'); sendcontrol "500 no free ports!\r\n"; return; } @@ -1121,14 +1161,14 @@ sub PASV_ftp { logmsg "DATA sockfilt killed now\n"; killsockfilters($proto, $ipvnum, $idnum, $verbose, 'data'); logmsg "DATA sockfilt not running\n"; - $datasockf_mode = 'none'; + datasockf_state('STOPPED'); sendcontrol "500 no free ports!\r\n"; return; } logmsg "DATA sockfilt for passive data channel started (pid $slavepid)\n"; - # Find out what port we listen on + # Find out on what port we listen on or have bound my $i; print DWRITE "PORT\n"; @@ -1160,20 +1200,18 @@ sub PASV_ftp { logmsg "DATA sockfilt killed now\n"; killsockfilters($proto, $ipvnum, $idnum, $verbose, 'data'); logmsg "DATA sockfilt not running\n"; - $datasockf_mode = 'none'; + datasockf_state('STOPPED'); sendcontrol "500 no free ports!\r\n"; return; } - logmsg "DATA sockfilt for passive data channel listens on port ". - "$pasvport\n"; - if($nodataconn) { - logmsg "DATA sockfilt for passive data channel killed ". - "(NODATACONN)\n"; - killsockfilters($proto, $ipvnum, $idnum, $verbose, 'data'); - logmsg "DATA sockfilt not running\n"; - $datasockf_mode = 'none'; + logmsg "DATA sockfilt for passive data channel (NODATACONN) ". + "bound on port $pasvport\n"; + } + else { + logmsg "DATA sockfilt for passive data channel listens on port ". + "$pasvport\n"; } if($cmd ne "EPSV") { @@ -1230,7 +1268,7 @@ sub PASV_ftp { logmsg "DATA sockfilt killed now\n"; killsockfilters($proto, $ipvnum, $idnum, $verbose, 'data'); logmsg "DATA sockfilt not running\n"; - $datasockf_mode = 'none'; + datasockf_state('STOPPED'); return; } else { @@ -1251,11 +1289,11 @@ sub PORT_ftp { my $addr; # kill previous data connection sockfilt when alive - if($datasockf_mode ne 'none') { + if($datasockf_runs eq 'yes') { killsockfilters($proto, $ipvnum, $idnum, $verbose, 'data'); logmsg "DATA sockfilt for $datasockf_mode data channel killed\n"; - $datasockf_mode = 'none'; } + datasockf_state('STOPPED'); logmsg "====> Active DATA channel requested by client\n"; @@ -1299,18 +1337,24 @@ sub PORT_ftp { if($nodataconn) { logmsg "DATA sockfilt for active data channel not started ". "(NODATACONN)\n"; + datasockf_state('ACTIVE_NODATACONN'); + logmsg "====> Active DATA channel not established\n"; # client shall timeout awaiting connection from server return; } elsif($nodataconn425) { logmsg "DATA sockfilt for active data channel not started ". "(NODATACONN425)\n"; + datasockf_state('ACTIVE_NODATACONN'); + logmsg "====> Active DATA channel not established\n"; sendcontrol "425 Can't open data connection\r\n"; return; } elsif($nodataconn421) { logmsg "DATA sockfilt for active data channel not started ". "(NODATACONN421)\n"; + datasockf_state('ACTIVE_NODATACONN'); + logmsg "====> Active DATA channel not established\n"; sendcontrol "421 Connection timed out\r\n"; return; } @@ -1324,7 +1368,7 @@ sub PORT_ftp { "--logfile \"$datasockf_logfile\""; $slavepid = open2(\*DREAD, \*DWRITE, $datasockfcmd); - $datasockf_mode = 'active'; + datasockf_state('ACTIVE'); print STDERR "$datasockfcmd\n" if($verbose); @@ -1336,7 +1380,7 @@ sub PORT_ftp { logmsg "DATA sockfilt said: FAIL\n"; logmsg "DATA sockfilt for active data channel failed\n"; logmsg "DATA sockfilt not running\n"; - $datasockf_mode = 'none'; + datasockf_state('STOPPED'); # client shall timeout awaiting connection from server return; } @@ -1346,7 +1390,7 @@ sub PORT_ftp { logmsg "DATA sockfilt killed now\n"; killsockfilters($proto, $ipvnum, $idnum, $verbose, 'data'); logmsg "DATA sockfilt not running\n"; - $datasockf_mode = 'none'; + datasockf_state('STOPPED'); # client shall timeout awaiting connection from server return; } @@ -1359,6 +1403,59 @@ sub PORT_ftp { } #********************************************************************** +# datasockf_state is used to change variables that keep state info +# relative to the FTP secondary or data sockfilt process as soon as +# one of the five possible stable states is reached. Variables that +# are modified by this sub may be checked independently but should +# not be changed except by calling this sub. +# +sub datasockf_state { + my $state = $_[0]; + + if($state eq 'STOPPED') { + # Data sockfilter initial state, not running, + # not connected and not used. + $datasockf_state = $state; + $datasockf_mode = 'none'; + $datasockf_runs = 'no'; + $datasockf_conn = 'no'; + } + elsif($state eq 'PASSIVE') { + # Data sockfilter accepted connection from client. + $datasockf_state = $state; + $datasockf_mode = 'passive'; + $datasockf_runs = 'yes'; + $datasockf_conn = 'yes'; + } + elsif($state eq 'ACTIVE') { + # Data sockfilter has connected to client. + $datasockf_state = $state; + $datasockf_mode = 'active'; + $datasockf_runs = 'yes'; + $datasockf_conn = 'yes'; + } + elsif($state eq 'PASSIVE_NODATACONN') { + # Data sockfilter bound port without listening, + # client won't be able to establish data connection. + $datasockf_state = $state; + $datasockf_mode = 'passive'; + $datasockf_runs = 'yes'; + $datasockf_conn = 'no'; + } + elsif($state eq 'ACTIVE_NODATACONN') { + # Data sockfilter does not even run, + # client awaits data connection from server in vain. + $datasockf_state = $state; + $datasockf_mode = 'active'; + $datasockf_runs = 'no'; + $datasockf_conn = 'no'; + } + else { + die "Internal error. Unknown datasockf state: $state!"; + } +} + +#********************************************************************** # customize configures test server operation for each curl test, reading # configuration commands/parameters from server commands file each time # a new client control connection is established with the test server. @@ -1581,11 +1678,11 @@ logmsg("logged pid $$ in $pidfile\n"); while(1) { # kill previous data connection sockfilt when alive - if($datasockf_mode ne 'none') { + if($datasockf_runs eq 'yes') { killsockfilters($proto, $ipvnum, $idnum, $verbose, 'data'); logmsg "DATA sockfilt for $datasockf_mode data channel killed now\n"; - $datasockf_mode = 'none'; } + datasockf_state('STOPPED'); # # We read 'sockfilt' commands. |