[Pkg-haskell-commits] [SCM] haskell-testpack branch, master, updated. debian/1.0.2-1-4-gb0d6b36

[John Goerzen]

The following commit has been merged in the master branch:
commit 4f7699378f949b9182fbd5e90f056baa79849527
Author: John Goerzen <jgoerzen at complete.org>
Date:   Wed Dec 22 05:32:36 2004 +0100

    Added implementations for remaining non-transfer commands.
    
    Keywords:
    
    
    (jgoerzen at complete.org--projects/missingh--head--0.7--patch-138)

diff --git a/ChangeLog b/ChangeLog
index f25ec4f..28c70b3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,18 @@
 # arch-tag: automatic-ChangeLog--jgoerzen at complete.org--projects/missingh--head--0.7
 #
 
+2004-12-21 22:32:36 GMT	John Goerzen <jgoerzen at complete.org>	patch-138
+
+    Summary:
+      Added implementations for remaining non-transfer commands.
+    Revision:
+      missingh--head--0.7--patch-138
+
+
+    modified files:
+     ChangeLog libsrc/MissingH/Network/FTP/Server.hs
+
+
 2004-12-21 22:22:12 GMT	John Goerzen <jgoerzen at complete.org>	patch-137
 
     Summary:
diff --git a/libsrc/MissingH/Network/FTP/Server.hs b/libsrc/MissingH/Network/FTP/Server.hs
index dbcf862..4a93c78 100644
--- a/libsrc/MissingH/Network/FTP/Server.hs
+++ b/libsrc/MissingH/Network/FTP/Server.hs
@@ -141,6 +141,8 @@ commands =
     ,("RMD",  (forceLogin cmd_rmd,   help_rmd))
     ,("MKD",  (forceLogin cmd_mkd,   help_mkd))
     ,("PWD",  (forceLogin cmd_pwd,   help_pwd))
+    ,("MODE", (forceLogin cmd_mode,  help_mode))
+    ,("STRU", (forceLogin cmd_stru,  help_stru))
     ]
 
 commandLoop :: FTPServer -> SockAddr -> IO ()
@@ -317,6 +319,24 @@ cmd_pwd h@(FTPServer _ fs _) _ _ =
        sendReply h 257 $ "\"" ++ d ++ "\" is the current working directory."
        return True
 
+help_mode = ("Provided for compatibility only", "")
+cmd_mode :: CommandHandler
+cmd_mode h _ args =
+    case args of
+        "S" -> do sendReply h 200 "Mode is Stream."
+                  return True
+        x -> do sendReply h 504 $ "Mode \"" ++ x ++ "\" not supported."
+                return True
+
+help_stru = ("Provided for compatibility only", "")
+cmd_stru :: CommandHandler
+cmd_stru h _ args =
+    case args of
+        "F" -> do sendReply h 200 "Structure is File."
+                  return True
+        x -> do sendReply h 504 $ "Structure \"" ++ x ++ "\" not supported."
+                return True
+
 help_help =
     ("Display help on available commands",
      "When called without arguments, shows a summary of available system\n"

-- 
haskell-testpack