mirror of
https://github.com/webmin/webmin.git
synced 2025-08-16 14:51:18 +00:00
92 lines
3.3 KiB
Perl
92 lines
3.3 KiB
Perl
do 'mount-lib.pl';
|
|
|
|
sub list_system_info
|
|
{
|
|
# Can we get list of disk with space?
|
|
my $can = &foreign_available($module_name) && $access{'sysinfo'};
|
|
if ((length($config{'sysinfo'}) && !$config{'sysinfo'}) || !$can) {
|
|
return ();
|
|
}
|
|
my (undef, undef, $disks, undef) = &local_disk_space();
|
|
if (!@$disks) {
|
|
return ();
|
|
}
|
|
|
|
my $desc = ucwords($text{'edit_usage'});
|
|
my $html;
|
|
my $open = 0;
|
|
&load_theme_library();
|
|
$html = &ui_columns_start([
|
|
ucwords($text{'index_dir'}), ucwords($text{'index_type'}),
|
|
ucwords($text{'edit_free'}), ucwords($text{'index_used'}),
|
|
ucwords($text{'sysinfo_total'}), ucwords($text{'sysinfo_dev'}),
|
|
]);
|
|
foreach my $disk (@$disks) {
|
|
my $total = $disk->{'total'};
|
|
my $itotal = $disk->{'itotal'};
|
|
next if (!$total);
|
|
my $dev_id = $disk->{'device'};
|
|
my $dir = $disk->{'dir'};
|
|
my $type = $disk->{'type'};
|
|
my $total_nice = &nice_size($total);
|
|
my $free = $disk->{'free'};
|
|
my $ifree = $disk->{'ifree'};
|
|
my $used_nice = &nice_size($disk->{'used'} // $total - $free);
|
|
my $free_nice = &nice_size($free);
|
|
my $free_percent = 100 - ($disk->{'used_percent'} // int(($total - $free) / $total * 100));
|
|
my $free_percent_html;
|
|
|
|
# Inodes percent
|
|
my $ifree_percent_html;
|
|
my $itotal_full;
|
|
my $iused;
|
|
my $ifree_percent;
|
|
$ifree_percent = 100 - int(($itotal - $ifree) / $itotal * 100)
|
|
if ($itotal);
|
|
|
|
# Calc percents
|
|
if ($free_percent > 49) {
|
|
$free_percent_html = &ui_text_color("$free_percent%", 'success');
|
|
$ifree_percent_html = &ui_text_color("$ifree_percent%", 'success')
|
|
if ($itotal);
|
|
}
|
|
elsif ($free_percent > 9) {
|
|
$free_percent_html = &ui_text_color("$free_percent%", 'warn');
|
|
$ifree_percent_html = &ui_text_color("$ifree_percent%", 'warn')
|
|
if ($itotal);
|
|
}
|
|
else {
|
|
$open = 1;
|
|
$free_percent_html = &ui_text_color("$free_percent%", 'danger');
|
|
$ifree_percent_html = &ui_text_color("$ifree_percent%", 'danger')
|
|
if ($itotal);
|
|
}
|
|
|
|
# Inodes total
|
|
if ($itotal) {
|
|
$ifree_percent_html = "<span><br>".$ifree_percent_html." ($ifree inodes)</span>";
|
|
$itotal_full = "<span><br>$itotal inodes</span>";
|
|
$iused = "<span><br>@{[$disk->{'iused'} // $disk->{'itotal'} - $disk->{'ifree'}]} inodes</span>";
|
|
}
|
|
$html .= &ui_columns_row([
|
|
$dir, $type,
|
|
$free_percent_html." ($free_nice)$ifree_percent_html",
|
|
$used_nice.$iused,
|
|
$total_nice.$itotal_full,
|
|
$dev_id]);
|
|
}
|
|
$html .= &ui_columns_end();
|
|
return ({ 'type' => 'html',
|
|
'desc' => $desc,
|
|
'open' => $open,
|
|
'id' => $module_name . '_disks_info',
|
|
'html' => $html
|
|
});
|
|
}
|
|
|
|
sub ucwords
|
|
{
|
|
$_[0] =~ s/(\w+)/\u$1/g;
|
|
return $_[0];
|
|
}
|