--- a/scripts/xep0077.lua	Mon Feb 23 23:16:46 2009 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,171 +0,0 @@
-
-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: --