Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
help	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	1.73 KB	-rw-r--r--	2026-07-17 21:17
acl_security.pl	1.59 KB	-rwxr-xr-x	2026-07-17 21:17
backup_config.pl	686 B	-rwxr-xr-x	2026-07-17 21:17
cgi_args.pl	325 B	-rwxr-xr-x	2026-07-17 21:17
config-cobalt-linux	132 B	-rw-r--r--	2026-07-17 21:17
config-coherent-linux	186 B	-rw-r--r--	2026-07-17 21:17
config-corel-linux	160 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux	206 B	-rw-r--r--	2026-07-17 21:17
config-freebsd	172 B	-rw-r--r--	2026-07-17 21:17
config-generic-linux	133 B	-rw-r--r--	2026-07-17 21:17
config-gentoo-linux	169 B	-rw-r--r--	2026-07-17 21:17
config-hpux	172 B	-rw-r--r--	2026-07-17 21:17
config-lfs-linux	154 B	-rw-r--r--	2026-07-17 21:17
config-macos	150 B	-rw-r--r--	2026-07-17 21:17
config-mandrake-linux	186 B	-rw-r--r--	2026-07-17 21:17
config-msc-linux	186 B	-rw-r--r--	2026-07-17 21:17
config-netbsd	172 B	-rw-r--r--	2026-07-17 21:17
config-open-linux	158 B	-rw-r--r--	2026-07-17 21:17
config-open-linux-3.1e	177 B	-rw-r--r--	2026-07-17 21:17
config-openSUSE-Linux-15.0-ALL	162 B	-rw-r--r--	2026-07-17 21:17
config-openbsd	172 B	-rw-r--r--	2026-07-17 21:17
config-openmamba-linux	162 B	-rw-r--r--	2026-07-17 21:17
config-osf1	230 B	-rw-r--r--	2026-07-17 21:17
config-pardus-linux	133 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux	162 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-5.0-6.0	191 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-6.1-ALL	186 B	-rw-r--r--	2026-07-17 21:17
config-slackware-linux	133 B	-rw-r--r--	2026-07-17 21:17
config-sol-linux	292 B	-rw-r--r--	2026-07-17 21:17
config-solaris	205 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux	162 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	133 B	-rw-r--r--	2026-07-17 21:17
config-trustix-linux	186 B	-rw-r--r--	2026-07-17 21:17
config-turbo-linux	191 B	-rw-r--r--	2026-07-17 21:17
config-turbo-linux-4.0	191 B	-rw-r--r--	2026-07-17 21:17
config-united-linux	162 B	-rw-r--r--	2026-07-17 21:17
config.info	800 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	1 KB	-rw-r--r--	2026-07-17 21:17
config.info.cs	747 B	-rw-r--r--	2026-07-17 21:17
config.info.de	959 B	-rw-r--r--	2026-07-17 21:17
config.info.es	431 B	-rw-r--r--	2026-07-17 21:17
config.info.fa	1010 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	400 B	-rw-r--r--	2026-07-17 21:17
config.info.ja	760 B	-rw-r--r--	2026-07-17 21:17
config.info.ko	565 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	654 B	-rw-r--r--	2026-07-17 21:17
config.info.no	668 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	475 B	-rw-r--r--	2026-07-17 21:17
config.info.pt_BR	701 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	736 B	-rw-r--r--	2026-07-17 21:17
config.info.sv	369 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	579 B	-rw-r--r--	2026-07-17 21:17
config.info.uk	741 B	-rw-r--r--	2026-07-17 21:17
config.info.zh	347 B	-rw-r--r--	2026-07-17 21:17
config.info.zh_TW	403 B	-rw-r--r--	2026-07-17 21:17
create_swap.cgi	466 B	-rwxr-xr-x	2026-07-17 21:22
defaultacl	60 B	-rw-r--r--	2026-07-17 21:17
edit_mount.cgi	4.11 KB	-rwxr-xr-x	2026-07-17 21:22
freebsd-lib.pl	33.64 KB	-rwxr-xr-x	2026-07-17 21:17
hpux-lib.pl	36 KB	-rwxr-xr-x	2026-07-17 21:17
index.cgi	4.31 KB	-rwxr-xr-x	2026-07-17 21:22
linux-lib.pl	72.79 KB	-rwxr-xr-x	2026-07-17 21:17
log_parser.pl	626 B	-rwxr-xr-x	2026-07-17 21:17
macos-lib.pl	5 KB	-rwxr-xr-x	2026-07-17 21:17
module.info	292 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	190 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	28 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	0 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	281 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	161 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	25 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	48 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	142 B	-rw-r--r--	2026-07-17 21:17
module.info.da	0 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	162 B	-rw-r--r--	2026-07-17 21:17
module.info.de	162 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	28 B	-rw-r--r--	2026-07-17 21:17
module.info.el	0 B	-rw-r--r--	2026-07-17 21:17
module.info.el.auto	322 B	-rw-r--r--	2026-07-17 21:17
module.info.es	43 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	151 B	-rw-r--r--	2026-07-17 21:17
module.info.eu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.eu.auto	169 B	-rw-r--r--	2026-07-17 21:17
module.info.fa	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fa.auto	203 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	191 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	37 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	161 B	-rw-r--r--	2026-07-17 21:17
module.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hr.auto	192 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	35 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	139 B	-rw-r--r--	2026-07-17 21:17
module.info.it	22 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	126 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	75 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	202 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	51 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	170 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	144 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	24 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	41 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	129 B	-rw-r--r--	2026-07-17 21:17
module.info.no	39 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	120 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	44 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	131 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	45 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	143 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	47 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	149 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	40 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	211 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	207 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	43 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	124 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	34 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	146 B	-rw-r--r--	2026-07-17 21:17
module.info.uk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.uk.auto	291 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	36 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	126 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	39 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	132 B	-rw-r--r--	2026-07-17 21:17
mount-lib.pl	11.17 KB	-rwxr-xr-x	2026-07-17 21:17
mount.cgi	465 B	-rwxr-xr-x	2026-07-17 21:22
netbsd-lib.pl	24.79 KB	-rwxr-xr-x	2026-07-17 21:17
netbsd-mounts-2.c	1.04 KB	-rw-r--r--	2026-07-17 21:17
netbsd-mounts-3.c	1.09 KB	-rw-r--r--	2026-07-17 21:17
netbsd-mounts.c	1.08 KB	-rw-r--r--	2026-07-17 21:17
nfs_export.cgi	1.13 KB	-rwxr-xr-x	2026-07-17 21:22
nfs_server.cgi	1.79 KB	-rwxr-xr-x	2026-07-17 21:22
openbsd-lib.pl	24.52 KB	-rwxr-xr-x	2026-07-17 21:17
osf1-lib.pl	11.41 KB	-rwxr-xr-x	2026-07-17 21:17
prefs.info	49 B	-rw-r--r--	2026-07-17 21:17
rbac-mapping	135 B	-rw-r--r--	2026-07-17 21:17
save_mount.cgi	13.23 KB	-rwxr-xr-x	2026-07-17 21:22
smb_server.cgi	1.94 KB	-rwxr-xr-x	2026-07-17 21:22
smb_share.cgi	1.33 KB	-rwxr-xr-x	2026-07-17 21:22
solaris-lib.pl	56.81 KB	-rwxr-xr-x	2026-07-17 21:17
system_info.pl	3.61 KB	-rw-r--r--	2026-07-17 21:17
unmount.cgi	503 B	-rwxr-xr-x	2026-07-17 21:22

