Question

我试图了解ejabberd和erlang ......

我要做的第一件事就是实现我自己的一组REST调用来控制来自另一台服务器的ejabberd。

例如此请求：

POST /custom/register HTTP/1.1
Host: some.server.com:8088
Cache-Control: no-cache

{"username":"user","host":"test.com","password":"pass1"}

我想注册新的Jabber用户，所以我创建了这个ejabberd模块：

-module(mod_test).

-author('').

-vsn('0.1').

-behavior(gen_mod).

-export([start/2, stop/1,process/2]).

%%
%% Includes
%%

%% base ejabberd headers
-include("ejabberd.hrl").

%% ejabberd compatibility functions
-include("jlib.hrl").

%% ejabberd HTTP headers
-include("web/ejabberd_http.hrl").

start(_Host, _Opts) ->
        ok.

stop(_Host) ->
        ok.

process(["register"], _Request) ->
        Data = _Request#request.data,
        {200,[],Data}.

在ejabberd.cfg中添加了http监听器，我已经能够获得包含发布数据的响应，但是，我无法理解如何从数据中提取值。

例如，我希望变量Username将获得＆＃34; username＆＃34;的值。 POST数据中的键（＆＃34;用户＆＃34;）。

先谢谢，马坦。

Answer 1

Ejabberd使用Jiffy这是一个Erlang JSON解析器。因此，您可以使用它来解析处理程序内的HTTP请求POST有效内容。

请求

$ curl \ -XPOST http://localhost:5280/test/register \ --data '{"username":"user","host":"test.com","password":"pass1"}'

<强>处理程序

process([<<"register">>], #request{method = 'POST', data = Data}) -> {JSON} = jiffy:decode(Data), User = proplists:get_value(<<"username">>, JSON), Host = proplists:get_value(<<"host">>, JSON), Pass = proplists:get_value(<<"password">>, JSON), %% do something with: %% User =:= <<"user">> %% Host =:= <<"test.com">> %% Pass =:= <<"pass1">> %% ... {200, [], <<"response">>}; process(_Call, _Req) -> {404, [], <<"not_found">>}.

无法理解如何从ejabberd http请求处理程序中提取帖子数据

1 个答案: