-module(mod_confirm).

-behaviour(gen_mod).
-behaviour(gen_server).


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

-include("ejabberd.hrl").

-include_lib("stdlib/include/ms_transform.hrl").
-include("xmpp.hrl").
-include("mod_mam.hrl").
-include("logger.hrl").
-include("ejabberd_sql_pt.hrl").

start(_Host, _Opt) ->
    ejabberd_hooks:add(user_send_packet, _Host, ?MODULE, send_packet, 50).

stop(_Host) ->
    ejabberd_hooks:delete(user_send_packet, _Host, ?MODULE, send_packet, 50).

send_packet({#message{type = chat, body = [_|_],
              id = ID, from = From, to = To} = Pkt, _} = Acc) ->

  JID =  #jid{luser = LUser, lserver = LServer} = To,

    %IQ = #iq{from = From, to = JID, type = get, sub_els = [#ping{}]},
    IQ = #iq{from = From, id = <<"s2c1">>, to = JID, type = get, sub_els=[#xmlel{name = <<"ping">>,attrs=[{<<"xmlns">>,<<"urn:xmpp:ping">>}]}]},

    % IQRes = mod_ping:iq_ping(IQ),
    % io:fwrite("~n IQRes  ~p ~n", [IQRes]),

    Host = <<"localhost">>,
    ejabberd_router:route_iq(IQ, JID,
                 gen_mod:get_module_proc(Host, ?MODULE),
                 10),
    Acc;

send_packet({#presence{type = Type} = Pkt, _ } = Acc) ->
  Acc;
send_packet(Acc) ->
    Acc.

depends(_, _) ->
    [].

mod_options(_) ->
    [].