clix/vcard.lua

local t_insert, t_concat = table.insert, table.concat;

return function (opts, arg)
	if opts.short_help then
		print("Fetch someones vCard or set your own");
		return;
	end
	if ((#arg == 0 and not opts.set) or opts.help) then
		return 0;
	end
	local function on_connect(conn)
		conn:add_plugin("vcard");
		if not opts.set then -- get
			conn:get_vcard(arg[1], function(vCard)
				print(vCard and vCard._text or "No vCard returned")
				conn:close();
			end);
		else
			conn:set_vcard(opts.stdin and io.stdin:read"*a"
				or (opts.file and io.open(opts.file):read"*a") or arg[1],
				function() conn:close() end)
		end
	end
	clix_connect(opts, on_connect);
end