Erlang socket.io 带有主管的服务器

Question

我目前正在尝试使用 socket.io-erlang创建一个简单的聊天服务器。我刚开始学习 Erlang，所以我在调整他们的演示时遇到了一些问题，以便它适用于模块。希望你能帮助我，这是我到目前为止所拥有的。它应该还没有任何功能，这次我只想让它工作（启动后我会收到一些崩溃报告，如果需要，可以阅读它们）。

应用程序

-module(echat_app).
-behaviour(application).
-export([start/2, stop/1]).
start(_StartType, _StartArgs) ->
    echat_sup:start_link().
stop(_State) ->
    ok.

主管

-module(echat_sup).
-behaviour(supervisor).
-export([start_link/0]).
-export([init/1]).
-define(CHILD(I, Type), {I, {I, start_link, []}, permanent, 5000, Type, [I]}).
start_link() ->
    supervisor:start_link({local, ?MODULE}, ?MODULE, []).
init([]) ->
    application:start(sasl),
    application:start(gproc),
    application:start(misultin),
    application:start(socketio),
    {ok, Pid} = socketio_listener:start([{http_port, 7878}, {default_http_handler,echat_http_handler}]),
    EventManager = socketio_listener:event_manager(Pid),
    ok = gen_event:add_handler(EventManager, echat_socketio_handler,[]),
    receive _ ->
        io:format("sub received something"),
        {ok, {
            {one_for_one, 5, 10},
            []
        }}
    end.

Socket.IO 事件处理程序

-module(echat_socketio_handler).
-behaviour(gen_event).
-include_lib("socketio/include/socketio.hrl").
-export([init/1, handle_event/2, handle_call/2, handle_info/2, terminate/2, code_change/3]).
init([]) ->
    {ok, undefined}.
handle_event({client, Pid}, State) ->
    io:format("Connected: ~p~n",[Pid]),
    EventManager = socketio_client:event_manager(Pid),
    ok = gen_event:add_handler(EventManager, ?MODULE,[]),
    {ok, State};
handle_event({disconnect, Pid}, State) ->
    io:format("Disconnected: ~p~n",[Pid]),
    {ok, State};
handle_event({message, Client, Msg=#msg{content=Content}}, State) ->
    io:format("Got a message: ~p from ~p~n",[Msg, Client]),
    socketio_client:send(Client, #msg{ content = "hello!" }),
    socketio_client:send(Client, #msg{ content = [{<<"echo">>, Content}], json = true}),
    {ok, State};
handle_event(_E, State) ->
    {ok, State}.
handle_call(_, State) ->
    {reply, ok, State}.
handle_info(_, State) ->
    {ok, State}.
terminate(_Reason, _State) ->
    ok.
code_change(_OldVsn, State, _Extra) ->
    {ok, State}.

HTTP 请求处理程序

-module(echat_http_handler).
-export([handle_request/3]).
handle_request(_Method, _Path, Req) ->
    Req:respond(200).

Answer 1

只有几件事，没有对你的问题的具体答案。

首先，通常，您在启动应用之前启动依赖项，而不是在某些主管的初始化上启动依赖项。

关于错误：

{error，{{

noproc，{gen_server，call， [socketio_listener_sup_sup， {start_child，[[{http_port，7878}， {default_http_handler，echat_http_handler}]]}， 无穷大]}}， {echat_app，start，[normal，[]]}}}

这是第一个，这意味着代码试图调用一个名为"socketio_listener_sup_sup"的gen_server，但该过程不存在。 鉴于它的名称，我想这应该由 socket.io-erlang 应用程序本身启动，所以也许由于某种原因它没有正确启动。 您可以通过检查结果轻松检查：

ok = application:start(sasl),
ok = application:start(gproc),
ok = application:start(misultin),
ok = application:start(socketio),