--[[
	
	Copyright (c) 2010-2013 Remko Tronçon
	Licensed under the GNU General Public License v3.
	See Documentation/Licenses/GPLv3.txt for more information.

	This script logs into an XMPP server, and collects statistics about
	the server software of all contacts in your roster

--]]

require 'sluift'

c = sluift.new_client(os.getenv('SLUIFT_JID'), os.getenv('SLUIFT_PASS'))
c:connect(function () 
	versions = {}
	for jid in pairs(c:get_contacts()) do
		local v = c:get_software_version {to = sluift.jid.domain(jid), timeout = 3000} or {name = 'Unknown'}
		versions[v['name']] = (versions[v['name']] or 0) + 1
	end
	for name, count in pairs(versions) do print(name .. ': ' .. count) end
end)