diff --git a/fhem/FHEM/98_telnet.pm b/fhem/FHEM/98_telnet.pm index f53b83ec2..4d2826bc1 100644 --- a/fhem/FHEM/98_telnet.pm +++ b/fhem/FHEM/98_telnet.pm @@ -162,7 +162,11 @@ telnet_Read($) if($gotCmd && $hash->{prompt} && !$hash->{rcvdQuit}); if($ret) { $ret =~ s/\n/\r\n/g if($pw); # only for DOS telnet - syswrite($hash->{CD}, $ret); + for(;;) { + my $l = syswrite($hash->{CD}, $ret); + last if(!$l || $l == length($ret)); + $ret = substr($ret, $l); + } } CommandDelete(undef, $name) if($hash->{rcvdQuit}); }