local lm     = require 'lm'

local remote = require 'lm.remote'

main.command ( 'remote',

	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

		local action = args[1]

		local conn   = lm.connection.bless ( 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

						insert_form ( form, -- XXX

							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,

							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 )

					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' )

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