util.dataforms: Add support for datetime field types via XEP-0122

spec/util_dataforms_spec.lua

@@ -446,6 +446,20 @@ describe("util.dataforms", function ()
 			assert.table(e);
 			assert.string(e.number);
 		end);
+
+		describe("datetime", function ()
+			local f = dataforms.new { { name = "when"; type = "text-single"; datatype = "xs:dateTime" } } -- luacheck: ignore 431
+
+			it("works", function ()
+				local x = f:form({ when = "2008-08-22T21:09:00Z" });
+				assert.equal("2008-08-22T21:09:00Z", x:find("field/value#"))
+				local d, e = f:data(x);
+				assert.is_nil(e);
+				assert.same({ when = 1219439340 }, d);
+			end);
+
+		end)
+
 	end);
 	describe("media element", function ()
 		it("produced media element correctly", function ()

util/dataforms.lua

@@ -14,6 +14,7 @@ local tostring = tostring;
 local t_concat = table.concat;
 local st = require "util.stanza";
 local jid_prep = require "util.jid".prep;
+local datetime = require "util.datetime";
 
 local _ENV = nil;
 -- luacheck: std none
@@ -321,6 +322,13 @@ data_validators["pubsub:integer-or-max"] =
 		end
 	end
 
+data_validators["xs:dateTime"] =
+	function(data, field) -- luacheck: ignore 212/field
+		local n = datetime.parse(data);
+		if not n then return false, "invalid timestamp"; end
+		return true, n;
+	end
+
 
 local function get_form_type(form)
 	if not st.is_stanza(form) then