erlang ftp模块

会当凌绝顶聪 发表于 2015-02-02 16:37

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

会当凌绝顶聪 发表于 2015-02-03 11:52

本帖最后由会当凌绝顶聪于 2015-02-03 11:52 编辑

来结个贴，貌似我的erlang版本低了，测试一直视错误的，换成高版本的就好了。简单测试代码贴一下

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

%% -rw-r--r-- 1 xukangjian xukangjian433662941?27 14:58 webGui.tar.gz
%% -rw------- 1 xukangjian xukangjian    25533?142014 win7-2.xml
%% drwxrwxrwx 183 root    root       122881? 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", ),
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", );
{error, Reason} -> Reason
end,

ftp:close (Pid).

shijiang1130 发表于 2015-02-03 22:47

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

页: [1]

Chinaunix's Archiver

erlang ftp模块