-- VCARD-TEMP (XEP-0054)

-- library

local iq         = require 'lm.iq'

local form_field = require 'lm.form_field'

--

local F = { }

local M = { }

M.__index = M

function F.new ( args )

	local form = {

		xmlns        = 'vcard-temp',

		ftype        = args.type or 'form',

		title        = args.title,

		instructions = args.instructions,

		f            = { },

	}

	setmetatable ( form, M )

	return form

end

local function vcard_parse ( node, path, form )

	local item = node:child ()

	if item then

		while item do

			vcard_parse ( item, ( path and path .. '/' or '' ) .. item:name (), form )

			item = item:next ()

		end

	elseif path then

		form:add ( path, { type = 'text-single', value = node:value () } )

	end

end

function F.parse ( card )

	local form = F.new { type = 'form' }

	vcard_parse ( card, nil, form )

	return form

end

function M.type ( form )

	return form.ftype

end

function M.desc ( form )

	return form.title, form.instructions

end

function M.format ( form, root, format_as )

	root.vCard = { xmlns = 'vcard-temp' }

	for k, field in form:fields () do

		local el = root.vCard

		for k in field:name():gmatch ( '[^/]+' ) do

			if not el[k] then

				el[k] = { }

			end

			el = el[k]

		end

		el[1] = field:value ()

	end

	return root

end

function M.fields ( form )

	return ipairs ( form.f )

end

function M.add ( form, name, fld )

	fld.var   = name

	fld.index = #form.f + 1

	if not fld.type then

		fld.type = 'text-single'

	end

	local obj = form_field.new ( fld )

	table.insert ( form.f, obj )

	form.f[name] = obj

	return obj

end

function M.field ( form, name )

	return form.f[name]

end

function F.retrieve ( conn, from, success, fail )

	iq.send ( conn, from, 'get',

		{

			vCard = { xmlns = 'vcard-temp' },

		},

		function ( mess )

			local card = mess:child ( 'vCard' )

			if card and card:attribute ( 'xmlns' ) == 'vcard-temp' then

				success ( F.parse ( mess:child ( 'vCard' ) ),

					function ( form, success, fail )

						iq.send ( conn, from, 'set', form:format ( { }, 'submit' ), success, fail )

					end,

					function ( form, success, fail )

						success ()

					end )

			else

				fail ( mess:xml () ) -- XXX

			end

		end, fail )

end

return F

-- vim: se ts=4: --