mirror of
https://github.com/processone/ejabberd.git
synced 2024-09-25 14:24:55 +02:00
* src/xml.erl: Remove compilation warnings (EJAB-290).
SVN Revision: 838
This commit is contained in:
parent
3cd7d1b54b
commit
3f51e73944
@ -1,5 +1,7 @@
|
|||||||
2007-07-30 Mickael Remond <mickael.remond@process-one.net>
|
2007-07-30 Mickael Remond <mickael.remond@process-one.net>
|
||||||
|
|
||||||
|
* src/xml.erl: Remove compilation warnings (EJAB-290).
|
||||||
|
|
||||||
* src/xml.erl: Do not crypt binary CData, but enclose the value in
|
* src/xml.erl: Do not crypt binary CData, but enclose the value in
|
||||||
XML CDATA "tag".
|
XML CDATA "tag".
|
||||||
|
|
||||||
|
@ -58,7 +58,7 @@ crypt(S) when is_list(S) ->
|
|||||||
crypt(S) when is_binary(S) ->
|
crypt(S) when is_binary(S) ->
|
||||||
crypt(binary_to_list(S)).
|
crypt(binary_to_list(S)).
|
||||||
|
|
||||||
remove_cdata_p({xmlelement, Name, Attrs, Els}) -> true;
|
remove_cdata_p({xmlelement, _Name, _Attrs, _Els}) -> true;
|
||||||
remove_cdata_p(_) -> false.
|
remove_cdata_p(_) -> false.
|
||||||
|
|
||||||
remove_cdata(L) -> [E || E <- L, remove_cdata_p(E)].
|
remove_cdata(L) -> [E || E <- L, remove_cdata_p(E)].
|
||||||
@ -73,7 +73,7 @@ get_cdata([_ | L], S) ->
|
|||||||
get_cdata([], S) ->
|
get_cdata([], S) ->
|
||||||
S.
|
S.
|
||||||
|
|
||||||
get_tag_cdata({xmlelement, Name, Attrs, Els}) ->
|
get_tag_cdata({xmlelement, _Name, _Attrs, Els}) ->
|
||||||
get_cdata(Els).
|
get_cdata(Els).
|
||||||
|
|
||||||
get_attr(AttrName, Attrs) ->
|
get_attr(AttrName, Attrs) ->
|
||||||
@ -92,10 +92,10 @@ get_attr_s(AttrName, Attrs) ->
|
|||||||
""
|
""
|
||||||
end.
|
end.
|
||||||
|
|
||||||
get_tag_attr(AttrName, {xmlelement, Name, Attrs, Els}) ->
|
get_tag_attr(AttrName, {xmlelement, _Name, Attrs, _Els}) ->
|
||||||
get_attr(AttrName, Attrs).
|
get_attr(AttrName, Attrs).
|
||||||
|
|
||||||
get_tag_attr_s(AttrName, {xmlelement, Name, Attrs, Els}) ->
|
get_tag_attr_s(AttrName, {xmlelement, _Name, Attrs, _Els}) ->
|
||||||
get_attr_s(AttrName, Attrs).
|
get_attr_s(AttrName, Attrs).
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user