From 64ba2f2be4314b8d91539d4cd71f36b2f588bb36 Mon Sep 17 00:00:00 2001
From: vk <>
Date: Tue, 9 Nov 2021 11:55:44 +0000
Subject: [PATCH] 24_TPLinkHS110.pm: Support for KP115

git-svn-id: https://svn.fhem.de/fhem/trunk@25206 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/24_TPLinkHS110.pm | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/24_TPLinkHS110.pm b/fhem/FHEM/24_TPLinkHS110.pm
index d7b3c9cb5..74fd53bc3 100644
--- a/fhem/FHEM/24_TPLinkHS110.pm
+++ b/fhem/FHEM/24_TPLinkHS110.pm
@@ -194,6 +194,18 @@ sub TPLinkHS110_Get($$) {
 	Log3 $hash, 3, "TPLinkHS110: $name Get called. Relay state: $json->{'system'}->{'get_sysinfo'}->{'relay_state'}, RSSI: $json->{'system'}->{'get_sysinfo'}->{'rssi'}";
 
 	my $hw_ver = $json->{'system'}->{'get_sysinfo'}->{'hw_ver'};
+
+
+	if ($json->{'system'}->{'get_sysinfo'}->{'model'} eq "KP115(EU)")
+	{
+		$hw_ver = '2.0';	
+	}
+	else
+	{
+		$hw_ver = $hw_ver;
+	}
+
+
 	my %hwMap = hwMapping();
 
 	foreach my $key (sort keys %{$json->{'system'}->{'get_sysinfo'}}) {
@@ -238,7 +250,13 @@ sub TPLinkHS110_Get($$) {
 
 	# If the device is a HS110, get realtime data:
 	#  if ( 1 == 0 ) {
-	if ($json->{'system'}->{'get_sysinfo'}->{'model'} eq "HS110(EU)" or $json->{'system'}->{'get_sysinfo'}->{'model'} eq "HS110(UK)") {
+	if (
+		$json->{'system'}->{'get_sysinfo'}->{'model'} eq "HS110(EU)"
+		or
+		$json->{'system'}->{'get_sysinfo'}->{'model'} eq "HS110(UK)"
+		or
+		$json->{'system'}->{'get_sysinfo'}->{'model'} eq "KP115(EU)"
+	) {
 		my $realtimejcommand = '{"emeter":{"get_realtime":{}}}';
 		my $rdata;
 		($errmsg, $rdata) = TPLinkHS110_SendCommand($hash, $realtimejcommand);