2 -- Copyright (C) 2011-2013 Kim Alvefur |
2 -- Copyright (C) 2011-2013 Kim Alvefur |
3 -- |
3 -- |
4 -- This file is MIT/X11 licensed. |
4 -- This file is MIT/X11 licensed. |
5 |
5 |
6 local st = require"util.stanza"; |
6 local st = require"util.stanza"; |
7 local xmlns_mam = "urn:xmpp:mam:0"; |
|
8 |
7 |
9 local default_attrs = { |
8 local default_attrs = { |
10 always = true, [true] = "always", |
9 always = true, [true] = "always", |
11 never = false, [false] = "never", |
10 never = false, [false] = "never", |
12 roster = "roster", |
11 roster = "roster", |
13 } |
12 } |
14 |
13 |
15 local function tostanza(prefs) |
14 local function tostanza(prefs, xmlns_mam) |
16 local default = prefs[false]; |
15 local default = prefs[false]; |
17 default = default_attrs[default]; |
16 default = default_attrs[default]; |
18 local prefstanza = st.stanza("prefs", { xmlns = xmlns_mam, default = default }); |
17 local prefstanza = st.stanza("prefs", { xmlns = xmlns_mam, default = default }); |
19 local always = st.stanza("always"); |
18 local always = st.stanza("always"); |
20 local never = st.stanza("never"); |
19 local never = st.stanza("never"); |