michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-03-20 16:50:24 +00:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Better RPC error detection

Browse Source
This commit is contained in:
Jamie Cameron
2010-12-24 22:37:25 -08:00
parent b6029c7a10
commit a0d7c3f4a8
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
web-lib-funcs.pl
View File

@@ -6215,10 +6215,16 @@ if ($serv->{'fast'} || !$sn) {
my $tostr = &serialise_variable($_[1]);
print $fh length($tostr)," $fh\n";
print $fh $tostr;
my $rlen = int(<$fh>);
my $rstr = <$fh>;
if ($rstr eq '') {
return &$main::remote_error_handler(
"Error reading response length from fastrpc.cgi : $!")
}
my $rlen = int($rstr);
my ($fromstr, $got);
while(length($fromstr) < $rlen) {
return &$main::remote_error_handler("Failed to read from fastrpc.cgi")
return &$main::remote_error_handler(
"Failed to read from fastrpc.cgi : $!")
if (read($fh, $got, $rlen - length($fromstr)) <= 0);
$fromstr .= $got;
}