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

Move buffer size into a global

Browse Source
This commit is contained in:
Jamie Cameron
2021-03-26 13:17:47 -07:00
parent 5110269a57
commit 17724f2b9b
3 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
fastrpc.cgi
View File

@@ -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, 32768) > 0) {
while(read(TRANS, $buf, $default_bufsize) > 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, 32768) > 0) {
while(read(FILE, $got, $default_bufsize) > 0) {
$data .= $got;
}
close(FILE);

8
web-lib-funcs.pl
View File

@@ -28,7 +28,7 @@ use vars qw($module_index_name $number_to_month_map $month_to_number_map
$umask_already $default_charset $licence_status $os_type
$licence_message $script_name $loaded_theme_oo_library
$done_web_lib_funcs $os_version $module_index_link
$called_from_webmin_core $ipv6_module_error);
$called_from_webmin_core $ipv6_module_error $default_bufsize);
=head2 read_file(file, &hash, [&order], [lowercase], [split-char])
@@ -635,7 +635,7 @@ my ($in, $out) = @_;
$in = &callers_package($in);
$out = &callers_package($out);
my $buf;
while(read($in, $buf, 32768) > 0) {
while(read($in, $buf, $default_bufsize) > 0) {
(print $out $buf) || return 0;
}
return 1;
@@ -7125,7 +7125,7 @@ return &$main::remote_error_handler("Failed to transfer file : $error")
if ($error);
open(FILE, "<".$localfile) ||
return &$main::remote_error_handler("Failed to open $localfile : $!");
while(read(FILE, $got, 32768) > 0) {
while(read(FILE, $got, $default_bufsize) > 0) {
print TWRITE $got;
}
close(FILE);
@@ -7163,7 +7163,7 @@ return &$main::remote_error_handler("Failed to transfer file : $error")
my $got;
open(FILE, ">$localfile") ||
return &$main::remote_error_handler("Failed to open $localfile : $!");
while(read(TREAD, $got, 32768) > 0) {
while(read(TREAD, $got, $default_bufsize) > 0) {
print FILE $got;
}
close(FILE);

1
web-lib.pl
View File

@@ -9,6 +9,7 @@ $main::default_debug_log_size = 10*1024*1024;
$webmin_feedback_address = "feedback\@webmin.com";
$default_lang = "en";
$default_charset = "UTF-8";
$default_bufsize = 32768;
=head2 unique(string, ...)