如何从MongooseIM模块运行查询

时间:2015-03-09 23:53:53

标签: erlang mongoose-im

我正在尝试使用offline_message_hook触发MongooseIM模块,为用户计算离线存储中待处理消息的数量,并通过GET方法将其发送到URL。以下是我的代码。

send_notice(From, To, Packet) ->
    Type = xml:get_tag_attr_s(list_to_binary("type"), Packet),
    Body = xml:get_path_s(Packet, [{elem, list_to_binary("body")}, cdata]),
    PostUrl = "http://myurl.com/",
    Count = count_msg(To),
    GetParam = "?count=",
    FullUrl = PostUrl ++ GetParam ++ Count,

    ?DEBUG("POST URL : ~s",[FullUrl]),

    if (Type == <<"chat">>) and (Body /= <<"">>) ->
              Sep = "&",
        Post = [
          "alert=", url_encode(binary_to_list(Body)), Sep,
                                        "badge=", url_encode("+1"), Sep,
          % "sound=", Sound, Sep,
          "channel=", To#jid.luser, Sep,
          "info[from]=", From#jid.luser, Sep],
          % "auth_token=", Token],

        ?INFO_MSG("Sending post request to ~s with body \"~s\"", [FullUrl, Post]),

        httpc:request(post, {binary_to_list(FullUrl), [], "application/x-www-form-urlencoded", list_to_binary(Post)},[],[]),
        ok;
      true ->
        ok
    end.

count_msg(To) ->
     Username = To#jid.luser,
     LServer = To#jid.lserver,
     Count = ejabberd_odbc:sql_query(
      LServer,
      ["select count(*) from offline_message "
       "where username='", Username, "';"]),
     ?DEBUG("Count = ~s",[Count]),
     Count.

当我运行它时,我得到以下错误

2015-03-09 16:37:11.598 [debug] <0.763.0>@mod_zeropush:count_msg:102 FORMAT ERROR: "Count = ~s" [{selected,[<<"count">>],[{<<"5">>}]}]
["select count(*) from offline_message where username='",<<"reader">>,"';"]
2015-03-09 16:37:11.599 [debug] <0.763.0>@mod_zeropush:send_notice:72 FORMAT ERROR: "POST URL : ~s" [[104,116,116,112,58,47,47,107,107,104,97,110,46,100,108,99,119,111,114,108,100,119,105,100,101,46,99,111,109,47,63,99,111,117,110,116,61|{selected,[<<"count">>],[{<<"5">>}]}]]
2015-03-09 16:37:11.599 [info] <0.763.0>@mod_zeropush:send_notice:84 FORMAT ERROR: "Sending post request to ~s with body \"~s\"" [[104,116,116,112,58,47,47,107,107,104,97,110,46,100,108,99,119,111,114,108,100,119,105,100,101,46,99,111,109,47,63,99,111,117,110,116,61|{selected,[<<"count">>],[{<<"5">>}]}],["alert=","xxx","&","badge=","%2B1","&","channel=",<<"reader">>,"&","info[from]=",<<"kkhan">>,"&"]]
2015-03-09 16:37:11.602 [error] <0.763.0>@ejabberd_hooks:run1:240 {badarg,[{erlang,binary_to_list,[[104,116,116,112,58,47,47,107,107,104,97,110,46,100,108,99,119,111,114,108,100,119,105,100,101,46,99,111,109,47,63,99,111,117,110,116,61|{selected,[<<"count">>],[{<<"5">>}]}]],[]},{mod_zeropush,send_notice,3,[{file,"src/mod_zeropush.erl"},{line,86}]},{safely,apply,3,[{file,"src/safely.erl"},{line,19}]},{ejabberd_hooks,run1,3,[{file,"src/ejabberd_hooks.erl"},{line,236}]},{ejabberd_sm,route,3,[{file,"src/ejabberd_sm.erl"},{line,108}]},{ejabberd_local,route,3,[{file,"src/ejabberd_local.erl"},{line,139}]},{ejabberd_router,route,3,[{file,"src/ejabberd_router.erl"},{line,78}]},{ejabberd_c2s,session_established2,2,[{file,"src/ejabberd_c2s.erl"},{line,1098}]}]}

在erlang中获取SQL查询结果的正确方法是什么?以及httpc:request期望的格式是什么?

1 个答案:

答案 0 :(得分:2)

您获得的错误并不完全是SQL或MongooseIM特定错误。它们是io_lib:format/2或类似字符串格式化函数的错误用法。

此错误:

2015-03-09 16:37:11.598 [debug] <0.763.0>@mod_zeropush:count_msg:102 FORMAT ERROR: "Count = ~s" [{selected,[<<"count">>],[{<<"5">>}]}]

涉及:

?DEBUG("Count = ~s", [Count])

Count既不是字符串,也不是二进制,也不是iolist,也不是原子(只有这些类型可以使用~s打印 - 字符串格式化字符;请参阅{{3} })。 要使用默认的Erlang术语语法打印复杂术语,请使用~p~w

您的所有FORMAT ERROR错误都属于此类错误 - 您为传入的数据类型使用了错误的格式说明符。

好的,那么SQL查询结果的格式是什么?它打印在一个错误行中:

{selected, [<<"count">>], [{<<"5">>}]}

这是一个简单的音译,来自你在SQL shell中得到的内容(这个例子来自我在PostgreSQL中随机使用的一个表):

> SELECT count(*) FROM conversation_state;
 count
-------
     2
(1 row)

这是来自Erlang shell的等效运行:

> ejabberd_odbc:sql_query(<<"localhost">>, ["SELECT count(*) FROM conversation_state;"]).
{selected,[<<"count">>],[{<<"2">>}]}

所以结果总是一个3元组;第一个元素是selected(或insertedupdated ...取决于查询);第二个元素是列标题列表(这里只有一列count);第三个元素是元组列表,其中每个元组对应于结果集的一行。 row-as-tuples的元素与列标题的顺序相同。

关于最后一个错误:

2015-03-09 16:37:11.602 [error] <0.763.0>@ejabberd_hooks:run1:240 {badarg,[{erlang,binary_to_list,[[104,116,116,112,58,47,47,107,107,104,97,110,46,100,108,99,119,111,114,108,100,119,105,100,101,46,99,111,109,47,63,99,111,117,110,116,61|{selected,[<<"count">>],[{<<"5">>}]}]],[]},{mod_zeropush,send_notice,3,[{file,"src/mod_zeropush.erl"},{line,86}]},{safely,apply,3,[{file,"src/safely.erl"},{line,19}]},{ejabberd_hooks,run1,3,[{file,"src/ejabberd_hooks.erl"},{line,236}]},{ejabberd_sm,route,3,[{file,"src/ejabberd_sm.erl"},{line,108}]},{ejabberd_local,route,3,[{file,"src/ejabberd_local.erl"},{line,139}]},{ejabberd_router,route,3,[{file,"src/ejabberd_router.erl"},{line,78}]},{ejabberd_c2s,session_established2,2,[{file,"src/ejabberd_c2s.erl"},{line,1098}]}]}

您尝试将使用FullUrl = PostUrl ++ GetParam ++ Count创建的列表传递给erlang:binary_to_list/1。顾名思义,这个函数需要二进制文件,而不是列表。 Erlang动态,但强类型,并且隐式类型转换很少。正确解压缩SQL查询的结果,只返回count_msg中的数字并从中构建HTTP请求URL。