From 07c12dc926bcce045dd34bd0b5c4b4262c8fc488 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@25200 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/73_km200.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/fhem/FHEM/73_km200.pm b/fhem/FHEM/73_km200.pm index 9e4dd6e27..0cd3642af 100644 --- a/fhem/FHEM/73_km200.pm +++ b/fhem/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; }