-module(mod_status).

-compile([{parse_transform, ejabberd_sql_pt}]).

-behaviour(gen_mod).

-export([start/2, stop/1, mod_options/1, depends/2, reload/3]).
-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").

-record(confirm_delivery, {messageid :: binary(),
			   timerref  :: reference()}).

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).

reload(_, _, _) ->
    ok.

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{}]},
  Host = <<"localhost">>,
	ejabberd_router:route_iq(IQ, JID,
				 gen_mod:get_module_proc(<<"localhost">>, ?MODULE),
				 10),
    Acc;

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

depends(_, _) ->
    [].

mod_options(_) ->
    [].