From 1709105ca753c0ce0ad308545084a2618cdecec9 Mon Sep 17 00:00:00 2001
From: Sailor <>
Date: Sun, 7 Nov 2021 16:31:04 +0000
Subject: [PATCH] 73_km200: bugfix - Allowing Port number behind IP address

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

diff --git a/FHEM/73_km200.pm b/FHEM/73_km200.pm
index 9e4dd6e27..0cd3642af 100644
--- a/FHEM/73_km200.pm
+++ b/FHEM/73_km200.pm
@@ -138,7 +138,8 @@ sub km200_Define($$)
 	if (int(@a) == 5) 
 	{
 		###START### Check whether IPv4 address is valid
-		if ($url =~ m/^(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)$/)
+#		if ($url =~ m/^(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)$/)
+		if ($url =~ m/^(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)(:[0-9]{1,5})?$/)
 		{
 			Log3 $name, 4, $name. " : km200 - IPv4-address is valid                  : " . $url;
 		}