Add TLS support w/ OpenSSL

.github/workflows/ci-scripts-build.yml

@@ -145,6 +145,12 @@ jobs:
         sudo apt-get update
         sudo apt-get -y install g++-mingw-w64-x86-64 cmake gdb qemu-system-x86 libssl-dev
       if: runner.os == 'Linux'
+    - name: Setup python
+      uses: actions/setup-python@v4
+      with:
+          python-version: "3.11"
+    - name: Python deps
+      run: pip install pyOpenSSL
     - name: Host Info
       run: openssl version -a
     - name: Automatic core dumper analysis
@@ -158,7 +164,8 @@ jobs:
     - name: Generate Docs
       if: matrix.doc
       run: |
-        sudo apt-get -y install doxygen python-is-python3 python3-breathe
+        sudo apt-get -y install doxygen
+        pip install breathe Sphinx
         make -C documentation
     - name: otool
       if: ${{ always() && runner.os == 'macOS' }}

ioc/iochooks.cpp

@@ -202,6 +202,17 @@ void pvxrefdiff() {
     }
 }
 
+void pvxreconfigure()
+{
+    if (auto pPvxsServer = pvxsServer.load()) {
+        printf("Reconfiguring QSRV\n");
+        pPvxsServer->reconfigure(server::Config::from_env());
+        pvxsr(0); // print new configuration
+    } else {
+        fprintf(stderr, "Warning: QSRV not running\n");
+    }
+}
+
 } // namespace
 
 /**
@@ -302,6 +313,9 @@ void pvxsBaseRegistrar() {
                        "Save the current set of instance counters for reference by later pvxrefdiff.\n").implementation<&pvxrefsave>();
         IOCShCommand<>("pvxrefdiff",
                        "Show different of current instance counts with those when pvxrefsave was called.\n").implementation<&pvxrefdiff>();
+        IOCShCommand<>("pvxreconfigure",
+                       "Reconfigure QSRV using current values of EPICS_PVA*\n")
+                .implementation<&pvxreconfigure>();
 
         // Initialise the PVXS Server
         initialisePvxsServer();

src/Makefile

@@ -15,6 +15,12 @@ ifeq (YES,$(EVENT2_HAS_OPENSSL))
 USR_CPPFLAGS += -DPVXS_ENABLE_OPENSSL
 endif
 
+# set to NO to disable handling of $SSLKEYLOGFILE
+PVXS_ENABLE_SSLKEYLOGFILE ?= YES
+
+PVXS_ENABLE_SSLKEYLOGFILE_YES = -DPVXS_ENABLE_SSLKEYLOGFILE
+USR_CPPFLAGS += $(PVXS_ENABLE_SSLKEYLOGFILE_$(PVXS_ENABLE_SSLKEYLOGFILE))
+
 ifdef T_A
 ifneq ($(CONFIG_LOADED),YES)
 $(error Toolchain inspection failed $(MAKEFILE_LIST))
@@ -111,6 +117,10 @@ LIB_SRCS += clientget.cpp
 LIB_SRCS += clientmon.cpp
 LIB_SRCS += clientdiscover.cpp
 
+ifeq (YES,$(EVENT2_HAS_OPENSSL))
+LIB_SRCS += ossl.cpp
+endif
+
 LIB_LIBS += Com
 
 # special case matching configure/RULES_PVXS_MODULE

src/client.cpp

@@ -87,10 +87,13 @@ RemoteError::~RemoteError() {}
 
 Finished::~Finished() {}
 
-Connected::Connected(const std::string& peerName)
+Connected::Connected(const std::string& peerName,
+                     const epicsTime& time,
+                     const std::shared_ptr<const pvxs::client::ServerCredentials> &cred)
     :std::runtime_error("Connected")
     ,peerName(peerName)
-    ,time(epicsTime::getCurrent())
+    ,time(time)
+    ,cred(cred)
 {}
 
 Connected::~Connected() {}
@@ -216,7 +219,7 @@ void Channel::disconnect(const std::shared_ptr<Channel>& self)
                          name.c_str());
 
     } else if(context->state==ContextImpl::Running) { // reconnect to specific server
-        conn = Connection::build(context, forcedServer, true);
+        conn = Connection::build(context, forcedServer, true, false); // TODO: how to TLS?
 
         conn->pending[cid] = self;
         state = Connecting;
@@ -273,10 +276,13 @@ std::shared_ptr<Connect> ConnectBuilder::exec()
         op->chan = Channel::build(context, op->_name, server);
 
         bool cur = op->_connected = op->chan->state==Channel::Active;
-        if(cur && op->_onConn)
-            op->_onConn();
-        else if(!cur && op->_onDis)
+        if(cur && op->_onConn) {
+            auto& conn = op->chan->conn;
+            Connected evt(conn->peerName, conn->connTime, conn->cred);
+            op->_onConn(evt);
+        } else if(!cur && op->_onDis) {
             op->_onDis();
+        }
 
         op->chan->connectors.push_back(op.get());
     });
@@ -380,7 +386,7 @@ std::shared_ptr<Channel> Channel::build(const std::shared_ptr<ContextImpl>& cont
 
         } else { // bypass search and connect so a specific server
             chan->forcedServer = forceServer;
-            chan->conn = Connection::build(context, forceServer);
+            chan->conn = Connection::build(context, forceServer, false, false); // TODO: how to TLS?
 
             chan->conn->pending[chan->cid] = chan;
             chan->state = Connecting;
@@ -410,6 +416,45 @@ Context::Context(const Config& conf)
 
 Context::~Context() {}
 
+void Context::reconfigure(const Config& newconf)
+{
+    if(!pvt)
+        throw std::logic_error("NULL Context");
+
+#ifdef PVXS_ENABLE_OPENSSL
+
+    ossl::SSLContext new_context;
+    if(!newconf.tls_keychain_file.empty()
+            || !newconf.tls_authority_files.empty()
+            || !newconf.tls_authority_dirs.empty())
+    {
+        new_context = ossl::SSLContext::for_client(newconf);
+    }
+
+    pvt->impl->manager.loop().call([this, &new_context](){
+
+        log_debug_printf(setup, "Client reconfigure%s", "\n");
+
+        auto conns(std::move(pvt->impl->connByAddr));
+
+        for(auto& pair : conns) {
+            auto conn = pair.second.lock();
+            if(!conn)
+                continue;
+
+            conn->cleanup();
+        }
+
+        conns.clear();
+
+        pvt->impl->tls_context = new_context;
+    });
+
+#else
+    pvt->impl->manager.loop().sync();
+#endif
+}
+
 const Config& Context::config() const
 {
     if(!pvt)
@@ -542,6 +587,15 @@ ContextImpl::ContextImpl(const Config& conf, const evbase& tcp_loop)
     ,nsChecker(__FILE__, __LINE__,
                event_new(tcp_loop.base, -1, EV_TIMEOUT|EV_PERSIST, &ContextImpl::onNSCheckS, this))
 {
+#ifdef PVXS_ENABLE_OPENSSL
+    if(!effective.tls_keychain_file.empty()
+            || !effective.tls_authority_files.empty()
+            || !effective.tls_authority_dirs.empty())
+    {
+        tls_context = ossl::SSLContext::for_client(effective);
+    }
+#endif
+
     searchBuckets.resize(nBuckets);
 
     std::set<SockAddr, SockAddrOnlyLess> bcasts;
@@ -654,9 +708,10 @@ void ContextImpl::startNS()
         // start connections to name servers
         for(auto& ns : nameServers) {
             const auto& serv = ns.first;
-            ns.second = Connection::build(shared_from_this(), serv);
+            ns.second = Connection::build(shared_from_this(), serv, false, false); // TODO: how to TLS?
             ns.second->nameserver = true;
-            log_debug_printf(io, "Connecting to nameserver %s\n", ns.second->peerName.c_str());
+            log_debug_printf(io, "Connecting to nameserver %s%s\n",
+                             ns.second->peerName.c_str(), ns.second->isTLS ? " TLS" : "");
         }
 
         if(event_add(nsChecker.get(), &tcpNSCheckInterval))
@@ -873,7 +928,16 @@ void procSearchReply(ContextImpl& self, const SockAddr& src, uint8_t peerVersion
         self.onBeacon(fakebeacon);
     }
 
-    if(!found || proto!="tcp")
+    bool isTCP = proto=="tcp";
+
+#ifdef PVXS_ENABLE_OPENSSL
+    bool isTLS = proto=="tls";
+    if(!self.tls_context && isTLS)
+        return;
+#else
+    const bool isTLS = false;
+#endif
+    if(!found || !(isTCP || isTLS))
         return;
 
     for(auto n : range(nSearch)) {
@@ -901,7 +965,7 @@ void procSearchReply(ContextImpl& self, const SockAddr& src, uint8_t peerVersion
             chan->guid = guid;
             chan->replyAddr = serv;
 
-            chan->conn = Connection::build(self.shared_from_this(), serv);
+            chan->conn = Connection::build(self.shared_from_this(), serv, false, isTLS);
 
             chan->conn->pending[chan->cid] = chan;
             chan->state = Channel::Connecting;
@@ -1061,6 +1125,13 @@ void ContextImpl::tickSearch(SearchKind kind, bool poked)
         if(kind == SearchKind::discover) {
             to_wire(M, uint8_t(0u));
 
+#ifdef PVXS_ENABLE_OPENSSL
+        } else if(tls_context) {
+            to_wire(M, uint8_t(2u));
+            to_wire(M, "tls");
+            to_wire(M, "tcp");
+#endif
+
         } else {
             to_wire(M, uint8_t(1u));
             to_wire(M, "tcp");
@@ -1286,7 +1357,7 @@ void ContextImpl::onNSCheck()
         if(ns.second && ns.second->state != ConnBase::Disconnected) // hold-off, connecting, or connected
             continue;
 
-        ns.second = Connection::build(shared_from_this(), ns.first);
+        ns.second = Connection::build(shared_from_this(), ns.first, false, false); // How to TLS?
         ns.second->nameserver = true;
         log_debug_printf(io, "Reconnecting nameserver %s\n", ns.second->peerName.c_str());
     }