mirror/curl
2
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2024-11-21 01:16:58 +08:00
Code Issues Packages Projects Releases Wiki Activity

ftpserver.pl: Added capability prerequisite for extended POP3 commands

Browse Source
This commit is contained in:
Steve Holme 2013-09-14 15:02:34 +01:00
parent b68c52704b
commit 4d6ef6297a
1 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
tests/ftpserver.pl
View File

@ -1556,16 +1556,21 @@ sub UIDL_pop3 {
"3 4\r\n", # Note that UID 3 is a simulated "deleted" message
);
logmsg "retrieve a message UID list\n";
sendcontrol "+OK Listing starts\r\n";
for my $d (@data) {
sendcontrol $d;
if (!grep /^UIDL$/, @capabilities) {
sendcontrol "-ERR Unrecognized command\r\n";
}
else {
logmsg "retrieve a message UID list\n";
# End with the magic 3-byte end of listing marker
sendcontrol ".\r\n";
sendcontrol "+OK Listing starts\r\n";
for my $d (@data) {
sendcontrol $d;
}
# End with the magic 3-byte end of listing marker
sendcontrol ".\r\n";
}
return 0;
}
@ -1576,7 +1581,10 @@ sub TOP_pop3 {
logmsg "TOP_pop3 got $args\n";
if (($msg eq "") || ($lines eq "")) {
if (!grep /^TOP$/, @capabilities) {
sendcontrol "-ERR Unrecognized command\r\n";
}
elsif ((!$msg) || (!$lines)) {
sendcontrol "-ERR Protocol error\r\n";
}
else {