diff options
| author | Dan Fandrich <dan@coneharvesters.com> | 2007-08-23 23:24:39 +0000 |
|---|---|---|
| committer | Dan Fandrich <dan@coneharvesters.com> | 2007-08-23 23:24:39 +0000 |
| commit | 9537580ba20cec5180d06c4ab065503fef6a354e (patch) | |
| tree | 83c969b7479aba660061c5e4faa411107e53db2b /tests/ftpserver.pl | |
| parent | bc0adcef1f9baa924c8bf88ccd450740e2dac880 (diff) | |
| download | curl-9537580ba20cec5180d06c4ab065503fef6a354e.tar.gz | |
Allow ftp server alternate replies to contain backslash-escaped control
characters.
Diffstat (limited to 'tests/ftpserver.pl')
| -rw-r--r-- | tests/ftpserver.pl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl index 73fabcca4..e32c019bd 100644 --- a/tests/ftpserver.pl +++ b/tests/ftpserver.pl @@ -677,14 +677,13 @@ my %customreply; my %customcount; my %delayreply; sub customize { - undef %customreply; - $nosave = 0; # default is to save as normal $controldelay = 0; # default is no delaying the responses $retrweirdo = 0; $retrnosize = 0; $pasvbadip = 0; $nosave = 0; + %customreply = (); %customcount = (); %delayreply = (); @@ -695,7 +694,7 @@ sub customize { while(<CUSTOM>) { if($_ =~ /REPLY ([A-Z]+) (.*)/) { - $customreply{$1}=$2; + $customreply{$1}=eval "qq{$2}"; logmsg "FTPD: set custom reply for $1\n"; } if($_ =~ /COUNT ([A-Z]+) (.*)/) { |