summaryrefslogtreecommitdiff
path: root/tests/ftpserver.pl
diff options
context:
space:
mode:
authorSteve Holme <steve_holme@hotmail.com>2013-12-22 17:10:43 +0000
committerSteve Holme <steve_holme@hotmail.com>2013-12-22 17:16:46 +0000
commit95ae389e17c052464ba22b47fe7ef39a61119c3e (patch)
treeaf247b090391848c90c1bfc4a768902e0e8b9a29 /tests/ftpserver.pl
parent91735102ac6ad6e92f26736c08a9eedb074e2655 (diff)
downloadcurl-95ae389e17c052464ba22b47fe7ef39a61119c3e.tar.gz
ftpserver.pl: Added the ability to specify custom full text replies
Diffstat (limited to 'tests/ftpserver.pl')
-rwxr-xr-xtests/ftpserver.pl8
1 files changed, 7 insertions, 1 deletions
diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index c94b07f6b..c4cd7cf0e 100755
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -141,6 +141,7 @@ my $nodataconn421; # set if ftp srvr doesn't establish data ch and replies 421
my $nodataconn150; # set if ftp srvr doesn't establish data ch and replies 150
my @capabilities; # set if server supports capability commands
my @auth_mechs; # set if server supports authentication commands
+my %fulltextreply; #
my %commandreply; #
my %customcount; #
my %delayreply; #
@@ -2831,6 +2832,7 @@ sub customize {
$nodataconn150 = 0; # default is to not send 150 without data channel
@capabilities = (); # default is to not support capability commands
@auth_mechs = (); # default is to not support authentication commands
+ %fulltextreply = ();#
%commandreply = (); #
%customcount = (); #
%delayreply = (); #
@@ -2841,7 +2843,11 @@ sub customize {
logmsg "FTPD: Getting commands from log/ftpserver.cmd\n";
while(<CUSTOM>) {
- if($_ =~ /REPLY ([A-Za-z0-9+\/=\*]*) (.*)/) {
+ if($_ =~ /REPLY \"([A-Z]+ [A-Za-z0-9+\/=\*]+)\" (.*)/) {
+ $fulltextreply{$1}=eval "qq{$2}";
+ logmsg "FTPD: set custom reply for $1\n";
+ }
+ elsif($_ =~ /REPLY ([A-Za-z0-9+\/=\*]*) (.*)/) {
$commandreply{$1}=eval "qq{$2}";
if($1 eq "") {
logmsg "FTPD: set custom reply for empty command\n";