move modules to plugins
This commit is contained in:
Feng
parent
3ab93e0e46
commit
611ca0dca4
|
|
@ -1,75 +0,0 @@
|
||||||
%%--------------------------------------------------------------------
|
|
||||||
%% Copyright (c) 2012-2016 Feng Lee <feng@emqtt.io>.
|
|
||||||
%%
|
|
||||||
%% Licensed under the Apache License, Version 2.0 (the "License");
|
|
||||||
%% you may not use this file except in compliance with the License.
|
|
||||||
%% You may obtain a copy of the License at
|
|
||||||
%%
|
|
||||||
%% http://www.apache.org/licenses/LICENSE-2.0
|
|
||||||
%%
|
|
||||||
%% Unless required by applicable law or agreed to in writing, software
|
|
||||||
%% distributed under the License is distributed on an "AS IS" BASIS,
|
|
||||||
%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
||||||
%% See the License for the specific language governing permissions and
|
|
||||||
%% limitations under the License.
|
|
||||||
%%--------------------------------------------------------------------
|
|
||||||
|
|
||||||
-module(emqttd_mod_presence).
|
|
||||||
|
|
||||||
-behaviour(emqttd_gen_mod).
|
|
||||||
|
|
||||||
-include("emqttd.hrl").
|
|
||||||
|
|
||||||
-export([load/1, unload/1]).
|
|
||||||
|
|
||||||
-export([on_client_connected/3, on_client_disconnected/3]).
|
|
||||||
|
|
||||||
load(Opts) ->
|
|
||||||
emqttd:hook('client.connected', fun ?MODULE:on_client_connected/3, [Opts]),
|
|
||||||
emqttd:hook('client.disconnected', fun ?MODULE:on_client_disconnected/3, [Opts]).
|
|
||||||
|
|
||||||
on_client_connected(ConnAck, Client = #mqtt_client{client_id = ClientId,
|
|
||||||
username = Username,
|
|
||||||
peername = {IpAddr, _},
|
|
||||||
clean_sess = CleanSess,
|
|
||||||
proto_ver = ProtoVer}, Opts) ->
|
|
||||||
Json = mochijson2:encode([{clientid, ClientId},
|
|
||||||
{username, Username},
|
|
||||||
{ipaddress, list_to_binary(emqttd_net:ntoa(IpAddr))},
|
|
||||||
{session, sess(CleanSess)},
|
|
||||||
{protocol, ProtoVer},
|
|
||||||
{connack, ConnAck},
|
|
||||||
{ts, emqttd_time:now_to_secs()}]),
|
|
||||||
Msg = message(qos(Opts), topic(connected, ClientId), Json),
|
|
||||||
emqttd:publish(emqttd_message:set_flag(sys, Msg)),
|
|
||||||
{ok, Client}.
|
|
||||||
|
|
||||||
on_client_disconnected(Reason, #mqtt_client{client_id = ClientId}, Opts) ->
|
|
||||||
Json = mochijson2:encode([{clientid, ClientId},
|
|
||||||
{reason, reason(Reason)},
|
|
||||||
{ts, emqttd_time:now_to_secs()}]),
|
|
||||||
Msg = message(qos(Opts), topic(disconnected, ClientId), Json),
|
|
||||||
emqttd:publish(emqttd_message:set_flag(sys, Msg)),
|
|
||||||
ok.
|
|
||||||
|
|
||||||
unload(_Opts) ->
|
|
||||||
emqttd:unhook('client.connected', fun ?MODULE:on_client_connected/3),
|
|
||||||
emqttd:unhook('client.disconnected', fun ?MODULE:on_client_disconnected/3).
|
|
||||||
|
|
||||||
sess(false) -> true;
|
|
||||||
sess(true) -> false.
|
|
||||||
|
|
||||||
qos(Opts) -> proplists:get_value(qos, Opts, 0).
|
|
||||||
|
|
||||||
message(Qos, Topic, Json) ->
|
|
||||||
emqttd_message:make(presence, Qos, Topic, iolist_to_binary(Json)).
|
|
||||||
|
|
||||||
topic(connected, ClientId) ->
|
|
||||||
emqttd_topic:systop(list_to_binary(["clients/", ClientId, "/connected"]));
|
|
||||||
topic(disconnected, ClientId) ->
|
|
||||||
emqttd_topic:systop(list_to_binary(["clients/", ClientId, "/disconnected"])).
|
|
||||||
|
|
||||||
reason(Reason) when is_atom(Reason) -> Reason;
|
|
||||||
reason({Error, _}) when is_atom(Error) -> Error;
|
|
||||||
reason(_) -> internal_error.
|
|
||||||
|
|
||||||
|
|
@ -1,202 +0,0 @@
|
||||||
%%--------------------------------------------------------------------
|
|
||||||
%% Copyright (c) 2012-2016 Feng Lee <feng@emqtt.io>.
|
|
||||||
%%
|
|
||||||
%% Licensed under the Apache License, Version 2.0 (the "License");
|
|
||||||
%% you may not use this file except in compliance with the License.
|
|
||||||
%% You may obtain a copy of the License at
|
|
||||||
%%
|
|
||||||
%% http://www.apache.org/licenses/LICENSE-2.0
|
|
||||||
%%
|
|
||||||
%% Unless required by applicable law or agreed to in writing, software
|
|
||||||
%% distributed under the License is distributed on an "AS IS" BASIS,
|
|
||||||
%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
||||||
%% See the License for the specific language governing permissions and
|
|
||||||
%% limitations under the License.
|
|
||||||
%%--------------------------------------------------------------------
|
|
||||||
|
|
||||||
-module(emqttd_mod_retainer).
|
|
||||||
|
|
||||||
-behaviour(gen_server).
|
|
||||||
|
|
||||||
-behaviour(emqttd_gen_mod).
|
|
||||||
|
|
||||||
-include("emqttd.hrl").
|
|
||||||
|
|
||||||
-include("emqttd_internal.hrl").
|
|
||||||
|
|
||||||
-include_lib("stdlib/include/ms_transform.hrl").
|
|
||||||
|
|
||||||
%% gen_mod Callbacks
|
|
||||||
-export([load/1, unload/1]).
|
|
||||||
|
|
||||||
%% Hook Callbacks
|
|
||||||
-export([on_session_subscribed/4, on_message_publish/2]).
|
|
||||||
|
|
||||||
%% API Function Exports
|
|
||||||
-export([start_link/1]).
|
|
||||||
|
|
||||||
%% gen_server Function Exports
|
|
||||||
-export([init/1, handle_call/3, handle_cast/2, handle_info/2,
|
|
||||||
terminate/2, code_change/3]).
|
|
||||||
|
|
||||||
-record(mqtt_retained, {topic, msg}).
|
|
||||||
|
|
||||||
-record(state, {stats_fun, expired_after, stats_timer, expire_timer}).
|
|
||||||
|
|
||||||
%%--------------------------------------------------------------------
|
|
||||||
%% Load/Unload
|
|
||||||
%%--------------------------------------------------------------------
|
|
||||||
|
|
||||||
load(Env) ->
|
|
||||||
emqttd_mod_sup:start_child(spec(Env)),
|
|
||||||
emqttd:hook('session.subscribed', fun ?MODULE:on_session_subscribed/4, [Env]),
|
|
||||||
emqttd:hook('message.publish', fun ?MODULE:on_message_publish/2, [Env]).
|
|
||||||
|
|
||||||
on_session_subscribed(_ClientId, _Username, {Topic, _Opts}, _Env) ->
|
|
||||||
SessPid = self(),
|
|
||||||
Msgs = case emqttd_topic:wildcard(Topic) of
|
|
||||||
false -> read_messages(Topic);
|
|
||||||
true -> match_messages(Topic)
|
|
||||||
end,
|
|
||||||
lists:foreach(fun(Msg) -> SessPid ! {dispatch, Topic, Msg} end, lists:reverse(Msgs)).
|
|
||||||
|
|
||||||
on_message_publish(Msg = #mqtt_message{retain = false}, _Env) ->
|
|
||||||
{ok, Msg};
|
|
||||||
|
|
||||||
%% RETAIN flag set to 1 and payload containing zero bytes
|
|
||||||
on_message_publish(Msg = #mqtt_message{retain = true, topic = Topic, payload = <<>>}, _Env) ->
|
|
||||||
mnesia:dirty_delete(mqtt_retained, Topic),
|
|
||||||
{stop, Msg};
|
|
||||||
|
|
||||||
on_message_publish(Msg = #mqtt_message{topic = Topic, retain = true, payload = Payload}, Env) ->
|
|
||||||
case {is_table_full(Env), is_too_big(size(Payload), Env)} of
|
|
||||||
{false, false} ->
|
|
||||||
mnesia:dirty_write(#mqtt_retained{topic = Topic, msg = Msg}),
|
|
||||||
emqttd_metrics:set('messages/retained', retained_count());
|
|
||||||
{true, _}->
|
|
||||||
lager:error("Cannot retain message(topic=~s) for table is full!", [Topic]);
|
|
||||||
{_, true}->
|
|
||||||
lager:error("Cannot retain message(topic=~s, payload_size=~p)"
|
|
||||||
" for payload is too big!", [Topic, size(Payload)])
|
|
||||||
end,
|
|
||||||
{ok, Msg#mqtt_message{retain = false}}.
|
|
||||||
|
|
||||||
is_table_full(Env) ->
|
|
||||||
Limit = proplists:get_value(max_message_num, Env, 0),
|
|
||||||
Limit > 0 andalso (retained_count() > Limit).
|
|
||||||
|
|
||||||
is_too_big(Size, Env) ->
|
|
||||||
Limit = proplists:get_value(max_payload_size, Env, 0),
|
|
||||||
Limit > 0 andalso (Size > Limit).
|
|
||||||
|
|
||||||
unload(_Env) ->
|
|
||||||
emqttd:unhook('session.subscribed', fun ?MODULE:on_session_subscribed/4),
|
|
||||||
emqttd:unhook('message.publish', fun ?MODULE:on_message_publish/2),
|
|
||||||
emqttd_mod_sup:stop_child(?MODULE).
|
|
||||||
|
|
||||||
spec(Env) ->
|
|
||||||
{?MODULE, {?MODULE, start_link, [Env]}, permanent, 5000, worker, [?MODULE]}.
|
|
||||||
|
|
||||||
%%--------------------------------------------------------------------
|
|
||||||
%% API
|
|
||||||
%%--------------------------------------------------------------------
|
|
||||||
|
|
||||||
%% @doc Start the retainer
|
|
||||||
-spec(start_link(Env :: list()) -> {ok, pid()} | ignore | {error, any()}).
|
|
||||||
start_link(Env) ->
|
|
||||||
gen_server:start_link({local, ?MODULE}, ?MODULE, [Env], []).
|
|
||||||
|
|
||||||
%%--------------------------------------------------------------------
|
|
||||||
%% gen_server Callbacks
|
|
||||||
%%--------------------------------------------------------------------
|
|
||||||
|
|
||||||
init([Env]) ->
|
|
||||||
Copy = case proplists:get_value(storage_type, Env, disc) of
|
|
||||||
disc -> disc_copies;
|
|
||||||
ram -> ram_copies
|
|
||||||
end,
|
|
||||||
ok = emqttd_mnesia:create_table(mqtt_retained, [
|
|
||||||
{type, ordered_set},
|
|
||||||
{Copy, [node()]},
|
|
||||||
{record_name, mqtt_retained},
|
|
||||||
{attributes, record_info(fields, mqtt_retained)},
|
|
||||||
{storage_properties, [{ets, [compressed]},
|
|
||||||
{dets, [{auto_save, 1000}]}]}]),
|
|
||||||
ok = emqttd_mnesia:copy_table(mqtt_retained),
|
|
||||||
StatsFun = emqttd_stats:statsfun('retained/count', 'retained/max'),
|
|
||||||
{ok, StatsTimer} = timer:send_interval(timer:seconds(1), stats),
|
|
||||||
State = #state{stats_fun = StatsFun, stats_timer = StatsTimer},
|
|
||||||
{ok, init_expire_timer(proplists:get_value(expired_after, Env, 0), State)}.
|
|
||||||
|
|
||||||
init_expire_timer(0, State) ->
|
|
||||||
State;
|
|
||||||
init_expire_timer(undefined, State) ->
|
|
||||||
State;
|
|
||||||
init_expire_timer(Secs, State) ->
|
|
||||||
{ok, Timer} = timer:send_interval(timer:seconds(Secs), expire),
|
|
||||||
State#state{expired_after = Secs, expire_timer = Timer}.
|
|
||||||
|
|
||||||
handle_call(Req, _From, State) ->
|
|
||||||
?UNEXPECTED_REQ(Req, State).
|
|
||||||
|
|
||||||
handle_cast(Msg, State) ->
|
|
||||||
?UNEXPECTED_MSG(Msg, State).
|
|
||||||
|
|
||||||
handle_info(stats, State = #state{stats_fun = StatsFun}) ->
|
|
||||||
StatsFun(retained_count()),
|
|
||||||
{noreply, State, hibernate};
|
|
||||||
|
|
||||||
handle_info(expire, State = #state{expired_after = Never})
|
|
||||||
when Never =:= 0 orelse Never =:= undefined ->
|
|
||||||
{noreply, State, hibernate};
|
|
||||||
|
|
||||||
handle_info(expire, State = #state{expired_after = ExpiredAfter}) ->
|
|
||||||
expire_messages(emqttd_time:now_to_secs() - ExpiredAfter),
|
|
||||||
{noreply, State, hibernate};
|
|
||||||
|
|
||||||
handle_info(Info, State) ->
|
|
||||||
?UNEXPECTED_INFO(Info, State).
|
|
||||||
|
|
||||||
terminate(_Reason, _State = #state{stats_timer = TRef1, expire_timer = TRef2}) ->
|
|
||||||
timer:cancel(TRef1),
|
|
||||||
timer:cancel(TRef2).
|
|
||||||
|
|
||||||
code_change(_OldVsn, State, _Extra) ->
|
|
||||||
{ok, State}.
|
|
||||||
|
|
||||||
%%--------------------------------------------------------------------
|
|
||||||
%% Internal Functions
|
|
||||||
%%--------------------------------------------------------------------
|
|
||||||
|
|
||||||
-spec(read_messages(binary()) -> [mqtt_message()]).
|
|
||||||
read_messages(Topic) ->
|
|
||||||
[Msg || #mqtt_retained{msg = Msg} <- mnesia:dirty_read(mqtt_retained, Topic)].
|
|
||||||
|
|
||||||
-spec(match_messages(binary()) -> [mqtt_message()]).
|
|
||||||
match_messages(Filter) ->
|
|
||||||
%% TODO: optimize later...
|
|
||||||
Fun = fun(#mqtt_retained{topic = Name, msg = Msg}, Acc) ->
|
|
||||||
case emqttd_topic:match(Name, Filter) of
|
|
||||||
true -> [Msg|Acc];
|
|
||||||
false -> Acc
|
|
||||||
end
|
|
||||||
end,
|
|
||||||
mnesia:async_dirty(fun mnesia:foldl/3, [Fun, [], mqtt_retained]).
|
|
||||||
|
|
||||||
-spec(expire_messages(pos_integer()) -> any()).
|
|
||||||
expire_messages(Time) when is_integer(Time) ->
|
|
||||||
mnesia:transaction(
|
|
||||||
fun() ->
|
|
||||||
Match = ets:fun2ms(
|
|
||||||
fun(#mqtt_retained{topic = Topic, msg = #mqtt_message{timestamp = Ts}})
|
|
||||||
when Time > Ts -> Topic
|
|
||||||
end),
|
|
||||||
Topics = mnesia:select(mqtt_retained, Match, write),
|
|
||||||
lists:foreach(fun(<<"$SYS/", _/binary>>) -> ok; %% ignore $SYS/# messages
|
|
||||||
(Topic) -> mnesia:delete({mqtt_retained, Topic})
|
|
||||||
end, Topics)
|
|
||||||
end).
|
|
||||||
|
|
||||||
-spec(retained_count() -> non_neg_integer()).
|
|
||||||
retained_count() -> mnesia:table_info(mqtt_retained, size).
|
|
||||||
|
|
||||||
|
|
@ -1,52 +0,0 @@
|
||||||
%%--------------------------------------------------------------------
|
|
||||||
%% Copyright (c) 2012-2016 Feng Lee <feng@emqtt.io>.
|
|
||||||
%%
|
|
||||||
%% Licensed under the Apache License, Version 2.0 (the "License");
|
|
||||||
%% you may not use this file except in compliance with the License.
|
|
||||||
%% You may obtain a copy of the License at
|
|
||||||
%%
|
|
||||||
%% http://www.apache.org/licenses/LICENSE-2.0
|
|
||||||
%%
|
|
||||||
%% Unless required by applicable law or agreed to in writing, software
|
|
||||||
%% distributed under the License is distributed on an "AS IS" BASIS,
|
|
||||||
%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
||||||
%% See the License for the specific language governing permissions and
|
|
||||||
%% limitations under the License.
|
|
||||||
%%--------------------------------------------------------------------
|
|
||||||
|
|
||||||
-module(emqttd_mod_subscription).
|
|
||||||
|
|
||||||
-behaviour(emqttd_gen_mod).
|
|
||||||
|
|
||||||
-include("emqttd.hrl").
|
|
||||||
|
|
||||||
-include("emqttd_protocol.hrl").
|
|
||||||
|
|
||||||
-export([load/1, on_client_connected/3, unload/1]).
|
|
||||||
|
|
||||||
load(Opts) ->
|
|
||||||
Topics = [{iolist_to_binary(Topic), QoS} || {Topic, QoS} <- Opts, ?IS_QOS(QoS)],
|
|
||||||
emqttd:hook('client.connected', fun ?MODULE:on_client_connected/3, [Topics]).
|
|
||||||
|
|
||||||
on_client_connected(?CONNACK_ACCEPT, Client = #mqtt_client{client_id = ClientId,
|
|
||||||
client_pid = ClientPid,
|
|
||||||
username = Username}, Topics) ->
|
|
||||||
|
|
||||||
Replace = fun(Topic) -> rep(<<"%u">>, Username, rep(<<"%c">>, ClientId, Topic)) end,
|
|
||||||
TopicTable = [{Replace(Topic), Qos} || {Topic, Qos} <- Topics],
|
|
||||||
emqttd_client:subscribe(ClientPid, TopicTable),
|
|
||||||
{ok, Client};
|
|
||||||
|
|
||||||
on_client_connected(_ConnAck, _Client, _State) ->
|
|
||||||
ok.
|
|
||||||
|
|
||||||
unload(_Opts) ->
|
|
||||||
emqttd:unhook('client.connected', fun ?MODULE:on_client_connected/3).
|
|
||||||
|
|
||||||
rep(<<"%c">>, ClientId, Topic) ->
|
|
||||||
emqttd_topic:feed_var(<<"%c">>, ClientId, Topic);
|
|
||||||
rep(<<"%u">>, undefined, Topic) ->
|
|
||||||
Topic;
|
|
||||||
rep(<<"%u">>, Username, Topic) ->
|
|
||||||
emqttd_topic:feed_var(<<"%u">>, Username, Topic).
|
|
||||||
|
|
||||||
Loading…
Reference in New Issue