From f851df88fbd39e7ab8de0ffd51d568a461ab01c7 Mon Sep 17 00:00:00 2001
From: Steve Holme <steve_holme@hotmail.com>
Date: Sun, 8 Sep 2013 08:37:37 +0100
Subject: ftpserver.pl: Added support for POP STAT command

---
 tests/ftpserver.pl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'tests/ftpserver.pl')

diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index 536ea06ab..8ca3f8b8a 100755
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -562,6 +562,7 @@ sub protocolsetup {
             'LIST' => \&LIST_pop3,
             'QUIT' => \&QUIT_pop3,
             'RETR' => \&RETR_pop3,
+            'STAT' => \&STAT_pop3,
         );
         %displaytext = (
             'USER' => '+OK We are happy you popped in!',
@@ -1310,6 +1311,21 @@ sub DELE_pop3 {
     return 0;
 }
 
+sub STAT_pop3 {
+    my ($args) = @_;
+
+    if ($args ne "") {
+        sendcontrol "-ERR Protocol error\r\n";
+    }
+    else {
+        # Send statistics for the built-in fake message list as
+        # detailed in the LIST_pop3 function above
+        sendcontrol "+OK 3 4294967800\r\n";
+    }
+
+    return 0;
+}
+
 sub QUIT_pop3 {
     sendcontrol "+OK byebye\r\n";
 
-- 
cgit v1.2.3