-- CORE, IQ

-- library

local lm = require 'lm'

--

local F = { }

function F.send ( conn, to, smtype, data, success, fail )
	data.mtype = 'iq-' .. smtype
	data.to    = to
	conn:send ( lm.message.create ( data ),
		function ( conn, mess )
			local mtype, smtype = mess:type ()
			if smtype == 'result' then
				success ( mess )
			elseif smtype == 'error' then
				fail ( mess:child( 'error' ):child():name (), mess ) -- FIXME
			else
				fail ( mess:xml (), mess )
				return false
			end
			return true
		end )
end

return F

-- vim: se ts=4: --