1 

     2 local lm    = require 'lm'

     3 local vcard = require 'vcard'

     4 

     5 main.command ( 'vcard-temp',

     6 	function ( args )

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

     8 			function ( form, submit, reject )

     9 				insert_form ( form,

    10 					function ( form )

    11 						submit ( form,

    12 							function ()

    13 								print ( 'Vcard changed' )

    14 							end,

    15 							function ( mesg )

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

    17 							end )

    18 					end,

    19 					function ( form )

    20 						reject ( form,

    21 							function ()

    22 								print ( 'Vcard changing cancelled' )

    23 							end,

    24 							function ( mesg )

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

    26 							end )

    27 					end )

    28 			end,

    29 			function ( mesg )

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

    31 			end )

    32 	end, true, 'jid' )

    33 

    34 -- vim: se ts=4: --