Software / code / prosody-modules
Annotate
mod_tlsfail/mod_tlsfail.lua @ 5299:e3a3a6c86a9f
mod_audit: Add a command to print the audit log on the command-line
| author | Matthew Wild <mwild1@gmail.com> |
|---|---|
| date | Sat, 01 Apr 2023 13:22:12 +0100 |
| parent | 4702:7009e16192fa |
| rev | line source |
|---|---|
|
4434
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 |
| 4702 | 8 module:hook("stream-features", function(event) |
| 9 local features = event.features; | |
| 10 features:add_child(s2s_feature); | |
| 11 end); | |
| 12 | |
|
4434
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; |
| 4702 | 21 (origin.sends2s or origin.send)(starttls_failure); |
|
4434
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); |