diff options
author | Remko Tronçon <git@el-tramo.be> | 2011-04-04 18:58:15 (GMT) |
---|---|---|
committer | Remko Tronçon <git@el-tramo.be> | 2011-04-04 18:58:15 (GMT) |
commit | fb9708cbb37e0454196f262a75122f986fffa62e (patch) | |
tree | 60286c184fd4dfe15031bccd805404980bf958ff /Sluift/Examples | |
parent | 9b68e3ba79bc581c950003b9a4dec0183b665884 (diff) | |
download | swift-contrib-fb9708cbb37e0454196f262a75122f986fffa62e.zip swift-contrib-fb9708cbb37e0454196f262a75122f986fffa62e.tar.bz2 |
Fixed assertion failure in Sluift.
Diffstat (limited to 'Sluift/Examples')
-rwxr-xr-x | Sluift/Examples/Wonderland.lua | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/Sluift/Examples/Wonderland.lua b/Sluift/Examples/Wonderland.lua new file mode 100755 index 0000000..cf79371 --- /dev/null +++ b/Sluift/Examples/Wonderland.lua @@ -0,0 +1,52 @@ +--
+-- Copyright (c) 2011 Remko Tronçon
+-- Licensed under the GNU General Public License v3.
+-- See Documentation/Licenses/GPLv3.txt for more information.
+--
+
+-- This script creates the wonderland world example.
+--
+
+require "sluift"
+--sluift.debug = true
+
+characters = {
+ {jid = "alice@wonderland.lit", name = "Alice", groups = {}, presence = "<presence/>"},
+ {jid = "hatter@wonderland.lit", name = "Mad Hatter", groups = {}, presence = "<presence><show>away</show><status>At the Tea Party</status></presence>"},
+ {jid ="queen@wonderland.lit", name = "Queen of Hearts", groups = {}, presence = "<presence><show>dnd</show><status>Executing</status></presence>"},
+ {jid = "rabbit@wonderland.lit", name = "White Rabbit", groups = {"Animals"}, presence = "<presence><status>Oh dear!</status></presence>"},
+ {jid = "turtle@wonderland.lit", name = "Mock Turtle", groups = {"Animals"}, presence = "<presence/>"},
+}
+
+clients = {}
+for _, character in ipairs(characters) do
+ print("Connecting " .. character["name"] .. "...")
+ client = sluift.new_client(character["jid"], os.getenv("SLUIFT_PASS"))
+ client:set_options({compress = false, tls = false})
+ client:connect()
+ client:get_contacts()
+ client:send(character["presence"])
+ table.insert(clients, client)
+ for _, contact in ipairs(characters) do
+ if contact["jid"] ~= character["jid"] then
+ client:add_contact(contact)
+ end
+ end
+end
+
+print("Confirming subscriptions")
+for _, client in ipairs(clients) do
+ for _, contact in ipairs(characters) do
+ client:confirm_subscription(contact["jid"])
+ end
+end
+
+print("Done. Waiting ...")
+while true do
+ for _, client in ipairs(clients) do
+ client:for_event(function(e)
+ if e["type"] == "message" then client:send_message(e["from"], "Off with their heads!") end
+ end, 1000)
+ end
+ sluift.sleep(1000)
+end
|