2016-09-27 04:57:14 +02:00
|
|
|
%%%-------------------------------------------------------------------
|
|
|
|
%%% File : ejabberd_oauth_rest.erl
|
|
|
|
%%% Author : Alexey Shchepin <alexey@process-one.net>
|
|
|
|
%%% Purpose : OAUTH2 REST backend
|
|
|
|
%%% Created : 26 Jul 2016 by Alexey Shchepin <alexey@process-one.net>
|
|
|
|
%%%
|
|
|
|
%%%
|
2021-01-27 16:55:25 +01:00
|
|
|
%%% ejabberd, Copyright (C) 2002-2021 ProcessOne
|
2016-09-27 04:57:14 +02:00
|
|
|
%%%
|
|
|
|
%%% 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., 59 Temple Place, Suite 330, Boston, MA
|
|
|
|
%%% 02111-1307 USA
|
|
|
|
%%%
|
|
|
|
%%%-------------------------------------------------------------------
|
|
|
|
|
|
|
|
-module(ejabberd_oauth_rest).
|
2017-05-21 10:31:30 +02:00
|
|
|
-behaviour(ejabberd_oauth).
|
2017-04-29 10:39:40 +02:00
|
|
|
|
2016-09-27 04:57:14 +02:00
|
|
|
-export([init/0,
|
|
|
|
store/1,
|
|
|
|
lookup/1,
|
2019-09-27 19:36:35 +02:00
|
|
|
clean/1,
|
|
|
|
lookup_client/1,
|
|
|
|
store_client/1]).
|
2016-09-27 04:57:14 +02:00
|
|
|
|
|
|
|
-include("ejabberd_oauth.hrl").
|
|
|
|
-include("logger.hrl").
|
2020-09-03 13:45:57 +02:00
|
|
|
-include_lib("xmpp/include/jid.hrl").
|
2016-09-27 04:57:14 +02:00
|
|
|
|
|
|
|
init() ->
|
2018-06-14 13:00:47 +02:00
|
|
|
rest:start(ejabberd_config:get_myname()),
|
2016-09-27 04:57:14 +02:00
|
|
|
ok.
|
|
|
|
|
|
|
|
store(R) ->
|
|
|
|
Path = path(<<"store">>),
|
|
|
|
%% Retry 2 times, with a backoff of 500millisec
|
|
|
|
{User, Server} = R#oauth_token.us,
|
2017-02-26 08:07:12 +01:00
|
|
|
SJID = jid:encode({User, Server, <<"">>}),
|
2016-09-27 04:57:14 +02:00
|
|
|
case rest:with_retry(
|
|
|
|
post,
|
2018-06-14 13:00:47 +02:00
|
|
|
[ejabberd_config:get_myname(), Path, [],
|
2016-09-27 04:57:14 +02:00
|
|
|
{[{<<"token">>, R#oauth_token.token},
|
|
|
|
{<<"user">>, SJID},
|
|
|
|
{<<"scope">>, R#oauth_token.scope},
|
|
|
|
{<<"expire">>, R#oauth_token.expire}
|
|
|
|
]}], 2, 500) of
|
|
|
|
{ok, Code, _} when Code == 200 orelse Code == 201 ->
|
|
|
|
ok;
|
|
|
|
Err ->
|
2019-06-24 19:32:34 +02:00
|
|
|
?ERROR_MSG("Failed to store oauth record ~p: ~p", [R, Err]),
|
2017-04-21 08:02:10 +02:00
|
|
|
{error, db_failure}
|
2016-09-27 04:57:14 +02:00
|
|
|
end.
|
|
|
|
|
|
|
|
lookup(Token) ->
|
|
|
|
Path = path(<<"lookup">>),
|
2018-06-14 13:00:47 +02:00
|
|
|
case rest:with_retry(post, [ejabberd_config:get_myname(), Path, [],
|
2016-09-27 04:57:14 +02:00
|
|
|
{[{<<"token">>, Token}]}],
|
|
|
|
2, 500) of
|
|
|
|
{ok, 200, {Data}} ->
|
|
|
|
SJID = proplists:get_value(<<"user">>, Data, <<>>),
|
2017-02-26 08:07:12 +01:00
|
|
|
JID = jid:decode(SJID),
|
2016-09-27 04:57:14 +02:00
|
|
|
US = {JID#jid.luser, JID#jid.lserver},
|
|
|
|
Scope = proplists:get_value(<<"scope">>, Data, []),
|
|
|
|
Expire = proplists:get_value(<<"expire">>, Data, 0),
|
2017-04-21 08:02:10 +02:00
|
|
|
{ok, #oauth_token{token = Token,
|
|
|
|
us = US,
|
|
|
|
scope = Scope,
|
|
|
|
expire = Expire}};
|
2016-09-27 04:57:14 +02:00
|
|
|
{ok, 404, _Resp} ->
|
2017-04-21 08:02:10 +02:00
|
|
|
error;
|
2016-09-27 04:57:14 +02:00
|
|
|
Other ->
|
|
|
|
?ERROR_MSG("Unexpected response for oauth lookup: ~p", [Other]),
|
2021-01-27 11:23:39 +01:00
|
|
|
case ejabberd_option:oauth_cache_rest_failure_life_time() of
|
|
|
|
infinity -> error;
|
|
|
|
Time -> {cache_with_timeout, error, Time}
|
|
|
|
end
|
2016-09-27 04:57:14 +02:00
|
|
|
end.
|
|
|
|
|
|
|
|
clean(_TS) ->
|
|
|
|
ok.
|
|
|
|
|
|
|
|
path(Path) ->
|
2019-06-14 11:33:26 +02:00
|
|
|
Base = ejabberd_option:ext_api_path_oauth(),
|
2016-09-27 04:57:14 +02:00
|
|
|
<<Base/binary, "/", Path/binary>>.
|
2019-09-27 19:36:35 +02:00
|
|
|
|
2019-10-03 05:18:07 +02:00
|
|
|
store_client(#oauth_client{client_id = ClientID,
|
|
|
|
client_name = ClientName,
|
|
|
|
grant_type = GrantType,
|
|
|
|
options = Options} = R) ->
|
2019-09-27 19:36:35 +02:00
|
|
|
Path = path(<<"store_client">>),
|
|
|
|
SGrantType =
|
|
|
|
case GrantType of
|
2019-10-03 05:18:07 +02:00
|
|
|
password -> <<"password">>;
|
|
|
|
implicit -> <<"implicit">>
|
2019-09-27 19:36:35 +02:00
|
|
|
end,
|
2019-10-03 05:18:07 +02:00
|
|
|
SOptions = misc:term_to_base64(Options),
|
|
|
|
%% Retry 2 times, with a backoff of 500millisec
|
2019-09-27 19:36:35 +02:00
|
|
|
case rest:with_retry(
|
|
|
|
post,
|
|
|
|
[ejabberd_config:get_myname(), Path, [],
|
2019-10-03 05:18:07 +02:00
|
|
|
{[{<<"client_id">>, ClientID},
|
|
|
|
{<<"client_name">>, ClientName},
|
2019-09-27 19:36:35 +02:00
|
|
|
{<<"grant_type">>, SGrantType},
|
2019-10-03 05:18:07 +02:00
|
|
|
{<<"options">>, SOptions}
|
2019-09-27 19:36:35 +02:00
|
|
|
]}], 2, 500) of
|
|
|
|
{ok, Code, _} when Code == 200 orelse Code == 201 ->
|
|
|
|
ok;
|
|
|
|
Err ->
|
|
|
|
?ERROR_MSG("Failed to store oauth record ~p: ~p", [R, Err]),
|
|
|
|
{error, db_failure}
|
|
|
|
end.
|
|
|
|
|
2019-10-03 05:18:07 +02:00
|
|
|
lookup_client(ClientID) ->
|
2019-09-27 19:36:35 +02:00
|
|
|
Path = path(<<"lookup_client">>),
|
|
|
|
case rest:with_retry(post, [ejabberd_config:get_myname(), Path, [],
|
2019-10-03 05:18:07 +02:00
|
|
|
{[{<<"client_id">>, ClientID}]}],
|
2019-09-27 19:36:35 +02:00
|
|
|
2, 500) of
|
|
|
|
{ok, 200, {Data}} ->
|
2019-10-03 05:18:07 +02:00
|
|
|
ClientName = proplists:get_value(<<"client_name">>, Data, <<>>),
|
2019-09-27 19:36:35 +02:00
|
|
|
SGrantType = proplists:get_value(<<"grant_type">>, Data, <<>>),
|
|
|
|
GrantType =
|
|
|
|
case SGrantType of
|
2019-10-03 05:18:07 +02:00
|
|
|
<<"password">> -> password;
|
|
|
|
<<"implicit">> -> implicit
|
2019-09-27 19:36:35 +02:00
|
|
|
end,
|
2019-10-03 05:18:07 +02:00
|
|
|
SOptions = proplists:get_value(<<"options">>, Data, <<>>),
|
|
|
|
case misc:base64_to_term(SOptions) of
|
|
|
|
{term, Options} ->
|
|
|
|
{ok, #oauth_client{client_id = ClientID,
|
|
|
|
client_name = ClientName,
|
|
|
|
grant_type = GrantType,
|
|
|
|
options = Options}};
|
|
|
|
_ ->
|
|
|
|
error
|
|
|
|
end;
|
2019-09-27 19:36:35 +02:00
|
|
|
{ok, 404, _Resp} ->
|
|
|
|
error;
|
|
|
|
Other ->
|
|
|
|
?ERROR_MSG("Unexpected response for oauth lookup: ~p", [Other]),
|
|
|
|
error
|
|
|
|
end.
|