diff options
Diffstat (limited to 'src/jlib.erl')
| -rw-r--r-- | src/jlib.erl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/jlib.erl b/src/jlib.erl index 70f190a93..765457a5b 100644 --- a/src/jlib.erl +++ b/src/jlib.erl @@ -34,6 +34,8 @@ make_correct_from_to_attrs/3, replace_from_to_attrs/3, replace_from_to/3, + replace_from_attrs/2, + replace_from/2, remove_attr/2, make_jid/3, make_jid/1, @@ -153,6 +155,13 @@ replace_from_to(From, To, {xmlelement, Name, Attrs, Els}) -> Attrs), {xmlelement, Name, NewAttrs, Els}. +replace_from_attrs(From, Attrs) -> + Attrs1 = lists:keydelete("from", 1, Attrs), + [{"from", From} | Attrs1]. + +replace_from(From, {xmlelement, Name, Attrs, Els}) -> + NewAttrs = replace_from_attrs(jlib:jid_to_string(From), Attrs), + {xmlelement, Name, NewAttrs, Els}. remove_attr(Attr, {xmlelement, Name, Attrs, Els}) -> NewAttrs = lists:keydelete(Attr, 1, Attrs), |