# HG changeset patch
# User Kim Alvefur <zash@zash.se>
# Date 1612821462 -3600
# Node ID 0bc82a318c45c81bea1392ef93e9427e18ba6573
# Parent  ae85457eca8ea739251f44e6823026790ac8ccf9
clix.archive: Add 'raw' output format, useful for exports

diff -r ae85457eca8e -r 0bc82a318c45 clix/archive.lua
--- a/clix/archive.lua	Mon Feb 08 22:56:45 2021 +0100
+++ b/clix/archive.lua	Mon Feb 08 22:57:42 2021 +0100
@@ -31,6 +31,15 @@
 		print(m:get_child_text"body");
 		print"";
 	end
+	if opts.format == "raw" then
+		local st = require"util.stanza";
+		local datetime = require"util.datetime".datetime;
+		function print_message(i)
+		print(st.stanza("forwarded",{xmlns="urn:xmpp:forward:0"})
+			:tag("delay", {xmlns="urn:xmpp:delay", stamp=datetime(i.stamp)}):up()
+			:add_child(i.message));
+		end
+	end
 
 	local function on_connect(conn)
 		if opts.debug then