-- OUT OF BAND DATA (XEP-0066)

-- library

require 'lm'

require 'iq'

-- public

oob = {

	handler =

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

			fail ()

		end,

}

function oob.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

-- private

local oob_incoming_iq_handler = lm.message_handler.new (

	function ( 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

				oob.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 )

local oob_incoming_message_handler = lm.message_handler.new (

	function ( 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

			oob.handler ( from, url, desc,

				function ()

				end,

				function ()

				end )

		end

		return false

	end )

-- mcabber

oob.handler =

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

		if desc then

			main.print_info ( from, 'Buddy wants you to download link: ' .. url .. ' (' .. desc .. ')' )

		else

			main.print_info ( from, 'Buddy wants you to download link: ' .. url )

		end

		success ()

	end

main.command ( 'oob',

	function ( args )

		local who

		if args.t then

			who = args.t

		else

			who = main.full_jid ()

		end

		-- here we can run something external to put file on server and obtain link to it

		oob.send ( lm.connection.bless ( main.connection () ), who, args[1],

			function ()

				main.print_info ( who, 'OOB link accepted' )

			end,

			function ( mesg )

				main.print_info ( who, 'OOB link refused: ' .. mesg )

			end, args[2] )

	end, true )

local oob_handler_registered = false

hooks_d['hook-post-connect'].oob =

	function ( args )

		local conn = lm.connection.bless ( main.connection () )

		conn:handler ( oob_incoming_iq_handler, 'iq', 'normal' )

		conn:handler ( oob_incoming_message_handler, 'message', 'normal' )

		conn:handler ( oob_incoming_message_handler, 'presence', 'normal' )

		oob_handler_registered = true

		hooks_d['hook-post-connect'].oob = nil

		hooks_d['hook-quit'].oob =

			function ( args )

				if oob_handler_registered then

					local conn = lm.connection.bless ( main.connection () )

					conn:handler ( oob_incoming_iq_handler, 'iq' )

					conn:handler ( oob_incoming_message_handler, 'message' )

					conn:handler ( oob_incoming_message_handler, 'presence' )

				end

			end

	end

main.add_feature ( 'jabber:iq:oob' )

main.add_feature ( 'jabber:x:oob' )

-- vim: se ts=4: --