generic-library/curl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

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

17
tests/ftpserver.pl
View File

@ -3251,8 +3251,16 @@ while(1) {
my $check = 1; # no response yet
# See if there is a custom reply for our command
my $text = $commandreply{$FTPCMD};
# See if there is a custom reply for the full text
my $fulltext = $FTPCMD . " " . $FTPARG;
my $text = $fulltextreply{$fulltext};
if($text && ($text ne "")) {
sendcontrol "$text\r\n";
$check = 0;
}
else {
# See if there is a custom reply for the command
$text = $commandreply{$FTPCMD};
if($text && ($text ne "")) {
if($customcount{$FTPCMD} && (!--$customcount{$FTPCMD})) {
# used enough times so blank the custom command reply
@ -3263,7 +3271,7 @@ while(1) {
$check = 0;
}
else {
# See if there is any display text for our command
# See if there is any display text for the command
$text = $displaytext{$FTPCMD};
if($text && ($text ne "")) {
if($proto eq 'imap') {
@ -3280,7 +3288,8 @@ while(1) {
my $func = $commandfunc{$FTPCMD};
if($func) {
&$func($FTPARG, $FTPCMD);
$check=0; # taken care of
$check = 0;
}
}
}