local lm  = require 'lm'

local oob = require 'lm.oob'

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 connection = main.connection ()

		if not connection then

			print "You are not online!"

			return

		end

		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 ( 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_iq_handler      = lm.message_handler.new ( oob.iq_handler )

local oob_message_handler = lm.message_handler.new ( oob.message_handler )

local oob_handler_registered = false

local oob_pc_handler =

	function ( args )

		local connection = main.connection ()

		if connection then

			local conn = lm.connection.bless ( connection )

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

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

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

			oob_handler_registered = true

		end

	end

local oob_pd_handler = 

	function ( args )

		if oob_handler_registered then

			local connection = main.connection ()

			if connection then

				local conn = lm.connection.bless ( connection )

				conn:handler ( oob_iq_handler,      'iq'       )

				conn:handler ( oob_message_handler, 'message'  )

				conn:handler ( oob_message_handler, 'presence' )

			end

			oob_handler_registered = false

		end

	end

main.hook ( 'hook-post-connect',   oob_pc_handler )

main.hook ( 'hook-pre-disconnect', oob_pd_handler )

main.hook ( 'hook-lua-start',

	function ( args )

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

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

		oob_pc_handler ()

	end )

main.hook ( 'hook-lua-quit',

	function ( args )

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

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

		oob_pd_handler ()

	end )

-- vim: se ts=4 sw=4: --