第一次写ejabberd gen_mod module 服务端简单返回数据

最近两天 看了一下 ejabberd的用法，关于http request handler 在process-one.net上说的很清楚，很件的就实现一个Demo.

对于gen_mod 只写个start/2 stop/1 也很简单。但想做点事情对我来说有点难度了。

带着疑问开始探索了，有人会 但不想直接让人家教，只题醒一下就够了。不多说了

1、用了ejabberdhooks

2、用了ejabberdrouter

3、代码关键地方是11行和25行（不做解释，我也是朦胧懂，期待中。。。）

 

 

-module(my_module).
-behaviour(gen_mod).
-include("ejabberd.hrl").
-include("jlib.hrl").

%% gen_mod callback  
-export([start/2, stop/1, test/3]).

start(Host, _Opt) ->
        ?DEBUG("-start my_module langxianwu~p,Host=~p",[lxwstart,Host]),
        ejabberd_hooks:add(user_send_packet,Host,?MODULE,test,50),
        ?DEBUG("-start my_module langxianwu~p",[lxwend]).
stop(_Host) -> ok.

test(From, To, Packet) ->
    ErrText = "Your dead LOL langxianwusendmessage",
    Lang = xml:get_tag_attr_s("xml:lang", Packet),
    Err = jlib:make_error_reply(Packet, ?ERRT_RESOURCE_CONSTRAINT(Lang, ErrText)),
    #jid{user=User} = To,
    ?DEBUG("langxianwutest1 packet Errtext= ~p,~n Lang ~p,~n Err=~p,~n User=~p ~n", [ErrText, Lang, Err,User]),
    case User of
        langzhe ->
             ?DEBUG("langzhetestUser= ~p,~n ", [User]);
        _->  ?DEBUG("langzhetestuser~p~n",[ok]),
           ejabberd_router:route(To, From, Err)
    end,
    %%ejabberd_router:route(To, From, Err),
    ?DEBUG("langxianwutest2 packet from ~p to ~p :~p", [From, To, Packet]).
~                                                                                                                                                            
~                                                                                                                                                            
~                                                                             

评论

3 楼 langzhe 2011-12-16  

2057 写道

hi,能指教下这个怎么用吗？

什么问题

2 楼 2057 2011-11-25  

hi,能指教下这个怎么用吗？

1 楼 langzhe 2010-09-15  

09-15 presee testsdlkj
1.configure 要有参数
./configure --enable-odbc ＆＆ make && make install
2.安装mysql驱动
https://support.process-one.net/doc/display/CONTRIBS/Yxa#Yxa-DownloadthecompleteMySQLErlangsourcecode

3.修改配置文件ejabberd.cfg
1>注释掉 %%{auth_method, external}.
2> 去掉{auth_method, external}.的注释
     并添加
{odbc_server,{mysql, "localhost", "ejabberd", "root", "123456"}}.
3>配置gen_


以上是配置msyqsl步骤