From fe7a48170ae166dccb2aa06cca4006c926cff1c4 Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Fri, 19 Mar 2021 10:48:28 -0700
Subject: [PATCH] Use a larger buffer size for receiving RPCs
 https://www.virtualmin.com/node/54835

---
 fastrpc.cgi | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/fastrpc.cgi b/fastrpc.cgi
index d2ac1437e..cf6fd8093 100755
--- a/fastrpc.cgi
+++ b/fastrpc.cgi
@@ -151,7 +151,7 @@ while(1) {
 			if (open(FILE, ">$file")) {
 				binmode(FILE);
 				print STDERR "fastrpc: tcpwrite $file writing\n" if ($gconfig{'rpcdebug'});
-				while(read(TRANS, $buf, 1024) > 0) {
+				while(read(TRANS, $buf, 32768) > 0) {
 					local $ok = (print FILE $buf);
 					if (!$ok) {
 						$err = "Write to $file failed : $!";
@@ -180,7 +180,7 @@ while(1) {
 		local ($data, $got);
 		open(FILE, "<$arg->{'file'}");
 		binmode(FILE);
-		while(read(FILE, $got, 1024) > 0) {
+		while(read(FILE, $got, 32768) > 0) {
 			$data .= $got;
 			}
 		close(FILE);