FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-20 07:16:03 +00:00
Code Issues Releases Wiki Activity

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

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@8229 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2015-03-17 09:00:27 +00:00
parent ade12bdba6
commit 6508effcce
1 changed files with 7 additions and 4 deletions
Show Stats 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 ($hash, $def) = @_;
my @a = split("[ \t][ \t]*", $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 $port = $pport;
my $isClient = 1 if($port && $port =~ m/^(IPV6:)?.*:\d+$/); $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] | ". return "Usage: define <name> telnet { [IPV6:]<tcp-portnr> [global] | ".
" [IPV6:]serverName:port }" " [IPV6:]serverName:port }"
@ -148,7 +151,7 @@ telnet_Define($$$)
# Make sure that fhem only runs once # Make sure that fhem only runs once
if($isServer) { if($isServer) {
my $ret = TcpServer_Open($hash, $port, $global); my $ret = TcpServer_Open($hash, $pport, $global);
if($ret && !$init_done) { if($ret && !$init_done) {
Log3 $name, 1, "$ret. Exiting."; Log3 $name, 1, "$ret. Exiting.";
exit(1); exit(1);