local lm     = require 'lm'
local vcard  = require 'lm.vcard'
local base64 = require 'base64'
local mime   = require 'mime-type'

main.command ( 'vcard-temp',
	function ( args )
		local connection = main.connection ()
		if not connection then
			print "You are not online!"
			return
		end
		local who
		local action = args[1]
		local conn   = lm.connection.bless ( connection )
		if not action then
			who = conn:jid():gsub ( '/.*', '' )
		elseif action == 'photo' then
			local file = args[2]
			if not file then
				print ( 'You must specify filename' )
				return
			end
			who = conn:jid():gsub ( '/.*', '' )
			vcard.retrieve ( conn, who,
				function ( form, submit, reject )
					local h = io.open ( file, 'r' )
					if not h then
						print ( 'Cannot open file ' .. file )
						reject ( form,
							function ()
								print ( 'Photo publication cancelled' )
							end,
							function ( mesg )
								print ( 'Photo publication cancellation error: ' .. mesg )
							end )
						return
					end
					local data = h:read ( '*a' )
					h:close ()
					local mtype = mime.type ( file )
					local ptype = form:field ( 'PHOTO/TYPE' )
					if ptype then
						ptype:value ( mtype )
					else
						form:add ( 'PHOTO/TYPE', { value = mtype } )
					end
					local pdata = form:field ( 'PHOTO/BINVAL' )
					if pdata then
						pdata:value ( base64.encode ( data ) )
					else
						form:add ( 'PHOTO/BINVAL', { value = base64.encode ( data ) } )
					end
					submit ( form,
						function ()
							print ( 'Photo published' )
						end,
						function ( mesg )
							print ( 'Photo publication error: ' .. mesg )
						end )
				end,
				function ( mesg )
					print ( 'Vcard obtaining error: ' .. mesg )
				end )
			return
		elseif action == '.' then
			who = main.current_buddy ()
		else
			who = action
		end
		vcard.retrieve ( conn, who,
			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 sw=4: --