clix/vcard.lua

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
local t_insert, t_concat = table.insert, table.concat;
local vcard_to_text = require"verse.util.vcard".to_text;

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)
		if not opts.set then -- get
			conn:get_vcard(arg[1], function(vCard)
				print(vCard and vcard_to_text(vCard) 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, { "vcard" });
end