summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRemko Tronçon <git@el-tramo.be>2011-03-05 12:02:12 (GMT)
committerRemko Tronçon <git@el-tramo.be>2011-03-05 12:02:12 (GMT)
commit4e0888a6e2350f06504d4c6a99e5a21fa51ee9bc (patch)
tree3de7e764cc35810d097ca41ea965b4fcb1702db7 /Sluift/Examples
parentf19d2718149f36fa017c64ad95a7fb3ce045347c (diff)
downloadswift-4e0888a6e2350f06504d4c6a99e5a21fa51ee9bc.zip
swift-4e0888a6e2350f06504d4c6a99e5a21fa51ee9bc.tar.bz2
Sluift: Added CollectVersions example.
Diffstat (limited to 'Sluift/Examples')
-rw-r--r--Sluift/Examples/CollectVersions.lua22
-rw-r--r--Sluift/Examples/Login.lua1
2 files changed, 22 insertions, 1 deletions
diff --git a/Sluift/Examples/CollectVersions.lua b/Sluift/Examples/CollectVersions.lua
new file mode 100644
index 0000000..c93c8c8
--- /dev/null
+++ b/Sluift/Examples/CollectVersions.lua
@@ -0,0 +1,22 @@
+--
+-- Copyright (c) 2010 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()
+
+versions = {}
+for jid, _ in pairs(c:get_contacts()) do
+ v = c:get_version(sluift.jid_domain(jid))
+ if v then versions[v["name"]] = (versions[v["name"]] or 0) + 1 end
+end
+for name, count in pairs(versions) do print(name .. ": " .. count) end
+
+c:disconnect()
diff --git a/Sluift/Examples/Login.lua b/Sluift/Examples/Login.lua
index c1f42d2..1733bb9 100644
--- a/Sluift/Examples/Login.lua
+++ b/Sluift/Examples/Login.lua
@@ -10,7 +10,6 @@
--
-- The following environment variables are used:
-- * SLUIFT_JID, SWIFT_PASS: JID and password to log in with
--- * SLUIFT_OPTIONS: Client options to use (e.g. "{compress = false}")
-- * SLUIFT_DEBUG: Sets whether debugging should be turned on
require "sluift"