mirror of
https://github.com/processone/ejabberd.git
synced 2024-11-04 15:36:57 +01:00
109 lines
2.8 KiB
Erlang
109 lines
2.8 KiB
Erlang
|
-module(xmpp_xdata).
|
||
|
|
|
||
|
|
|
||
|
|
-include("jlib.hrl").
|
||
|
|
-include("ejabberd.hrl").
|
||
|
|
-compile(export_all).
|
||
|
|
|
||
|
|
xmlcdata(CData) ->
|
||
|
|
{xmlcdata, CData}.
|
||
|
|
|
||
|
|
xmlattr(Name, Value) ->
|
||
|
|
% #xmlattr{name = Name, value = Value}.
|
||
|
|
{Name, Value}.
|
||
|
|
|
||
|
|
xmlattr_label(Label) ->
|
||
|
|
xmlattr(<<"label">>, Label).
|
||
|
|
|
||
|
|
xmlattr_type(Type) ->
|
||
|
|
xmlattr(<<"type">>, Type).
|
||
|
|
|
||
|
|
xmlattr_var(Var) ->
|
||
|
|
xmlattr(<<"var">>, Var).
|
||
|
|
|
||
|
|
|
||
|
|
xmlel(NS, Name, Attrs, Children) ->
|
||
|
|
#xmlel{name = Name, attrs = [{<<"xmlns">>, NS} | Attrs], children = Children}.
|
||
|
|
|
||
|
|
xmlel(Name, Attrs, Children) ->
|
||
|
|
xmlel(?NS_XDATA, Name, Attrs, Children).
|
||
|
|
|
||
|
|
xmlel_desc(CData) ->
|
||
|
|
xmlel(<<"desc">>, [], [xmlcdata(CData)]).
|
||
|
|
|
||
|
|
xmlel_value(Value) ->
|
||
|
|
xmlel(<<"value">>, [], [xmlcdata(Value)]).
|
||
|
|
|
||
|
|
xmlel_option({Value, Label}) ->
|
||
|
|
xmlel(<<"option">>, [xmlattr_label(Label)], [xmlel_value(Value)]);
|
||
|
|
xmlel_option(Value) ->
|
||
|
|
xmlel(<<"option">>, [], [xmlel_value(Value)]).
|
||
|
|
|
||
|
|
xmlel_field(Var, Type, Values) ->
|
||
|
|
xmlel(<<"field">>,
|
||
|
|
[xmlattr_var(Var),
|
||
|
|
xmlattr_type(Type)],
|
||
|
|
[xmlel_value(Value) || Value <- Values]).
|
||
|
|
|
||
|
|
xmlel_field(Var, Type, Label, Values, Options) ->
|
||
|
|
xmlel(<<"field">>,
|
||
|
|
[xmlattr_var(Var),
|
||
|
|
xmlattr_label(Label),
|
||
|
|
xmlattr_type(Type)],
|
||
|
|
[xmlel_option(Option) || Option <- Options]
|
||
|
|
++
|
||
|
|
[xmlel_value(Value) || Value <- Values]).
|
||
|
|
|
||
|
|
xmlel_field_boolean(Var, Label, Value) ->
|
||
|
|
xmlel_field(Var, <<"boolean">>, Label, [Value], []).
|
||
|
|
|
||
|
|
%%
|
||
|
|
xmlel_field_fixed(Var, Label, Value) ->
|
||
|
|
xmlel_field(Var, <<"fixed">>, Label, [Value], []).
|
||
|
|
|
||
|
|
%%
|
||
|
|
xmlel_field_hidden(Var, Value) ->
|
||
|
|
xmlel_field(Var, <<"hidden">>, [Value]).
|
||
|
|
|
||
|
|
%%
|
||
|
|
xmlel_field_list_single(Var, Label, Value, Options) ->
|
||
|
|
xmlel_field(Var, <<"list-single">>, Label, [Value], Options).
|
||
|
|
|
||
|
|
%%
|
||
|
|
xmlel_field_list_multi(Var, Label, Values, Options) ->
|
||
|
|
xmlel_field(Var, <<"list-multi">>, Label, Values, Options).
|
||
|
|
|
||
|
|
%%
|
||
|
|
xmlel_field_text_single(Var, Label, undefined = _Text) ->
|
||
|
|
xmlel_field(Var, <<"text-single">>, Label, [], []);
|
||
|
|
%%
|
||
|
|
xmlel_field_text_single(Var, Label, Text) ->
|
||
|
|
xmlel_field(Var, <<"text-single">>, Label, [Text], []).
|
||
|
|
|
||
|
|
%%
|
||
|
|
xmlel_field_text_multi(Var, Label, Values) ->
|
||
|
|
xmlel_field(Var, <<"text-multi">>, Label, Values, []).
|
||
|
|
|
||
|
|
%%
|
||
|
|
xmlel_field_jid_multi(Var, Label, Jids) ->
|
||
|
|
xmlel_field(Var, <<"jid-multi">>, Label, Jids, []).
|
||
|
|
|
||
|
|
%%
|
||
|
|
xmlel_field_jid_single(Var, Label, Jid) ->
|
||
|
|
xmlel_field(Var, <<"jid-single">>, Label, [Jid], []).
|
||
|
|
|
||
|
|
%%
|
||
|
|
xmlel_x(Type, Fields) ->
|
||
|
|
xmlel(<<"x">>, [xmlattr_type(Type)], Fields).
|
||
|
|
|
||
|
|
%%
|
||
|
|
xmlel_title(Title) ->
|
||
|
|
xmlel(<<"title">>, [], [xmlcdata(Title)]).
|
||
|
|
|
||
|
|
%%
|
||
|
|
xmlel_instructions(Instructions) when is_list(Instructions) ->
|
||
|
|
lists:map(fun xmlel_instructions/1, Instructions);
|
||
|
|
%%
|
||
|
|
xmlel_instructions(Instruction) when is_binary(Instruction) ->
|
||
|
|
xmlel(<<"instructions">>, [], [xmlcdata(Instruction)]).
|