VladPolskiy/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2025-07-20 16:48:46 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add support for disk I/O in FreeBSD

Browse Source
This commit is contained in:
Ilia Ross
2024-08-07 15:28:58 +03:00
parent f5b3f9cc1d
commit 6bc70a7738
1 changed files with 14 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
proc/freebsd-lib.pl
View File

@ -173,7 +173,20 @@ return ( ) if ($?);
my @lines = split(/\r?\n/, $out);
my @w = split(/\s+/, $lines[$#lines]);
shift(@w) if ($w[0] eq '');
return ( $w[-3], $w[-2], $w[-1], 0, 0, undef, undef );
my ($bi, $bo) = (0, 0);
my $out2 = &backquote_command("iostat -Ix -d -t da 0.25 2 2>/dev/null");
if (!$?) {
foreach my $l (split(/\r?\n/, $out2)) {
# Getting the 4th and 5th columns of the last line for direct access device
# device r/i w/i kr/i kw/i qlen tsvc_t/i sb/i
# ada0 3457.0 134574.0 61068.0 8443152.0 0 36.3 19.2
if ($l =~ /^.*?da\d+\s+\S+\s+\S+\s+(\S+)\s+(\S+)\s+\d/) {
$bi = int($1) * 4; # kr/i per period, i.e. 0.25 seconds
$bo = int($2) * 4; # kw/i per period, i.e. 0.25 seconds
}
}
}
return ( $w[-3], $w[-2], $w[-1], 0, 0, $bi, $bo );
}
1;