From 30759f38c04fce36e90ceeef255d5bf137571ea8 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Tue, 10 Jul 2012 06:57:44 +0000
Subject: [PATCH] put loop around syswrite to satisfy large SSL transfers

git-svn-id: https://svn.fhem.de/fhem/trunk@1715 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_telnet.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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