+ $body_l = mb_strlen($body, "ASCII");
+ $ret = @fwrite($sock, $body);
+ if ($ret < $body_l) {
+ printf("TROUBLE WITH FWRITE: %d\n", $ret);
+ $user->rd_cache_set(mb_substr($body, $ret, $body_l - $ret, "ASCII"));
+ }
+ else {
+ $user->rd_cache_set("");
+ }