forms = { }

form_cid = main.add_category { 'del', 'send' }

function insert_form ( form )

	table.insert ( forms, form )

	main.add_completion ( form_cid, tostring(#forms) )

	return #forms

end

-- expects lm node   x = { xmlns = 'jabber:x:data', type = 'form', ... }

-- returns form index in forms table, you can do whatever you want to upper level table, except exp and val fields.

function parse_form ( node )

	local form = { title = 'unknown', exp = '', val = { } }

	if node:child ( 'title' ) then

		form.title = node:child( 'title' ):value ()

	end

	if node:child ( 'instructions' ) then

		form.exp = form.exp .. 'Instructions: ' .. node:child( 'instructions' ):value () .. '\n'

	end

	form.exp = form.exp .. 'Fields:\n'

	local field = node:children ()

	while field do

		if field:name () == 'field' then

			local field_type  = field:attribute ( 'type' ) or 'text-single'

			local field_var   = field:attribute ( 'var' ) or ''

			form.exp = form.exp .. ' - ' .. field_var .. '\n   Type: ' .. field_type .. '\n'

			if field:attribute ( 'label' ) then

				form.exp = form.exp .. '   Label: ' .. ( field:attribute ( 'label' ) or '' ) .. '\n'

			end

			if field:child ( 'desc' ) then

				form.exp = form.exp .. '   Description: ' .. field:child( 'desc' ):value () .. '\n'

			end

			if field:child ( 'required' ) then

				form.exp = form.exp .. '   Required: yes\n'

			end

			local field_value

			if field_type == 'jid-multi' or field_type == 'list-multi' or field_type == 'text-multi' then

				field_value = { }

				local value = field:children ()

				form.exp = form.exp .. '   Default values:\n'

				while value do

					if value:name () == 'value' then

						table.insert ( field_value, { value:value () } )

						form.exp = form.exp .. '    - ' .. value:value () .. '\n'

					end

					value = value:next ()

				end

			else

				if field:child ( 'value' ) then

					field_value = field:child( 'value' ):value ()

					form.exp = form.exp .. '   Default value: ' .. (field_value or '') .. '\n'

				end

			end

			if field_type == 'list-single' or field_type == 'list-multi' then

				form.exp = form.exp .. '   List options:\n'

				local option = field:children ()

				while option do

					if option:name () == 'option' then

						form.exp = form.exp .. '    - ' .. ( option:child( 'value' ):value () or '' ) .. ': ' .. ( option:attribute ( 'label' ) or '' ) .. '\n'

					end

					option = option:next ()

				end

			end

			if field_type == 'boolean' then

				table.insert ( form.val, { type = field_type, var = field_var, value = { field_value or '0' } } )

			elseif field_type == 'fixed' then

			elseif field_type == 'hidden' then

				table.insert ( form.val, { type = field_type, var = field_var, value = { field_value or '' } } )

			elseif field_type == 'list-single' then

				table.insert ( form.val, { type = field_type, var = field_var, value = { field_value or '' } } )

			elseif field_type == 'list-multi' then

				table.insert ( form.val, { type = field_type, var = field_var, value = field_value or { } } )

			elseif field_type == 'jid-multi' or field_type == 'text-multi' then

				table.insert ( form.val, { type = field_type, var = field_var, value = field_value or { } } )

			elseif field_type == 'jid-single' or field_type == 'text-single' then

				table.insert ( form.val, { type = field_type, var = field_var, value = { field_value or '' } } )

			elseif field_type == 'text-private' then

				table.insert ( form.val, { type = field_type, var = field_var, value = { field_value or '' } } )

			end

		end

		field = field:next ()

	end

	return insert_form ( form )

end

function form_set ( id, name, value )

	if forms[id] then

		for index, field in ipairs ( forms[id].val ) do

			if field.var == name then

				if value == nil then

					field.value = { }

				else

					if field.type == 'jid-multi' or field.type == 'list-multi' or field.type == 'text-multi' then

						table.insert ( field.value, { value } )

					else

						field.value = { value }

					end

				end

			end

		end

	end

end

main.command ( 'form',

	function ( args )

		local action = args[1]

		local id = tonumber (args[1])

		if forms[id] then

			local field = args[2]

			if field then

				local value = args[3]

				if value == 'clear' then

					value = nil

				elseif value == 'set' then

					value = args[4]

				end

				form_set ( id, field, value )

			else

				print ( 'Form: ' .. ( forms[id].title or '' ) .. '\n' .. forms[id].exp )

				local text = 'Fields:'

				for index, field in ipairs ( forms[id].val ) do -- this should not be here, but setting up callback just for this...

					if field.type == 'jid-multi' or field.type == 'list-multi' or field.type == 'text-multi' then

						text = text .. '\n - ' .. field.var .. ' [' .. field.type .. ']:'

						for vin, value in ipairs ( field.value ) do

							text = text .. '\n    * ' .. value[1]

						end

					else

						text = text .. '\n - ' .. field.var .. ' [' .. field.type .. ']: ' .. field.value[1]

					end

				end

				print ( text )

			end

		elseif action == 'del' then

			forms[tonumber(args[2])] = nil

			main.del_completion ( form_cid, tostring(args[2]) )

		elseif action == 'send' then

			local form = forms[tonumber(args[2])]

			if form then

				form.send ( form )

			end

		else

			local text = ''

			for id, form in pairs ( forms ) do

				text = text .. '\n - ' .. id .. ' ' .. form.title .. ' [' .. ( form.status or 'unknown' ) .. ']'

			end

			if text ~= '' then

				print ( 'Forms list:' .. text )

			else

				print ( 'No forms' )

			end

		end

	end, true, form_cid )

commands_help['form'] = "[del form_id | send form_id | form_id [field_name {clear | [set] value}]\n\nWith bare form id prints info on that form.\nWith field name sets or clears field value. Set subcommand is optional, just to allow values, starting with 'clear'.\nWithout arguments prints form list."

-- vim: se ts=4: --