jgoerzen / ftphs Goto Github PK

[3 of 4] Compiling Network.FTP.Server ( src/Network/FTP/Server.hs, dist-ghc/build/Network/FTP/Server.o )

src/Network/FTP/Server.hs:169:18: Not in scope: `try'

src/Network/FTP/Server.hs:217:33: Not in scope: `catch'
make: *** [build-ghc-stamp] Error 1

module FtpTest
        where

import Network.FTP.Client
import Network.FTP.Client.Parser

display :: Maybe String -> IO ()
display (Just path) = putStrLn path
display Nothing = putStrLn "No path!"

ftpTest :: String -> String -> String -> IO Network.FTP.Client.Parser.FTPResult
ftpTest host usr pass = do
    enableFTPDebugging
    h <- easyConnectFTP host
    login h usr (Just pass) Nothing
    (pwd, _) <- pwd h
    display pwd
    putStrLn "Going to list dir"
    fs <- dir h Nothing
    putStrLn "Done"
    quit h

*** Exception: user error (Not a 227 response: (200,["Using ASCII mode to transfer data."]))

import Data.List
import Network.FTP.Client

desiredFile x = ".xz.sig" `isSuffixOf` x

main = do
  enableFTPDebugging
  h1 <- easyConnectFTP "prep.ai.mit.edu"
  let h = setPassive h1 True
  loginAnon h
  cwd h "/gnu/hello"
  files <- nlst h Nothing
  let file = head $ filter desiredFile files
  downloadbinary h file
  quit h

FTP received: 220 GNU FTP server ready.
FTP sent: USER anonymous
FTP received: 230-Due to U.S. Export Regulations, all cryptographic software on this
FTP received: 230-site is subject to the following legal notice:
FTP received: 230-
FTP received: 230-    This site includes publicly available encryption source code
FTP received: 230-    which, together with object code resulting from the compiling of
FTP received: 230-    publicly available source code, may be exported from the United
FTP received: 230-    States under License Exception "TSU" pursuant to 15 C.F.R. Section
FTP received: 230-    740.13(e).
FTP received: 230-
FTP received: 230-This legal notice applies to cryptographic software only. Please see
FTP received: 230-the Bureau of Industry and Security (www.bxa.doc.gov) for more
FTP received: 230-information about current U.S. regulations.
FTP received: 230 Login successful.
FTP sent: CWD /gnu/hello
FTP received: 250 Directory successfully changed.
FTP sent: TYPE A
FTP received: 200 Switching to ASCII mode.
FTP sent: PASV
FTP received: 227 Entering Passive Mode (208,118,235,20,92,41).
FTP sent: NLST
FTP received: 150 Here comes the directory listing.
FTP sent: TYPE I
FTP received: 226 Directory send OK.
FTP sent: PASV
FTP received: 200 Switching to Binary mode.
ftp-example: user error (Not a 227 response: (200,["Switching to Binary mode."]))

FTP received: 220 GNU FTP server ready.
FTP sent: USER anonymous
FTP received: 230-Due to U.S. Export Regulations, all cryptographic software on this
FTP received: 230-site is subject to the following legal notice:
FTP received: 230-
FTP received: 230-    This site includes publicly available encryption source code
FTP received: 230-    which, together with object code resulting from the compiling of
FTP received: 230-    publicly available source code, may be exported from the United
FTP received: 230-    States under License Exception "TSU" pursuant to 15 C.F.R. Section
FTP received: 230-    740.13(e).
FTP received: 230-
FTP received: 230-This legal notice applies to cryptographic software only. Please see
FTP received: 230-the Bureau of Industry and Security (www.bxa.doc.gov) for more
FTP received: 230-information about current U.S. regulations.
FTP received: 230 Login successful.
FTP sent: CWD /gnu/hello
FTP received: 250 Directory successfully changed.
FTP sent: TYPE A
FTP received: 200 Switching to ASCII mode.
FTP sent: PORT 192,168,1,172,254,41
FTP received: 200 PORT command successful. Consider using PASV.
FTP sent: NLST
FTP received: 150 Here comes the directory listing.
FTP sent: TYPE I
FTP received: 226 Directory send OK.
FTP sent: PORT 192,168,1,172,254,42
FTP received: 200 Switching to Binary mode.
FTP sent: RETR hello-2.6.tar.xz.sig
FTP received: 200 PORT command successful. Consider using PASV.
ftp-example: user error (FTP: Expected 100, got (200,["PORT command successful. Consider using PASV."]))

import Network.FTP.Client
main = do
    ftpConn <- easyConnectFTP "..."
    ftpRes  <- login ftpConn "..." (Just "...") Nothing
    putStrLn $ show ftpRes
    nlst ftpConn Nothing >>= putStrLn . unlines
    quit ftpConn

*Main> :main
(230,["Login successful."])
Segmentation fault/access violation in generated code