From b30d3d29dbdf135c3ee5d72a28c34bb0cae595e7 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Fri, 10 Sep 2021 12:51:48 +0000
Subject: [PATCH] 93_FHEM2FHEM.pm: rewrite keepalive (Forum #122805)

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

diff --git a/fhem/FHEM/93_FHEM2FHEM.pm b/fhem/FHEM/93_FHEM2FHEM.pm
index afb16c4c0..0b9361d29 100644
--- a/fhem/FHEM/93_FHEM2FHEM.pm
+++ b/fhem/FHEM/93_FHEM2FHEM.pm
@@ -416,10 +416,22 @@ sub
 FHEM2FHEM_keepalive($)
 {
   my ($hash) = @_;
-  my $ki = AttrVal($hash->{NAME}, "keepaliveInterval", 0);
+  my $name = $hash->{NAME};
+  my $ki = AttrVal($name, "keepaliveInterval", 0);
   return if(!$ki || !$hash->{TCPDev});
-  syswrite($hash->{TCPDev}, "{undef}\n");
-  InternalTimer(gettimeofday()+$ki, "FHEM2FHEM_keepalive", $hash);
+
+  HttpUtils_Connect({
+    url => "http://$hash->{Host}/", noConn2 => 1,
+    callback=> sub {
+      my ($h, $err, undef) = @_;
+      if($err) {
+        Log3 $name, 4, "$name keepalive: $err";
+        return FHEM2FHEM_Disconnected($hash);
+      }
+      $h->{conn}->close();
+      InternalTimer(gettimeofday()+$ki, "FHEM2FHEM_keepalive", $hash);
+    }
+  });
 }
 
 1;