From 2e20ea8449eb170147e82b860b1a6ed7a40845a2 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Tue, 17 Mar 2015 09:00:27 +0000
Subject: [PATCH] 98_telnet.pm: fix IPV6 (Forum #35149)

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@8229 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_telnet.pm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/fhem/FHEM/98_telnet.pm b/fhem/FHEM/98_telnet.pm
index 15c585bae..32e46b476 100644
--- a/fhem/FHEM/98_telnet.pm
+++ b/fhem/FHEM/98_telnet.pm
@@ -135,10 +135,13 @@ telnet_Define($$$)
   my ($hash, $def) = @_;
 
   my @a = split("[ \t][ \t]*", $def);
-  my ($name, $type, $port, $global) = split("[ \t]+", $def);
+  my ($name, $type, $pport, $global) = split("[ \t]+", $def);
 
-  my $isServer = 1 if(defined($port) && $port =~ m/^(IPV6:)?\d+$/);
-  my $isClient = 1 if($port && $port =~ m/^(IPV6:)?.*:\d+$/);
+  my $port = $pport;
+  $port =~ s/^IPV6://;
+
+  my $isServer = 1 if(defined($port) && $port =~ m/^\d+$/);
+  my $isClient = 1 if($port && $port =~ m/^(.+):\d+$/);
 
   return "Usage: define <name> telnet { [IPV6:]<tcp-portnr> [global] | ".
                                       " [IPV6:]serverName:port }"
@@ -148,7 +151,7 @@ telnet_Define($$$)
 
   # Make sure that fhem only runs once
   if($isServer) {
-    my $ret = TcpServer_Open($hash, $port, $global);
+    my $ret = TcpServer_Open($hash, $pport, $global);
     if($ret && !$init_done) {
       Log3 $name, 1, "$ret. Exiting.";
       exit(1);