author | Matthew Wild <mwild1@gmail.com> |
Fri, 23 Sep 2022 22:39:49 +0100 | |
changeset 5056 | d7ece68de066 |
parent 4706 | 7009e16192fa |
permissions | -rw-r--r-- |
4438
f10ab82be166
mod_tlsfail: Test how servers react to starttls failure
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
1 |
local st = require "util.stanza"; |
f10ab82be166
mod_tlsfail: Test how servers react to starttls failure
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
2 |
|
f10ab82be166
mod_tlsfail: Test how servers react to starttls failure
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
3 |
local xmlns_starttls = 'urn:ietf:params:xml:ns:xmpp-tls'; |
f10ab82be166
mod_tlsfail: Test how servers react to starttls failure
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
4 |
local starttls_attr = { xmlns = xmlns_starttls }; |
f10ab82be166
mod_tlsfail: Test how servers react to starttls failure
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
5 |
local s2s_feature = st.stanza("starttls", starttls_attr); |
f10ab82be166
mod_tlsfail: Test how servers react to starttls failure
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
6 |
local starttls_failure = st.stanza("failure", starttls_attr); |
f10ab82be166
mod_tlsfail: Test how servers react to starttls failure
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
7 |
|
4706 | 8 |
module:hook("stream-features", function(event) |
9 |
local features = event.features; |
|
10 |
features:add_child(s2s_feature); |
|
11 |
end); |
|
12 |
||
4438
f10ab82be166
mod_tlsfail: Test how servers react to starttls failure
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
13 |
module:hook("s2s-stream-features", function(event) |
f10ab82be166
mod_tlsfail: Test how servers react to starttls failure
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
14 |
local features = event.features; |
f10ab82be166
mod_tlsfail: Test how servers react to starttls failure
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
15 |
features:add_child(s2s_feature); |
f10ab82be166
mod_tlsfail: Test how servers react to starttls failure
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
16 |
end); |
f10ab82be166
mod_tlsfail: Test how servers react to starttls failure
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
17 |
|
f10ab82be166
mod_tlsfail: Test how servers react to starttls failure
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
18 |
-- Hook <starttls/> |
f10ab82be166
mod_tlsfail: Test how servers react to starttls failure
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
19 |
module:hook("stanza/urn:ietf:params:xml:ns:xmpp-tls:starttls", function(event) |
f10ab82be166
mod_tlsfail: Test how servers react to starttls failure
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
20 |
local origin = event.origin; |
4706 | 21 |
(origin.sends2s or origin.send)(starttls_failure); |
4438
f10ab82be166
mod_tlsfail: Test how servers react to starttls failure
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
22 |
origin:close(); |
f10ab82be166
mod_tlsfail: Test how servers react to starttls failure
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
23 |
return true; |
f10ab82be166
mod_tlsfail: Test how servers react to starttls failure
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
24 |
end); |