first small steps towards smtp

diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index 4c25845d6f374d335d36978abd1af2adefdb69bf..aff415f77ca4bcd8c8a4417523de26c713f28504 100644 (file)
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -404,6 +404,14 @@ elsif($proto eq "imap") {
         );
 
 }
+elsif($proto eq "smtp") {
+    %displaytext = ('EHLO' => '230 We are happy you popped in!',
+                    'MAIL' => '200 Note taken',
+                    'RCPT' => '200 Receivers accepted',
+                    'QUIT' => '200 byebye',
+                    'DATA' => '200 hit me',
+        );
+}
 
 
 sub close_dataconn {
@@ -1015,7 +1023,7 @@ sub customize {
 
 my @welcome;
 
-if($proto eq "ftp") {
+if(($proto eq "ftp") || ($proto eq "smtp")) {
     @welcome=(
         '220-        _   _ ____  _     '."\r\n",
         '220-    ___| | | |  _ \| |    '."\r\n",