Chapril/xmpp.chapril.org-ejabberd
26
1
Fork 0
mirror of https://github.com/processone/ejabberd.git synced 2024-12-28 17:38:54 +01:00
Code Releases Activity

When convertion of xmlrpc argument to type fails, report it as error

Browse Source
This commit is contained in:
Paweł Chmielowski 2016-06-16 10:24:50 +02:00 committed by Christophe Romain
parent a9b456ccb3
commit 1b5c50a384
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ejabberd_xmlrpc.erl
View File

@ -373,6 +373,10 @@ try_do_command(AccessCommands, Auth, Command, AttrL,
"The call provided additional unused " "The call provided additional unused "
"arguments:~n~p", "arguments:~n~p",
[ExitAtL]); [ExitAtL]);
exit:{invalid_arg_type, Arg, Type} ->
build_fault_response(-122,
"Parameter '~p' can't be coerced to type '~p'",
[Arg, Type]);
Why -> Why ->
build_fault_response(-118, build_fault_response(-118,
"A problem '~p' occurred executing the " "A problem '~p' occurred executing the "
@ -472,7 +476,7 @@ format_arg(undefined, binary) -> <<>>;
format_arg(undefined, string) -> ""; format_arg(undefined, string) -> "";
format_arg(Arg, Format) -> format_arg(Arg, Format) ->
?ERROR_MSG("don't know how to format Arg ~p for format ~p", [Arg, Format]), ?ERROR_MSG("don't know how to format Arg ~p for format ~p", [Arg, Format]),
throw({error_formatting_argument, Arg, Format}). exit({invalid_arg_type, Arg, Format}).
process_unicode_codepoints(Str) -> process_unicode_codepoints(Str) ->
iolist_to_binary(lists:map(fun(X) when X > 255 -> unicode:characters_to_binary([X]); iolist_to_binary(lists:map(fun(X) when X > 255 -> unicode:characters_to_binary([X]);