erlang ftp模块

会当凌绝顶聪

erlang ftp模块怎么使用ssl。
我尝试了很久都没成功，跟服务器交换证书都失败，你们有使用ssl交换成功的例子吗 ！~

会当凌绝顶聪

来结个贴，貌似我的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

这里有更多的例子，其实在库里的test里目录里有很多的例子，安装的包是不包含这个目录的，所以要在 github上才能看到.
https://github.com/shijiang1130/ ... t/ftp_suite_lib.erl