142 lines
5.1 KiB
Erlang
142 lines
5.1 KiB
Erlang
%%%----------------------------------------------------------------------
|
|
%%% File : pubsub_db_sql.erl
|
|
%%% Author : Pablo Polvorin <pablo.polvorin@process-one.net>
|
|
%%% Purpose : Provide helpers for PubSub ODBC backend
|
|
%%% Created : 7 Aug 2009 by Pablo Polvorin <pablo.polvorin@process-one.net>
|
|
%%%
|
|
%%%
|
|
%%% ejabberd, Copyright (C) 2002-2017 ProcessOne
|
|
%%%
|
|
%%% This program is free software; you can redistribute it and/or
|
|
%%% modify it under the terms of the GNU General Public License as
|
|
%%% published by the Free Software Foundation; either version 2 of the
|
|
%%% License, or (at your option) any later version.
|
|
%%%
|
|
%%% This program is distributed in the hope that it will be useful,
|
|
%%% but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
%%% General Public License for more details.
|
|
%%%
|
|
%%% You should have received a copy of the GNU General Public License along
|
|
%%% with this program; if not, write to the Free Software Foundation, Inc.,
|
|
%%% 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
%%%
|
|
%%%----------------------------------------------------------------------
|
|
|
|
-module(pubsub_db_sql).
|
|
|
|
-author("pablo.polvorin@process-one.net").
|
|
|
|
-include("pubsub.hrl").
|
|
|
|
-export([add_subscription/1, read_subscription/1,
|
|
delete_subscription/1, update_subscription/1]).
|
|
|
|
%% TODO: Those -spec lines produce errors in old Erlang versions.
|
|
%% They can be enabled again in ejabberd 3.0 because it uses R12B or higher.
|
|
%% -spec read_subscription(SubID :: string()) -> {ok, #pubsub_subscription{}} | notfound.
|
|
read_subscription(SubID) ->
|
|
case
|
|
ejabberd_sql:sql_query_t([<<"select opt_name, opt_value from pubsub_subscr"
|
|
"iption_opt where subid = '">>,
|
|
ejabberd_sql:escape(SubID), <<"'">>])
|
|
of
|
|
{selected, [<<"opt_name">>, <<"opt_value">>], []} ->
|
|
notfound;
|
|
{selected, [<<"opt_name">>, <<"opt_value">>], Options} ->
|
|
{ok,
|
|
#pubsub_subscription{subid = SubID,
|
|
options = lists:map(fun subscription_opt_from_sql/1, Options)}}
|
|
end.
|
|
|
|
%% -spec delete_subscription(SubID :: string()) -> ok.
|
|
delete_subscription(SubID) ->
|
|
%% -spec update_subscription(#pubsub_subscription{}) -> ok .
|
|
%% -spec add_subscription(#pubsub_subscription{}) -> ok.
|
|
%% -------------- Internal utilities -----------------------
|
|
ejabberd_sql:sql_query_t([<<"delete from pubsub_subscription_opt "
|
|
"where subid = '">>,
|
|
ejabberd_sql:escape(SubID), <<"'">>]),
|
|
ok.
|
|
|
|
update_subscription(#pubsub_subscription{subid = SubId} = Sub) ->
|
|
delete_subscription(SubId), add_subscription(Sub).
|
|
|
|
add_subscription(#pubsub_subscription{subid = SubId, options = Opts}) ->
|
|
EscapedSubId = ejabberd_sql:escape(SubId),
|
|
lists:foreach(fun (Opt) ->
|
|
{OdbcOptName, OdbcOptValue} = subscription_opt_to_sql(Opt),
|
|
ejabberd_sql:sql_query_t([<<"insert into pubsub_subscription_opt(subid, "
|
|
"opt_name, opt_value)values ('">>,
|
|
EscapedSubId, <<"','">>,
|
|
OdbcOptName, <<"','">>,
|
|
OdbcOptValue, <<"')">>])
|
|
end,
|
|
Opts),
|
|
ok.
|
|
|
|
subscription_opt_from_sql([<<"DELIVER">>, Value]) ->
|
|
{deliver, sql_to_boolean(Value)};
|
|
subscription_opt_from_sql([<<"DIGEST">>, Value]) ->
|
|
{digest, sql_to_boolean(Value)};
|
|
subscription_opt_from_sql([<<"DIGEST_FREQUENCY">>, Value]) ->
|
|
{digest_frequency, sql_to_integer(Value)};
|
|
subscription_opt_from_sql([<<"EXPIRE">>, Value]) ->
|
|
{expire, sql_to_timestamp(Value)};
|
|
subscription_opt_from_sql([<<"INCLUDE_BODY">>, Value]) ->
|
|
{include_body, sql_to_boolean(Value)};
|
|
%%TODO: might be > than 1 show_values value??.
|
|
%% need to use compact all in only 1 opt.
|
|
subscription_opt_from_sql([<<"SHOW_VALUES">>, Value]) ->
|
|
{show_values, Value};
|
|
subscription_opt_from_sql([<<"SUBSCRIPTION_TYPE">>, Value]) ->
|
|
{subscription_type,
|
|
case Value of
|
|
<<"items">> -> items;
|
|
<<"nodes">> -> nodes
|
|
end};
|
|
subscription_opt_from_sql([<<"SUBSCRIPTION_DEPTH">>, Value]) ->
|
|
{subscription_depth,
|
|
case Value of
|
|
<<"all">> -> all;
|
|
N -> sql_to_integer(N)
|
|
end}.
|
|
|
|
subscription_opt_to_sql({deliver, Bool}) ->
|
|
{<<"DELIVER">>, boolean_to_sql(Bool)};
|
|
subscription_opt_to_sql({digest, Bool}) ->
|
|
{<<"DIGEST">>, boolean_to_sql(Bool)};
|
|
subscription_opt_to_sql({digest_frequency, Int}) ->
|
|
{<<"DIGEST_FREQUENCY">>, integer_to_sql(Int)};
|
|
subscription_opt_to_sql({expire, Timestamp}) ->
|
|
{<<"EXPIRE">>, timestamp_to_sql(Timestamp)};
|
|
subscription_opt_to_sql({include_body, Bool}) ->
|
|
{<<"INCLUDE_BODY">>, boolean_to_sql(Bool)};
|
|
subscription_opt_to_sql({show_values, Values}) ->
|
|
{<<"SHOW_VALUES">>, Values};
|
|
subscription_opt_to_sql({subscription_type, Type}) ->
|
|
{<<"SUBSCRIPTION_TYPE">>,
|
|
case Type of
|
|
items -> <<"items">>;
|
|
nodes -> <<"nodes">>
|
|
end};
|
|
subscription_opt_to_sql({subscription_depth, Depth}) ->
|
|
{<<"SUBSCRIPTION_DEPTH">>,
|
|
case Depth of
|
|
all -> <<"all">>;
|
|
N -> integer_to_sql(N)
|
|
end}.
|
|
|
|
integer_to_sql(N) -> integer_to_binary(N).
|
|
|
|
boolean_to_sql(true) -> <<"1">>;
|
|
boolean_to_sql(false) -> <<"0">>.
|
|
|
|
timestamp_to_sql(T) -> xmpp_util:encode_timestamp(T).
|
|
|
|
sql_to_integer(N) -> binary_to_integer(N).
|
|
|
|
sql_to_boolean(B) -> B == <<"1">>.
|
|
|
|
sql_to_timestamp(T) -> xmpp_util:decode_timestamp(T).
|