--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/mod_measure_message_length/mod_measure_message_length.lua	Thu Nov 17 23:13:59 2016 +0100
@@ -0,0 +1,21 @@
+local bytes = module:measure("bytes", "sizes");
+local lines = module:measure("lines", "count");
+local words = module:measure("words", "count");
+
+local function measure_length(event)
+	local body = event.stanza:get_child_text("body");
+	if body then
+		bytes(#body);
+		lines(select(2, body:gsub("[^\n]+","")));
+		words(select(2, body:gsub("%S+","")));
+	end
+end
+
+module:hook("message/full", measure_length);
+module:hook("message/bare", measure_length);
+module:hook("message/host", measure_length);
+
+module:hook("pre-message/full", measure_length);
+module:hook("pre-message/bare", measure_length);
+module:hook("pre-message/host", measure_length);
+