verse
cbcd45be11a8
plugins/session.lua

Find changesets by keywords by author, files, the commit message, revision number or hash, or revset expression.

Software / code / verse

Annotate

plugins/session.lua @ 205:cbcd45be11a8

verse: Expose net.server as verse.server
author Matthew Wild <mwild1@gmail.com>
date Fri, 18 Mar 2011 21:50:06 +0000
parent 197:7e98cf2c1d8d
child 250:a5ac643a7fd6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
68
1789dac44823 plugins.session: Convert from Windows line endings
Matthew Wild <mwild1@gmail.com>
parents: 50
diff changeset
1 local xmlns_session = "urn:ietf:params:xml:ns:xmpp-session";
1789dac44823 plugins.session: Convert from Windows line endings
Matthew Wild <mwild1@gmail.com>
parents: 50
diff changeset
2
1789dac44823 plugins.session: Convert from Windows line endings
Matthew Wild <mwild1@gmail.com>
parents: 50
diff changeset
3 function verse.plugins.session(stream)
75
f5ac4e39e84f verse.plugins.session: Only negotiate session when support is advertised by the server, and not marked as optional (saves a round-trip in a lot of cases)
Matthew Wild <mwild1@gmail.com>
parents: 73
diff changeset
4
f5ac4e39e84f verse.plugins.session: Only negotiate session when support is advertised by the server, and not marked as optional (saves a round-trip in a lot of cases)
Matthew Wild <mwild1@gmail.com>
parents: 73
diff changeset
5 local function handle_features(features)
f5ac4e39e84f verse.plugins.session: Only negotiate session when support is advertised by the server, and not marked as optional (saves a round-trip in a lot of cases)
Matthew Wild <mwild1@gmail.com>
parents: 73
diff changeset
6 local session_feature = features:get_child("session", xmlns_session);
f5ac4e39e84f verse.plugins.session: Only negotiate session when support is advertised by the server, and not marked as optional (saves a round-trip in a lot of cases)
Matthew Wild <mwild1@gmail.com>
parents: 73
diff changeset
7 if session_feature and not session_feature:get_child("optional") then
f5ac4e39e84f verse.plugins.session: Only negotiate session when support is advertised by the server, and not marked as optional (saves a round-trip in a lot of cases)
Matthew Wild <mwild1@gmail.com>
parents: 73
diff changeset
8 local function handle_binding(jid)
f5ac4e39e84f verse.plugins.session: Only negotiate session when support is advertised by the server, and not marked as optional (saves a round-trip in a lot of cases)
Matthew Wild <mwild1@gmail.com>
parents: 73
diff changeset
9 stream:debug("Establishing Session...");
197
7e98cf2c1d8d plugins.*: Use verse.stanza() & co instead of require util.stanza
Kim Alvefur <zash@zash.se>
parents: 78
diff changeset
10 stream:send_iq(verse.iq({ type = "set" }):tag("session", {xmlns=xmlns_session}),
75
f5ac4e39e84f verse.plugins.session: Only negotiate session when support is advertised by the server, and not marked as optional (saves a round-trip in a lot of cases)
Matthew Wild <mwild1@gmail.com>
parents: 73
diff changeset
11 function (reply)
f5ac4e39e84f verse.plugins.session: Only negotiate session when support is advertised by the server, and not marked as optional (saves a round-trip in a lot of cases)
Matthew Wild <mwild1@gmail.com>
parents: 73
diff changeset
12 if reply.attr.type == "result" then
f5ac4e39e84f verse.plugins.session: Only negotiate session when support is advertised by the server, and not marked as optional (saves a round-trip in a lot of cases)
Matthew Wild <mwild1@gmail.com>
parents: 73
diff changeset
13 stream:event("session-success");
f5ac4e39e84f verse.plugins.session: Only negotiate session when support is advertised by the server, and not marked as optional (saves a round-trip in a lot of cases)
Matthew Wild <mwild1@gmail.com>
parents: 73
diff changeset
14 elseif reply.attr.type == "error" then
f5ac4e39e84f verse.plugins.session: Only negotiate session when support is advertised by the server, and not marked as optional (saves a round-trip in a lot of cases)
Matthew Wild <mwild1@gmail.com>
parents: 73
diff changeset
15 local err = reply:child_with_name("error");
f5ac4e39e84f verse.plugins.session: Only negotiate session when support is advertised by the server, and not marked as optional (saves a round-trip in a lot of cases)
Matthew Wild <mwild1@gmail.com>
parents: 73
diff changeset
16 local type, condition, text = reply:get_error();
f5ac4e39e84f verse.plugins.session: Only negotiate session when support is advertised by the server, and not marked as optional (saves a round-trip in a lot of cases)
Matthew Wild <mwild1@gmail.com>
parents: 73
diff changeset
17 stream:event("session-failure", { error = condition, text = text, type = type });
f5ac4e39e84f verse.plugins.session: Only negotiate session when support is advertised by the server, and not marked as optional (saves a round-trip in a lot of cases)
Matthew Wild <mwild1@gmail.com>
parents: 73
diff changeset
18 end
f5ac4e39e84f verse.plugins.session: Only negotiate session when support is advertised by the server, and not marked as optional (saves a round-trip in a lot of cases)
Matthew Wild <mwild1@gmail.com>
parents: 73
diff changeset
19 end);
f5ac4e39e84f verse.plugins.session: Only negotiate session when support is advertised by the server, and not marked as optional (saves a round-trip in a lot of cases)
Matthew Wild <mwild1@gmail.com>
parents: 73
diff changeset
20 return true;
f5ac4e39e84f verse.plugins.session: Only negotiate session when support is advertised by the server, and not marked as optional (saves a round-trip in a lot of cases)
Matthew Wild <mwild1@gmail.com>
parents: 73
diff changeset
21 end
78
f4188eff53a7 verse.client, verse.plugins.bind, verse.plugins.session: Rename binding-success and binding-failure to bind-success and bind-failure for consistency
Matthew Wild <mwild1@gmail.com>
parents: 75
diff changeset
22 stream:hook("bind-success", handle_binding);
75
f5ac4e39e84f verse.plugins.session: Only negotiate session when support is advertised by the server, and not marked as optional (saves a round-trip in a lot of cases)
Matthew Wild <mwild1@gmail.com>
parents: 73
diff changeset
23 end
73
b416751df2ca verse.plugins.session: Convert from spaces to tabs
Matthew Wild <mwild1@gmail.com>
parents: 68
diff changeset
24 end
75
f5ac4e39e84f verse.plugins.session: Only negotiate session when support is advertised by the server, and not marked as optional (saves a round-trip in a lot of cases)
Matthew Wild <mwild1@gmail.com>
parents: 73
diff changeset
25 stream:hook("stream-features", handle_features);
f5ac4e39e84f verse.plugins.session: Only negotiate session when support is advertised by the server, and not marked as optional (saves a round-trip in a lot of cases)
Matthew Wild <mwild1@gmail.com>
parents: 73
diff changeset
26
73
b416751df2ca verse.plugins.session: Convert from spaces to tabs
Matthew Wild <mwild1@gmail.com>
parents: 68
diff changeset
27 return true;
68
1789dac44823 plugins.session: Convert from Windows line endings
Matthew Wild <mwild1@gmail.com>
parents: 50
diff changeset
28 end