Rename

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 = " ".$ifree_percent_html." ($ifree inodes)";
		$itotal_full = " $itotal inodes";
		$iused = " @{[$disk->{'iused'} // $disk->{'itotal'} - $disk->{'ifree'}]} inodes";
		}
	$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();
my @rv = ({ 'type' => 'html',
 'desc' => $desc,
 'open' => $open,
 'id' => $module_name . '_disks_info',
 'html' => $html
 });

# Check if the filesystem the Webmin temp dir is on is too small
if (!$gconfig{'tempdir'} && &foreign_available("webmin")) {
	my $tmp = &default_webmin_temp_dir();
	my $small = 10*1024*1024;	# 10 MB
	my $url = &get_webprefix()."/webmin/edit_advanced.cgi";
	foreach my $disk (sort { length($b->{'dir'}) <=>
				 length($a->{'dir'}) } @$disks) {
		if (&is_under_directory($disk->{'dir'}, $tmp)) {
			if ($disk->{'total'} && $disk->{'total'} <= $small) {
				# Too small
				push(@rv, { 'type' => 'warning',
					 'level' => 'info',
					 'warning' => &text(
						'sysinfo_smalltmp',
						"<tt>$tmp</tt>",
						"<tt>$disk->{'dir'}</tt>",
						&nice_size($small),
						&nice_size($disk->{'total'}),
						$url),
					 });
				}
			elsif ($disk->{'type'} eq 'tmpfs') {
				# Mounted from a RAM disk
				push(@rv, { 'type' => 'warning',
					 'level' => 'info',
					 'warning' => &text(
						'sysinfo_ramtmp',
						"<tt>$tmp</tt>",
						"<tt>$disk->{'dir'}</tt>",
						$url),
					 });
				}
			last;
			}
		}
	}

return @rv;
}

sub ucwords
{
    $_[0] =~ s/(\w+)/\u$1/g;
    return $_[0];
}