erlang ftp模塊

會當(dāng)凌絕頂聰

erlang ftp模塊怎么使用ssl。
我嘗試了很久都沒成功，跟服務(wù)器交換證書都失敗，你們有使用ssl交換成功的例子嗎 ！~

會當(dāng)凌絕頂聰

來結(jié)個貼，貌似我的erlang版本低了，測試一直視錯誤的，換成高版本的就好了 。簡單測試代碼貼一下

-export([ftptest/0]).
        -define(SOCKET_OPTS, [{certfile, "server.crt"},
                      {keyfile, "server.key"}]).
%% start() ->
%%     ssl:start().  ,start/0



%% -rw-r--r--   1 xukangjian xukangjian  43366294  1?27 14:58 webGui.tar.gz
%% -rw-------   1 xukangjian xukangjian      2553  3?14  2014 win7-2.xml
%% drwxrwxrwx 183 root       root           12288  1? 9 14:29 workspace
%% drwxr-xr-x   7 xukangjian xukangjian      4096 12?19 11:27 workspace_java

%%         {ok, Pid} = ftp:open ("192.168.12.177", [{tls, ?SOCKET_OPTS}]),  , [{tls, ?SOCKET_OPTS}]
ftptest () ->
        {ok, Pid} = ftp:open ("192.168.12.177", [{tls, ?SOCKET_OPTS}]),
        ok = ftp:user(Pid, "ftp", "unimas"),
%%         {ok, Listing} = ftp:ls (Pid),
%%         io:format("~p", [Listing]),
        case ftp:cd(Pid, "pub") of
                ok ->  {ok, Listing1} = ftp:ls (Pid),
                           ftp:recv(Pid, "crypt.rar"),
                           ftp:send(Pid, "erlang_client.erl"),
                           io:format("~p", [Listing1]);
                {error, Reason} -> Reason
        end,
       
        ftp:close (Pid).

shijiang1130

這里有更多的例子，其實(shí)在庫里的test里目錄里有很多的例子，安裝的包是不包含這個目錄的，所以要在 github上才能看到.
https://github.com/shijiang1130/ ... t/ftp_suite_lib.erl