-- VCARD-TEMP (XEP-0054)

-- library

require 'lm'

require 'iq'

require 'x_data'

-- public

vcard = { }

local function vcard_parse ( node, path, ret )

	local item = node:child ()

	if item then

		while item do

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

			item = item:next ()

		end

	elseif path then

		table.insert ( ret, { var = path, type = 'text-single', value = node:value () } )

	end

end

function vcard.parse ( card )

	local form = { xmlns = 'vcard-temp', type = 'form' }

	vcard_parse ( card, nil, form )

	form.format =

		function ( form, root )

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

			for k, field in ipairs ( form ) do

				local el = root.vCard

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

					if not el[k] then

						el[k] = { }

					end

					el = el[k]

				end

				el[1] = field.value

			end

			return root

		end

	return form

end

function vcard.get ( 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 ( vcard.parse ( mess:child ( 'vCard' ) ),

					function ( form, success, fail )

						form.type = 'submit' -- :)

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

					end,

					function ( form, success, fail )

						success ()

					end )

			else

				fail ( mess:xml () ) -- XXX

			end

		end, fail )

end

-- mcabber

main.command ( 'vcard-temp',

	function ( args )

		vcard.get ( lm.connection.bless ( main.connection () ), args[1],

			function ( form, submit, reject )

				local id = #forms + 1

				forms[id] = {

					form = form,

					submit =

						function ( form )

							submit ( form,

								function ()

									print ( 'Vcard changed' )

								end,

								function ( mesg )

									print ( 'Vcard changing error: ' .. mesg )

								end )

						end,

					reject =

						function ( form )

							reject ( form,

								function ()

									print ( 'Vcard changing cancelled' )

								end,

								function ( mesg )

									print ( 'Vcard changing cancellation error: ' .. mesg )

								end )

						end,

				}

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

			end,

			function ( mesg )

				print ( 'Vcard obtaining error: ' .. mesg )

			end )

	end, true, 'jid' )

-- vim: se ts=4: --