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