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