local lm = require 'lm'

--

local O = {

local F = { }

function F.send ( conn, to, url, success, fail, desc )

function F.handler ( handler )

	O.handler = handler

end

function F.iq_handler ( conn, mess )

	local mtype, smtype = mess:type ()

	if smtype == 'set' then

		local query = mess:child ( 'query' )

		if query and query:attribute ( 'xmlns' ) == 'jabber:iq:oob' then

			local url  = query:child( 'url' ):value ()

			local desc = query:child( 'desc' )

			O.handler ( from, url, desc,

					conn:send ( lm.message.create { mtype = 'iq-result', to = from, id = mess:attribute ( 'id' ) } )

				function () -- XXX distinguish download error and reject

					conn:send (

						lm.message.create { mype = 'iq-error', to = from, id = mess:attribute ( 'id' ),

							-- XXX must we include query here?

							error = { code = '406', type = 'modify',

								['not-acceptable'] = { xmlns = 'urn:ietf:params:xml:ns:xmpp-stanzas' },

							},

						} )

			return true

	end

	return false

end

function F.message_handler ( conn, mess )

	local x = mess:child ( 'x' )

	if x and x:attribute ( 'xmlns' ) == 'jabber:x:oob' then

		local from = mess:attribute ( 'from' )

		local url  = x:child( 'url' ):value ()

		local desc = x:child( 'desc' )

		if desc then

			desc = desc:value ()

		end

		O.handler ( from, url, desc,

			function ()

			end,

			function ()

			end )

	return false

end

return F