examples/tune.lua
author Myhailo Danylenko <isbear@ukrpost.net>
Fri, 27 Mar 2009 12:06:19 +0200
changeset 66 542f61e113cb
parent 59 4660c4f10ef1
child 68 742878c74b8e
permissions -rw-r--r--
Modularization, I * activity * attention * avatar * disco * evil * geoloc * ibb * iq * mood * oob * ping * pubsub * tune * mpd * pep
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
59
4660c4f10ef1 Pep splitting
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
     1
4660c4f10ef1 Pep splitting
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
     2
-- USER TUNE (XEP-0118)
4660c4f10ef1 Pep splitting
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
     3
4660c4f10ef1 Pep splitting
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
     4
-- library
4660c4f10ef1 Pep splitting
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
     5
66
542f61e113cb Modularization, I
Myhailo Danylenko <isbear@ukrpost.net>
parents: 59
diff changeset
     6
local pep = require 'pep'
542f61e113cb Modularization, I
Myhailo Danylenko <isbear@ukrpost.net>
parents: 59
diff changeset
     7
542f61e113cb Modularization, I
Myhailo Danylenko <isbear@ukrpost.net>
parents: 59
diff changeset
     8
--
59
4660c4f10ef1 Pep splitting
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
     9
66
542f61e113cb Modularization, I
Myhailo Danylenko <isbear@ukrpost.net>
parents: 59
diff changeset
    10
local F = { }
59
4660c4f10ef1 Pep splitting
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    11
66
542f61e113cb Modularization, I
Myhailo Danylenko <isbear@ukrpost.net>
parents: 59
diff changeset
    12
function F.publish ( conn, node, success, fail, data )
59
4660c4f10ef1 Pep splitting
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    13
	local item = { xmlns = 'http://jabber.org/protocol/tune' }
4660c4f10ef1 Pep splitting
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    14
	if data then
4660c4f10ef1 Pep splitting
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    15
		for key, value in pairs ( data ) do
4660c4f10ef1 Pep splitting
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    16
			item[key] = { value }
4660c4f10ef1 Pep splitting
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    17
		end
4660c4f10ef1 Pep splitting
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    18
	end
4660c4f10ef1 Pep splitting
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    19
	pep.publish ( conn, 'http://jabber.org/protocol/tune', { tune = item }, success, fail )
4660c4f10ef1 Pep splitting
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    20
end
4660c4f10ef1 Pep splitting
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    21
66
542f61e113cb Modularization, I
Myhailo Danylenko <isbear@ukrpost.net>
parents: 59
diff changeset
    22
return F
59
4660c4f10ef1 Pep splitting
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    23
4660c4f10ef1 Pep splitting
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    24
-- vim: se ts=4: --