From de5e87d9fe2ad7ad3433f57761436e07cecef1b3 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Wed, 28 Jun 2017 13:21:57 +0000
Subject: [PATCH] TcpServerUtils.pm: adjust the "local-IP" regexp for IPV6
 (Forum #73686)

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

diff --git a/fhem/FHEM/TcpServerUtils.pm b/fhem/FHEM/TcpServerUtils.pm
index 6c6171688..459f9a85a 100644
--- a/fhem/FHEM/TcpServerUtils.pm
+++ b/fhem/FHEM/TcpServerUtils.pm
@@ -73,8 +73,8 @@ TcpServer_Accept($$)
 
   my $af = $attr{$name}{allowfrom};
   if(!$af) {
-    my $re = "^(127|192.168|172.(1[6-9]|2[0-9]|3[01])|10|169.254)\\.|".
-             "^(fe[89ab]|::1)";
+    my $re ="^(::ffff:)?(127|192.168|172.(1[6-9]|2[0-9]|3[01])|10|169.254)\\.|".
+            "^(f[cde]|::1)";
     if($caddr !~ m/$re/) {
       my %empty;
       $hash->{SNAME} = $hash->{NAME};