File manager - Edit - /usr/local/usermin-1.860/quota/system_info.pl
Back
use strict; use warnings; require 'quota-lib.pl'; our (%text, %config, $remote_user, %filesys); # list_system_info() # Return some basic info about the system sub list_system_info { my $n = "a::user_filesystems($remote_user); if ($n > 0) { my @chart; my $chart = { 'type' => 'chart', 'desc' => $text{'right_header'}, 'chart' => \@chart }; for(my $i=0; $i<$n; $i++) { my $quota = $filesys{$i,'hblocks'} || $filesys{$i,'sblocks'}; next if (!$quota); my $usage = $filesys{$i,'ublocks'}; my $bsize = $config{'block_size'}; push(@chart, { 'desc' => $filesys{$i,'filesys'}, 'chart' => [ $quota, $usage ], 'value' => &text('right_out', &nice_size($usage*$bsize), &nice_size($quota*$bsize)), }); } return @chart ? ( $chart ) : ( ); } return ( ); } 1;
| ver. 1.4 |
Github
|
.
| PHP 7.4.33 | Generation time: 0.71 |
proxy
|
phpinfo
|
Settings