金庆 2016-11-03 12:11 发表评论

ejabberd开发和部署

(金庆的专栏 2016.10)

搭建了自己的ejabberd集群，然后少量更改源码，实现定制的XMPP服务器。

从github fork ejabberd 库，定为 master 分支跟踪原始库 master 分支，版本升级时从原库合并一次。

从16.09版本分一个 dev 分支，自己的代码就在这个 dev 分支上写。

服务器从源码编译安装。

代码更改后，make install, 然后 ejabberd restart, 或者 ejabberd update all.

如果有配置更改，则还要更改 /etc/ejabberd/ejabberd.yml.

未来主库版本升级后，可重新开个dev2分支，将dev的更改合并到dev2.

金庆 2016-10-31 17:13 发表评论

ejabberd mod_echo 解析

(金庆的专栏 2016.8)

按开发入门的说明，mod_echo是最简单的模块之一。
https://docs.ejabberd.im/developer/
当然 mod_hello_world 只有开始和结束日志，没有实际功能，比 mod_echo 更简单。

配置说明一定要看，因为其中有模块功能的简介：
https://docs.ejabberd.im/admin/guide/configuration/#modecho

没看功能简介，直接看代码，结果被 do_client_version/3 给引入了歧途。

echo模块实现了echo功能，向特定域名的用户发送聊天消息，会原样返回。

测试图：


echo域名是可配置的：

modules:
  mod_echo:
    host: "echo_x.mydomain"

缺省为 "echo.@HOST@", 其中@HOST@会被替换成服务器域名。

代码中的 do_client_version/3 演示了 route + receive 发送并收取应答，
但是与echo功能无关，可以忽略该函数。

echo功能是 register_route/2 完成的，
  ejabberd_route:register_route(MyHost, Host)
表示从Host到MyHost的消息需要本模块来路由。
Host是服务器名，MyHost是配置的mod_echo.host.

可以查看route表：
(ejabberd@localhost)1> ets:tab2list(route).
[{route,<<"pubsub.zt-2203857">>,<<"zt-2203857">>,<0.5500.0>,
        undefined},
 {route,<<"echox.zt-2203857">>,<<"zt-2203857">>,<0.5492.0>,
        undefined},
 {route,<<"conference.zt-2203857">>,<<"zt-2203857">>,
        <0.5445.0>,undefined},
 {route,<<"zt-2203857">>,<<"zt-2203857">>,<0.5406.0>,
        {apply,ejabberd_local,route}}]
(ejabberd@localhost)2>

路由消息在 handle_info 中处理，它将来源和目的调换一下，然后调用 route() 发送原包。

金庆 2016-08-26 19:02 发表评论

金庆 2016-08-25 12:17 发表评论

金庆 2016-08-24 10:11 发表评论

搭建ejabberd集群

(金庆的专栏 2016.8)

以2台机器搭建一个ejabberd集群。

2台机器都是外网一块网卡，内网另一块网卡。
新建一个域名，添加2台机器的外网IP.

分别用源码安装ejabberd，可以单机运行。

复制 .erlang.cookie, 使2台机器都同。

更改 /sbin/ejabberdctl
ERLANG_NODE=ejabberd@localhost 改为
ERLANG_NODE=ejabberd@192.168.7.160
即localhost改为内网IP

启动失败：
[error] <0.63.0>@ejabberd_app:start_elixir_application:245 Elixir application not started.
[critical] <0.63.0>@ejabberd_app:db_init:127 Node name mismatch: I'm [ejabberd@192.168.7.160], the database is owned by [ejabberd@localhost]
[critical] <0.63.0>@ejabberd_app:db_init:129 Either set ERLANG_NODE in ejabberdctl.cfg or change node name in Mnesia
[error] <0.62.0> CRASH REPORT Process <0.62.0> with 0 neighbours exited with reason: node_name_mismatch in ejabberd_app:db_init/0 line 131 in application_master:init/4 line 134
[info] <0.31.0> Application ejabberd exited with reason: node_name_mismatch in ejabberd_app:db_init/0 line 131

