From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Sat, 17 Oct 2020 09:47:41 +0000 (+0100)
Subject: core: added cafile and cadir to the tls options.
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=4ab69f6e1f74be7d12769bf531d665ec14ce7ed7;p=tclxmppd.git

core: added cafile and cadir to the tls options.
---

diff --git a/core.tcl b/core.tcl
index 199c714..6f015f8 100644
--- a/core.tcl
+++ b/core.tcl
@@ -26,6 +26,8 @@ namespace eval ::xmppd {
             domain    {}
             certfile  {}
             keyfile   {}
+            cadir     {}
+            cafile    {}
             modules   {}
             features  {}
             endpoints {}
@@ -48,6 +50,9 @@ namespace eval ::xmppd {
             stanzas  urn:ietf:params:xml:ns:xmpp-stanzas
             session  urn:ietf:params:xml:ns:xmpp-session
             xml      http://www.w3.org/XML/1998/namespace
+            ping     urn:xmpp:ping
+            privacy  jabber:iq:privacy
+            roster   jabber:iq:roster
         }
     }
 
@@ -141,6 +146,20 @@ proc ::xmppd::configure {args} {
                     set options(keyfile) [Pop args 1]
                 }
             }
+            -cafile {
+                if {$cget} {
+                    return $options(cafile)
+                } else {
+                    set options(cafile) [Pop args 1]
+                }
+            }
+            -cadir {
+                if {$cget} {
+                    return $options(cadir)
+                } else {
+                    set options(cadir) [Pop args 1]
+                }
+            }
             -features {
                 if {$cget} { return $options(features) }
             }