-- OUT OF BAND DATA (XEP-0066)

-- library

local lm = require 'lm'

local iq = require 'lm.iq'

--

local O = {

	handler =

		function ( from, url, desc, success, fail )

			fail ()

		end,

}

local F = { }

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

	if desc then

		desc = { desc }

	end

	iq.send ( conn, to, 'set',

		{

			query = { xmlns = 'jabber:iq:oob',

				url  = { url },

				desc = desc,

			},

		}, success, fail )

end

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 from = mess:attribute ( 'from' )

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

			local desc = query:child( 'desc' )

			if desc then

				desc = desc:value ()

			end

			O.handler ( from, url, desc,

				function ()

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

				end,

				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' },

							},

						} )

				end )

			return true

		end

	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 )

	end

	return false

end

return F

-- vim: se ts=4: --