examples/mc_vcard.lua
author Myhailo Danylenko <isbear@ukrpost.net>
Sat, 28 Mar 2009 19:43:12 +0200
changeset 67 d33ca5572e91
permissions -rw-r--r--
Fully object forms interface (untested)


local lm    = require 'lm'
local vcard = require 'vcard'

main.command ( 'vcard-temp',
	function ( args )
		vcard.retrieve ( lm.connection.bless ( main.connection () ), args[1],
			function ( form, submit, reject )
				insert_form ( form,
					function ( form )
						submit ( form,
							function ()
								print ( 'Vcard changed' )
							end,
							function ( mesg )
								print ( 'Vcard changing error: ' .. mesg )
							end )
					end,
					function ( form )
						reject ( form,
							function ()
								print ( 'Vcard changing cancelled' )
							end,
							function ( mesg )
								print ( 'Vcard changing cancellation error: ' .. mesg )
							end )
					end )
			end,
			function ( mesg )
				print ( 'Vcard obtaining error: ' .. mesg )
			end )
	end, true, 'jid' )

-- vim: se ts=4: --