From d1e7581207e58482b9af7d5b117b1938cc2e0ff8 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sat, 29 Feb 2020 20:48:21 +0000
Subject: [PATCH] TcpServerUtils.pm: certificate generation: handle
 pwd!=modpath (Forum #108789)

git-svn-id: https://svn.fhem.de/fhem/trunk@21319 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/TcpServerUtils.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/TcpServerUtils.pm b/fhem/FHEM/TcpServerUtils.pm
index 88718283e..ed815a696 100644
--- a/fhem/FHEM/TcpServerUtils.pm
+++ b/fhem/FHEM/TcpServerUtils.pm
@@ -179,7 +179,8 @@ TcpServer_SetSSL($)
   }
 
   my $name = $hash->{NAME};
-  my $cp = AttrVal($name, "sslCertPrefix", "certs/server-");
+  my $cp = AttrVal("global", "modpath", ".")."/".
+           AttrVal($name, "sslCertPrefix", "certs/server-");
   if(! -r "${cp}key.pem") {
 
     Log 1, "$name: Server certificate missing, trying to create one";
@@ -197,7 +198,7 @@ TcpServer_SetSSL($)
     close(FH);
 
     my $cmd = "openssl req -new -x509 -days 3650 -nodes -newkey rsa:2048 ".
-                "-config certreq.txt -out ${cp}cert.pm -keyout ${cp}key.pem";
+                "-config certreq.txt -out ${cp}cert.pem -keyout ${cp}key.pem";
     Log 1, "Executing $cmd";
     `$cmd`;
     unlink("certreq.txt");