-- A query using Result Set Management
-- Usage: ./sluift MAMRSM.lua <jid> <password> <query_dest> <max_results>

sluift.debug = true

c = sluift.new_client(arg[1], arg[2])

c:connect();

query = {
	result_set={max_items=arg[4]}
}

c:set_mam{mam=query, 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()