mirror of
https://github.com/processone/ejabberd.git
synced 2024-10-13 15:16:49 +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>
|
||||
|
||||
* src/xml.erl: Remove compilation warnings (EJAB-290).
|
||||
|
||||
* src/xml.erl: Do not crypt binary CData, but enclose the value in
|
||||
XML CDATA "tag".
|
||||
|
||||
|
@ -58,7 +58,7 @@ crypt(S) when is_list(S) ->
|
||||
crypt(S) when is_binary(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(L) -> [E || E <- L, remove_cdata_p(E)].
|
||||
@ -73,7 +73,7 @@ get_cdata([_ | L], S) ->
|
||||
get_cdata([], S) ->
|
||||
S.
|
||||
|
||||
get_tag_cdata({xmlelement, Name, Attrs, Els}) ->
|
||||
get_tag_cdata({xmlelement, _Name, _Attrs, Els}) ->
|
||||
get_cdata(Els).
|
||||
|
||||
get_attr(AttrName, Attrs) ->
|
||||
@ -92,10 +92,10 @@ get_attr_s(AttrName, Attrs) ->
|
||||
""
|
||||
end.
|
||||
|
||||
get_tag_attr(AttrName, {xmlelement, Name, Attrs, Els}) ->
|
||||
get_tag_attr(AttrName, {xmlelement, _Name, Attrs, _Els}) ->
|
||||
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).
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user