--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/scripts/xep0077.lua	Mon Feb 23 23:16:46 2009 +0200
@@ -0,0 +1,171 @@
+
+function parse_iq_register ( node )
+	local form = { title = 'jabber:iq:register', exp = '', val = { } }
+	if node:child ( 'instructions' ) then
+		form.exp = form.exp .. 'Instructions: ' .. node:child( 'instructions' ):value () .. '\n'
+	end
+	if node:child ( 'registered' ) then
+		form.exp = form.exp .. 'Registered: yes\n'
+	end
+	form.exp = form.exp .. 'Fields:\n'
+	local field = node:children ()
+	while field do
+		local name = field:name ()
+		if name ~= 'instructions' and name ~= 'registered' then
+			form.exp = form.exp .. ' - ' .. name .. '\n'
+			if field:value () and field:value () ~= '' then
+				form.exp = form.exp .. '   Default value: ' .. field:value () .. '\n'
+			end
+			table.insert ( form.val, { type = 'text-single', var = name, value = { field:value () or '' } } )
+		end
+		field = field:next ()
+	end
+	table.insert ( forms, form )
+	return #forms
+end
+
+function format_iq_register ( fields )
+	local result = { xmlns = 'jabber:iq:register' }
+	for index, field in ipairs ( fields ) do
+		result[field.var] = field.value
+	end
+	return result
+end
+
+function register_to ( who )
+	lm.connection.bless( main.connection () ):send (
+		lm.message.create { mtype = 'iq-get', to = who,
+			query = { xmlns = 'jabber:iq:register' }
+		},
+		function ( conn, mess )
+			local node = mess:child ( 'query' )
+			if node and node:attribute ( 'xmlns' ) == 'jabber:iq:register' then
+				main.print_info ( who, 'D: Got:\n' .. mess:xml () )
+				local x = node:child ( 'x' )
+				local id
+				local finalizer =
+					function ( conn, mess )
+						local mt, st = mess:type ()
+						if st == 'result' then
+							main.print_info ( who, 'Now you can run /form del ' .. id .. ' to delete form from list' )
+							forms[id].status = 'acquired'
+						else
+							main.print_info ( who, 'Got non-successful response to form:\n' .. mess:xml () )
+							forms[id].status = 'rejected'
+						end
+						return true
+					end
+				if x and x:attribute ( 'xmlns' ) == 'jabber:x:data' then
+					id = parse_form ( x )
+					-- local sid = mess:child( 'command' ):attribute ( 'sessionid' )
+					forms[id].send =
+						function ( form )
+							conn:send (
+								lm.message.create { mtype = 'iq-set', to = who,
+									query = { xmlns = 'jabber:iq:register',
+										x = { xmlns = 'jabber:x:data', type = 'submit',
+											field = form.val,
+										},
+									},
+								}, finalizer )
+						end
+					forms[id].status = 'filling'
+					main.print_info ( who, 'You have new form. To fill it, use /form ' .. id .. ' fieldname value' )
+				else
+					id = parse_iq_register ( mess:child ( 'query' ) )
+					forms[id].send =
+						function ( form )
+							conn:send (
+								lm.message.create { mtype = 'iq-set', to = who,
+									query = format_iq_register ( form.val ),
+								}, finalizer )
+						end
+					forms[id].status = 'filling'
+					main.print_info ( who, 'You have new form. To fill it, use /form ' .. id .. ' fieldname value' )
+				end
+			else
+				main.print_info ( who, 'Error response:\n' .. mess:xml () )
+			end
+			return true
+		end )
+end
+
+function unregister_from ( who )
+	lm.connection.bless( main.connection () ):send (
+		lm.message.create { mtype = 'iq-set', to = who,
+			query = { xmlns = 'jabber:iq:register',
+				remove = { },
+			},
+		},
+		function ( conn, mess )
+			local mt, st = mess:type ()
+			if st == 'result' then
+				main.print_info ( who, 'Registration cancelled' )
+			elseif st == 'error' then
+				if mess:child ( 'error' ) then
+					main.print_info ( who, 'Error response: ' .. mess:child( 'error' ):children():name () )
+				else
+					local query = mess:child ( 'query' )
+					if query and query:child ( 'x' ) then
+						local id = parse_form ( query:child ( 'x' ) )
+						forms[id].send =
+							function ( form )
+								conn:send (
+									lm.message.create { mtype = 'iq-set', to = who,
+										query = { xmlns = 'jabber:iq:register',
+											x = { xmlns = 'jabber:x:data', type = 'submit',
+												field = form.val,
+											},
+										},
+									},
+									function ( conn, mess )
+										local mt, st = mess:type ()
+										if st == 'result' then
+											main.print_info ( who, 'Now you can run /form del ' .. id .. ' to delete form from list' )
+											forms[id].status = 'acquired'
+										else
+											main.print_info ( who, 'Got non-successful response to form:\n' .. mess:xml () )
+											forms[id].status = 'rejected'
+										end
+										return true
+									end )
+							end
+						forms[id].status = 'filling'
+						main.print_info ( who, 'You have new form. To fill it, use /form ' .. id .. ' fieldname value' )
+					else
+						main.print_info ( who, 'Got non-successful response to form:\n' .. mess:xml () )
+					end
+				end
+			else
+				main.print_info ( who, 'Got non-successful response to form:\n' .. mess:xml () )
+			end
+			return true
+		end )
+end
+
+main.add_command ( 'register',
+	function ( args )
+		local who
+		if args[1] then
+			who = rebuild_args_string ( args )
+		else
+			who = full_current_jid ()
+		end
+		register_to ( who )
+	end )
+
+main.add_command ( 'cancel',
+	function ( args )
+		local who
+		if args and args ~= '' then
+			who = args
+		else
+			who = full_current_jid ()
+		end
+		unregister_from ( who )
+	end )
+
+commands_help['register'] = "[jid]\n\nSends registration request to jid (or current buddy). You, probably, then will need to fill and send some form."
+commands_help['cancel'] = "[jid]\n\nSends registration cancellation request to jid (or current buddy). May require a form filling."
+
+-- vim: se ts=4: --