mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

98_telnet.pm: fix IPV6 (Forum #35149)

Browse Source 
git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@8229 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2015-03-17 09:00:27 +00:00
parent 18f5ec5dc0
commit 2e20ea8449
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
fhem/FHEM/98_telnet.pm
View File

@@ -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);