-- REMOTE CONTROLLING CLIENTS (XEP-0146)

-- library

require 'lm'

require 'x_data'

require 'disco'

-- public

remote = { }

function remote.list ( conn, to, success, fail )

	disco.items ( conn, to, success, fail, 'http://jabber.org/protocol/commands' )

end

function remote.command ( conn, to, command, success, fail )

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

		{

			command = { xmlns = 'http://jabber.org/protocol/commands', action = 'execute', node = command },

		},

		function ( mess )

			local c = mess:child ( 'command' )

			if c then

				local status = c:attribute ( 'status' )

				if status == 'completed' then

					success ()

				else

					local x = c:child ( 'x' )

					if x then

						local sid = c:attribute ( 'sessionid' )

						success ( x_data.parse ( x ),

							function ( form, success, fail )

								form.type = 'submit' -- XXX in standard there is 'form' :/

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

									{

										command = form.format ( form, { xmlns = 'http://jabber.org/protocol/commands', node = command, sessionid = sid } )

									},

									function ( mess )

										local c = mess:child ( 'command' )

										if c and c:attribute ( 'status' ) == 'completed' then

											success ()

										else

											fail ( mess:xml () ) -- XXX more forms?

										end

									end, fail )

							end,

							function ( form, success, fail )

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

									{

										command = { xmlns = 'http://jabber.org/protocol/commands', node = command, sessionid = sid,

											x = { xmlns = 'jabber:x:data', type = 'cancel' }, -- FIXME

										},

									}, success, fail )

							end )

					else

						fail ( mess:xml () ) -- XXX

					end

				end

			end

		end, fail )

end

-- mcabber

main.command ( 'remote',

	function ( args )

		local who

		if args.t then

			who = args.t

		else

			who = main.full_jid ()

		end

		local action = args[1]

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

		if action then

			remote.command ( conn, who, action,

				function ( form, submit, reject )

					if not form then

						main.print_info ( who, ('Command %s completed'):format ( action ) )

					else

						local id = #forms + 1

						forms[id] = {

							form = form,

							submit =

								function ( form )

									submit ( form,

										function ()

											main.print_info ( who, ('Command %s completed'):format ( action ) )

										end,

										function ( mesg )

											main.print_info ( who, ('Command %s execution failed: %s'):format ( action, mesg ) )

										end )

								end,

							reject =

								function ( form )

									reject ( form,

										function ()

											main.print_info ( who, ('Command %s execution cancelled'):format ( action ) )

										end,

										function ( mesg )

											main.print_info ( who, ('Command %s execution cancellation failed: %s'):format ( action, mesg ) )

										end )

								end,

						}

						print ( 'You have new form ' .. id )

					end

				end,

				function ( mesg )

					main.print_info ( who, ('Command %s execution failed: %s'):format ( action, mesg ) )

				end )

		else

			remote.list ( conn, who,

				function ( items )

					local text = ''

					for index, item in ipairs ( items ) do

						text = text .. '\n - ' .. item.node

					end

					if text ~= '' then

						main.print_info ( who, 'Available commands:' .. text )

					else

						main.print_info ( who, 'No commands available.' )

					end

				end,

				function ( mesg )

					main.print_info ( who, ("Remote commands list for %s failed: %s"):format ( who, mesg ) )

				end )

		end

	end, true, 'jid' )

commands_help['remote'] = "[-t target_jid] [remote_command]\n\nPrints list of available remote command or requests execution of specified command."

-- vim: se ts=4: --