因为Mnesia库中使用了旧的节点名
[root@host-192-168-7-160 ~]# ejabberdctl mnesia
[{auto_repair,true},
 {backup_module,mnesia_backup},
 {db_nodes,[ejabberd@localhost]},

删除旧库。

[root@host-192-168-7-160 ejabberd]# pwd
/var/lib/ejabberd
[root@host-192-168-7-160 ejabberd]# ls
caps_features.DAT  muc_registered.DCD   pubsub_index.DCD    sr_group.DCD
DECISION_TAB.LOG   muc_room.DCD         pubsub_item.DAT     sr_user.DCD
irc_custom.DCD     oauth_token.DCD      pubsub_node.DCD     vcard.DAT
last_activity.DCD  offline_msg.DAT      pubsub_state.DCD    vcard_search.DCD
LATEST.LOG         passwd.DCD           roster.DCD
motd.DCD           privacy.DCD          roster_version.DCD
motd_users.DCD     private_storage.DAT  schema.DAT
[root@host-192-168-7-160 ejabberd]# rm -f *
[root@host-192-168-7-160 ejabberd]#

更改 ejabberd.yml:
 hosts:
  - "my_domain.cn"
#  - "localhost"

先启动 ejabberd@192.168.7.160，然后启动另一节点，并让该节点加入集群：
ejabberdctl join_cluster 'ejabberd@192.168.7.160'

[root@host-192-168-7-159 ejabberd]# ejabberdctl list_cluster
'ejabberd@192.168.7.160'
'ejabberd@192.168.7.159'
[root@host-192-168-7-159 ejabberd]#

金庆 2016-08-19 17:14 发表评论

E:\Git\ejabberd_jinq0123>rebar compile skip_deps=true
==> rel (compile)
==> ejabberd_jinq0123 (compile)
Compiled asn1/XmppAddr.asn1
Compiled src/eldap_filter_yecc.yrl
e:/Git/ejabberd_jinq0123/src/ejabberd_config.erl:none: undefined parse transform
 'lager_transform'
ERROR: compile failed while processing E:/Git/ejabberd_jinq0123: rebar_abort

须先用 rebar compile 编译 lager. 其他无法编译的可忽略，然后再

金庆 2016-08-16 19:43 发表评论

Erlang Port 小心换行

(金庆的专栏)

Erlang的Port接口使用cin, cout与外部Port进程通信。

一般open_port()用binary模式打开。

    Port = open_port({spawn, PortExe},
                     [{packet, 4}, binary, use_stdio]),

此时须小心Port进程在Windows上输出 \n 前会自动添加 \r。
PortExe发送:
   <<10,11,84,101,115,116,77,101,115,115,97,103,101,18,10,10,8,98,98,98,98,98,98,98,98>>
Erlang接收成为：   
<<13,10,11,84,101,115,116,77,101,115,115,97,103,101,18,13,10,13,10,8,98,98,98,98,98>>

需要将Port进程的stdin, stdout设为二进制模式：

void set_binary_mode()
{
#if defined(WIN32)
    int result;
    result = _setmode(_fileno(stdin), _O_BINARY);
    if (-1 == result)
    {
        perror("set mode");
        exit(1);
    }
    result = _setmode(_fileno(stdout), _O_BINARY);
    if (-1 == result)
    {
        perror("set mode");
        exit(1);
    }
#endif
}

金庆 2016-01-20 14:46 发表评论

金庆 2015-11-12 11:03 发表评论

金庆 2015-08-25 17:50 发表评论

金庆 2015-08-06 10:30 发表评论

金庆 2015-07-28 15:13 发表评论

金庆 2015-06-10 10:46 发表评论

金庆 2015-05-05 17:11 发表评论

金庆 2015-04-20 16:34 发表评论

金庆 2015-03-31 16:45 发表评论

金庆 2015-03-26 17:07 发表评论

金庆 2015-03-17 10:49 发表评论