moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-08-13 17:03:50 -04:00
Code Issues Releases Wiki Activity

ftpserver.pl: Added the ability to specify custom full text replies

Browse Source
This commit is contained in:
Steve Holme 2013-12-22 17:10:43 +00:00
parent 91735102ac
commit 95ae389e17
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/ftpserver.pl
View File

@ -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 $nodataconn150; # set if ftp srvr doesn't establish data ch and replies 150
my @capabilities; # set if server supports capability commands my @capabilities; # set if server supports capability commands
my @auth_mechs; # set if server supports authentication commands my @auth_mechs; # set if server supports authentication commands
my %fulltextreply; #
my %commandreply; # my %commandreply; #
my %customcount; # my %customcount; #
my %delayreply; # my %delayreply; #
@ -2831,6 +2832,7 @@ sub customize {
$nodataconn150 = 0; # default is to not send 150 without data channel $nodataconn150 = 0; # default is to not send 150 without data channel
@capabilities = (); # default is to not support capability commands @capabilities = (); # default is to not support capability commands
@auth_mechs = (); # default is to not support authentication commands @auth_mechs = (); # default is to not support authentication commands
%fulltextreply = ();#
%commandreply = (); # %commandreply = (); #
%customcount = (); # %customcount = (); #
%delayreply = (); # %delayreply = (); #
@ -2841,7 +2843,11 @@ sub customize {
logmsg "FTPD: Getting commands from log/ftpserver.cmd\n"; logmsg "FTPD: Getting commands from log/ftpserver.cmd\n";
while(<CUSTOM>) { 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}"; $commandreply{$1}=eval "qq{$2}";
if($1 eq "") { if($1 eq "") {
logmsg "FTPD: set custom reply for empty command\n"; logmsg "FTPD: set custom reply for empty command\n";