Chapril
/
xmpp.chapril.org-ejabberd
mirror of https://github.com/processone/ejabberd.git
24
1
Fork 0
Code Releases Activity

Get rid of compile warnings

This commit is contained in:
Evgeniy Khramtsov 2016-11-25 09:48:26 +03:00
parent 993cbcb133
commit e1539e5769
4 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ejabberd_ctl.erl
View File

@ -311,7 +311,7 @@ try_call_command(Args, Auth, AccessCommands, Version) ->
end. end.
%% @spec (Args::[string()], Auth, AccessCommands) -> string() | integer() | {string(), integer()} | {error, ErrorType} %% @spec (Args::[string()], Auth, AccessCommands) -> string() | integer() | {string(), integer()} | {error, ErrorType}
call_command([CmdString | Args], Auth, AccessCommands, Version) -> call_command([CmdString | Args], Auth, _AccessCommands, Version) ->
CmdStringU = ejabberd_regexp:greplace( CmdStringU = ejabberd_regexp:greplace(
list_to_binary(CmdString), <<"-">>, <<"_">>), list_to_binary(CmdString), <<"-">>, <<"_">>),
Command = list_to_atom(binary_to_list(CmdStringU)), Command = list_to_atom(binary_to_list(CmdStringU)),

8
src/ejabberd_xmlrpc.erl
View File

@ -216,10 +216,10 @@ process(_, #request{method = 'POST', data = Data, opts = Opts, ip = {IP, _}}) ->
L), L),
L L
end, all), end, all),
CommOpts = gen_mod:get_opt( %% CommOpts = gen_mod:get_opt(
options, AcOpts, %% options, AcOpts,
fun(L) when is_list(L) -> L end, %% fun(L) when is_list(L) -> L end,
[]), %% []),
[{<<"ejabberd_xmlrpc compatibility shim">>, {[?MODULE], [{access, Ac}], Commands}}]; [{<<"ejabberd_xmlrpc compatibility shim">>, {[?MODULE], [{access, Ac}], Commands}}];
(Wrong) -> (Wrong) ->
?WARNING_MSG("wrong options format for ~p: ~p", ?WARNING_MSG("wrong options format for ~p: ~p",

4
src/mod_http_api.erl
View File

@ -503,8 +503,8 @@ unauthorized_response() ->
invalid_token_response() -> invalid_token_response() ->
json_error(401, 10, <<"Oauth Token is invalid or expired.">>). json_error(401, 10, <<"Oauth Token is invalid or expired.">>).
outofscope_response() -> %% outofscope_response() ->
json_error(401, 11, <<"Token does not grant usage to command required scope.">>). %% json_error(401, 11, <<"Token does not grant usage to command required scope.">>).
badrequest_response() -> badrequest_response() ->
badrequest_response(<<"400 Bad Request">>). badrequest_response(<<"400 Bad Request">>).

3
src/mod_privacy_sql.erl
View File

@ -334,9 +334,6 @@ sql_get_privacy_list_id_t(LUser, Name) ->
sql_get_privacy_list_data(LUser, LServer, Name) -> sql_get_privacy_list_data(LUser, LServer, Name) ->
sql_queries:get_privacy_list_data(LServer, LUser, Name). sql_queries:get_privacy_list_data(LServer, LUser, Name).
sql_get_privacy_list_data_t(LUser, Name) ->
sql_queries:get_privacy_list_data_t(LUser, Name).
sql_get_privacy_list_data_by_id(ID, LServer) -> sql_get_privacy_list_data_by_id(ID, LServer) ->
sql_queries:get_privacy_list_data_by_id(LServer, ID). sql_queries:get_privacy_list_data_by_id(LServer, ID).