2

我正在开发一个 SSL 服务器应用程序，它应该接受连接并以简单的方式响应。我已经在一个常规的 Erlang 脚本中创建了应用程序的框架，该脚本已经在 Erlang shell 中进行了测试。这种方法完美无缺，但是当试图在 Rebar 中实现它时，模块停止工作。

我的模块看起来像这样（称为 api）：

-define(SSL_OPTIONS, [{active, false}, {reuseaddr, true}, {certfile,"../priv/certificate.pem"}, {keyfile,"../priv/key.pem"}]).
start() ->
    try
        ssl:start(),
        Pid = listen(3000),
        {ok, Pid}
    catch
        _:_ -> error
    end.

listen(Port) ->
    {ok, LSocket} = ssl:listen(Port, ?SSL_OPTIONS),
    spawn(fun() -> accept(LSocket) end).

accept(LSocket) ->
    {ok, Socket} = ssl:transport_accept(LSocket),
    Pid = spawn(fun() -> communicator:loop(Socket) end),
    ssl:controlling_process(Socket, Pid),
    ?MODULE:accept(LSocket).

我的 Rebar 应用程序的实现如下所示（称为 redirector_app）：

-module(redirector_app).

-behaviour(application).

%% Application callbacks
-export([start/2, stop/1]).

%% ===================================================================
%% Application callbacks
%% ===================================================================

start(_StartType, _StartArgs) ->
    redirector_sup:start_link(),
    spawn(fun() -> init() end).

stop(_State) ->
    ok.

init() ->
    api:start(),
    ok.

我可以通过进入 .beam 文件所在的 ebin 文件夹并运行 Erlang shell 来启动 api 模块。在 Erlang shell 中，我运行以下命令：

api:start().

但是，当我尝试从同一个文件夹和同一个 shell 运行 Rebar 应用程序时：

redirector_app:start([],[]).

我收到以下错误：

Error in process <0.50.0> with exit value: {{badmatch,{error,einval}},[{ssl,transport_accept,2,[{file,"ssl.erl"},{line,197}]},{api,accept,1,[{file,"src/api.erl"},{line,25}]}]}

如果我转到 Rebar 应用程序的根目录并使用以下命令运行 Erlang shell，这不会改变：

$ erl -pa ebin/

我已将问题缩小到连接问题。我认为连接实际上在 ssl:transport_accept(LSocket) 运行之前关闭。

4

1 回答 1

1

钢筋应用程序是钢筋本身。你所做的就是所谓的 Erlang 应用程序。您可以在此处查看文档：http ://www.erlang.org/doc/design_principles/applications.html

Erlang 应用程序以不同的方式启动。您必须使用application:start(redirector). 这也意味着您的（或其他搜索路径）中必须有redirector.app文件，该文件必须有. 您必须确保在您的应用程序之前启动您所依赖的所有应用程序，如果您使用 Erlang 版本，这可能会自动完成http://www.erlang.org/doc/design_principles/release_structure.htmlebin{mod, {redirector_app,[]}}

我建议您阅读一篇文章http://www.metabrew.com/article/erlang-rebar-tutorial-generating-releases-upgrades

于 2013-03-14T06:53:39.267 回答