summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRemko Tronçon <git@el-tramo.be>2011-04-04 18:58:15 (GMT)
committerRemko Tronçon <git@el-tramo.be>2011-04-04 18:58:15 (GMT)
commitfb9708cbb37e0454196f262a75122f986fffa62e (patch)
tree60286c184fd4dfe15031bccd805404980bf958ff /Sluift/Examples
parent9b68e3ba79bc581c950003b9a4dec0183b665884 (diff)
downloadswift-fb9708cbb37e0454196f262a75122f986fffa62e.zip
swift-fb9708cbb37e0454196f262a75122f986fffa62e.tar.bz2
Fixed assertion failure in Sluift.
Diffstat (limited to 'Sluift/Examples')
-rwxr-xr-xSluift/Examples/Wonderland.lua52
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