From eab71b765fe0422e5ab7d40536efec3136411a05 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Remko=20Tron=C3=A7on?= Date: Sat, 9 Apr 2011 10:33:49 +0200 Subject: Fixed line endings in Wonderland script. diff --git a/Sluift/Examples/Wonderland.lua b/Sluift/Examples/Wonderland.lua index cf79371..58c00ca 100755 --- a/Sluift/Examples/Wonderland.lua +++ b/Sluift/Examples/Wonderland.lua @@ -1,52 +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 = ""}, - {jid = "hatter@wonderland.lit", name = "Mad Hatter", groups = {}, presence = "awayAt the Tea Party"}, - {jid ="queen@wonderland.lit", name = "Queen of Hearts", groups = {}, presence = "dndExecuting"}, - {jid = "rabbit@wonderland.lit", name = "White Rabbit", groups = {"Animals"}, presence = "Oh dear!"}, - {jid = "turtle@wonderland.lit", name = "Mock Turtle", groups = {"Animals"}, 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 +-- +-- 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 = ""}, + {jid = "hatter@wonderland.lit", name = "Mad Hatter", groups = {}, presence = "awayAt the Tea Party"}, + {jid ="queen@wonderland.lit", name = "Queen of Hearts", groups = {}, presence = "dndExecuting"}, + {jid = "rabbit@wonderland.lit", name = "White Rabbit", groups = {"Animals"}, presence = "Oh dear!"}, + {jid = "turtle@wonderland.lit", name = "Mock Turtle", groups = {"Animals"}, 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 -- cgit v0.10.2-6-g49f6