1 files changed, 19 insertions, 0 deletions
diff --git a/Sluift/Examples/MAMSimple.lua b/Sluift/Examples/MAMSimple.lua
new file mode 100644
index 0000000..13ab1a0
--- /dev/null
+++ b/Sluift/Examples/MAMSimple.lua
@@ -0,0 +1,19 @@
+-- Querying the archive for messages 
+-- Usage: ./sluift MAMSimple.lua <jid> <password> <query_dest>
+
+sluift.debug = true
+
+c = sluift.new_client(arg[1], arg[2])
+
+c:connect();
+
+c:set_mam{mam={}, to=arg[3]}
+
+c:for_each_message(function(e)
+	if e.payloads[1].tag == 'fin' then return true end
+	if e.payloads[1]._type == 'mam_result' then
+		print(e.payloads[1].payload.stanza.payloads[1].text)
+	end
+end)
+
+c:disconnect()