Mercurial > prosody-modules
diff mod_inject_ecaps2/mod_insert_ecaps2.lua @ 2908:5665d14dcc6e
mod_inject_ecaps2: Add Lua 5.1 compatibility by replacing \xHEX with \DECIMAL in strings
author | Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> |
---|---|
date | Wed, 07 Mar 2018 19:39:52 +0100 |
parents | 776017c92076 |
children |
line wrap: on
line diff
--- a/mod_inject_ecaps2/mod_insert_ecaps2.lua Wed Mar 07 19:30:42 2018 +0100 +++ b/mod_inject_ecaps2/mod_insert_ecaps2.lua Wed Mar 07 19:39:52 2018 +0100 @@ -18,12 +18,12 @@ local identities, features, extensions = {}, {}, {}; for _, tag in ipairs(disco_info) do if tag.name == "identity" then - t_insert(identities, ((tag.attr.category or "").."\x1f".. - (tag.attr.type or "").."\x1f".. - (tag.attr["xml:lang"] or "").."\x1f".. - (tag.attr.name or "").."\x1f\x1e")); + t_insert(identities, ((tag.attr.category or "").."\31".. + (tag.attr.type or "").."\31".. + (tag.attr["xml:lang"] or "").."\31".. + (tag.attr.name or "").."\31\30")); elseif tag.name == "feature" then - t_insert(features, (tag.attr.var or "").."\x1f"); + t_insert(features, (tag.attr.var or "").."\31"); elseif tag.name == "x" and tag.attr.xmlns == "jabber:x:data" then local form = {}; for _, field in ipairs(tag.tags) do @@ -32,19 +32,19 @@ for _, value in ipairs(field.tags) do if value.name == "value" and value.attr.xmlns == "jabber:x:data" then value = #value.tags == 0 and value:get_text(); - if value then t_insert(values, value.."\x1f"); end + if value then t_insert(values, value.."\31"); end end end t_sort(values); if #values > 0 then - t_insert(form, field.attr.var.."\x1f"..t_concat(values, "\x1f").."\x1f\x1e"); + t_insert(form, field.attr.var.."\31"..t_concat(values, "\31").."\31\30"); else - t_insert(form, field.attr.var.."\x1f\x1e"); + t_insert(form, field.attr.var.."\31\30"); end end end t_sort(form); - form = t_concat(form, "\x1d").."\x1d"; + form = t_concat(form, "\29").."\29"; t_insert(extensions, form); else return nil, "Unknown element in disco#info"; @@ -53,9 +53,9 @@ t_sort(identities); t_sort(features); t_sort(extensions); - if #identities > 0 then identities = t_concat(identities, "\x1c").."\x1c"; else identities = "\x1c"; end - if #features > 0 then features = t_concat(features).."\x1c"; else features = "\x1c"; end - if #extensions > 0 then extensions = t_concat(extensions, "\x1c").."\x1c"; else extensions = "\x1c"; end + if #identities > 0 then identities = t_concat(identities, "\28").."\28"; else identities = "\28"; end + if #features > 0 then features = t_concat(features).."\28"; else features = "\28"; end + if #extensions > 0 then extensions = t_concat(extensions, "\28").."\28"; else extensions = "\28"; end return features..identities..extensions; end