Gecko [ www.thearyasamaj.org ]

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

Code Editor : mount-lib.pl

# mount-lib.pl
# Functions for handling the /etc/[v]fstab file. Some functions are defined in
# here, and some in OS-specific files named <os_type>-lib.pl

BEGIN { push(@INC, ".."); };
use WebminCore;
&init_config();
%access = &get_module_acl();
$filesystem_users_file = "$module_config_directory/filesystem-users";
@access_fs = split(/\s+/, $access{'fs'});

# get_mount(directory|'swap', device)
# Returns the index of this mount, or -1 if not known
sub get_mount
{
local(@mlist, $p, $d, $i);
@mlist = &list_mounts();
for($i=0; $i<@mlist; $i++) {
	$p = $mlist[$i];
	if ($_[0] eq "*" && $p->[1] eq $_[1]) {
		# found by match on device
		return $i;
		}
	elsif ($_[1] eq "*" && $p->[0] eq $_[0]) {
		# found by match on directory
		return $i;
		}
	elsif ($p->[0] eq $_[0] && $p->[1] eq $_[1]) {
		# found by match on both
		return $i;
		}
	}
return -1;
}

# get_mounted(directory|'swap', device)
# Returns the index of this current mount, or -1 if not known
sub get_mounted
{
local(@mlist, $p, $d, $i);
@mlist = &list_mounted();
for($i=0; $i<@mlist; $i++) {
	$p = $mlist[$i];
	if ($_[0] eq "*" && $p->[1] eq $_[1]) {
		# found by match on device
		return $i;
		}
	elsif ($_[1] eq "*" && $p->[0] eq $_[0]) {
		# found by match on directory
		return $i;
		}
	elsif ($p->[0] eq $_[0] && $p->[1] eq $_[1]) {
		# found by match on both
		return $i;
		}
	}
return -1;
}

# parse_options(type, options)
# Convert an options string for some filesystem into the associative
# array %options
sub parse_options
{
local($_);
undef(%options);
if ($_[1] ne "-") {
	foreach (split(/,/, $_[1])) {
		if (/^([^=]+)=(.*)$/) { $options{$1} = $2; }
		else { $options{$_} = ""; }
		}
	}
return \%options;
}

# join_options(type, [&hash])
# Returns a string constructed from the %options hash
sub join_options
{
local $h = $_[1] || \%options;
local (@rv, $k);
foreach $k (keys %$h) {
	push(@rv, $h->{$k} eq "" ? $k : $k."=".$h->{$k});
	}
return @rv ? join(",", @rv) : "-";
}

# swap_form(path)
# This function should be called by os-specific code to display a form
# asking for the size of a swap file to create. The form will be submitted
# to a creation program, and then redirected back to the original mount cgi
sub swap_form
{
local ($file) = @_;
&ui_print_header(undef, "Create Swap File", "");
print &ui_form_start("create_swap.cgi");
foreach my $k (keys %in) {
	print &ui_hidden($k, $in{$k});
	}
print &ui_hidden("cswap_file", $file);
print &text('cswap_file', "<tt>$file</tt>"),"<p>\n";
print $text{'cswap_size'},"\n";
print &ui_textbox("cswap_size", undef, 6)," ",
      &ui_select("cswap_units", "m",
		 [ [ "m", "MB" ], [ "g", "GB" ], [ "t", "TB" ] ])."\n";
print &ui_form_end([ [ undef, $text{'create'} ] ]);
&ui_print_footer("", $text{'index_return'});
exit;
}

# nfs_server_chooser_button(input, [form])
sub nfs_server_chooser_button
{
local($form);
$form = @_ > 1 ? $_[1] : 0;
if ($access{'browse'}) {
	return "<input type=button onClick='ifield = document.forms[$form].$_[0]; nfs_server = window.open(\"../$module_name/nfs_server.cgi\", \"nfs_server\", \"toolbar=no,menubar=no,scrollbars=yes,width=400,height=300\"); nfs_server.ifield = ifield; window.ifield = ifield' value=\"...\">\n";
	}
return undef;
}

# nfs_export_chooser_button(serverinput, exportinput, [form])
sub nfs_export_chooser_button
{
local($form);
$form = @_ > 2 ? $_[2] : 0;
if ($access{'browse'}) {
	return "<input type=button onClick='if (document.forms[$form].$_[0].value != \"\") { ifield = document.forms[$form].$_[1]; nfs_export = window.open(\"../$module_name/nfs_export.cgi?server=\"+document.forms[$form].$_[0].value, \"nfs_export\", \"toolbar=no,menubar=no,scrollbars=yes,width=500,height=200\"); nfs_export.ifield = ifield; window.ifield = ifield }' value=\"...\">\n";
	}
return undef;
}

# smb_server_chooser_button(serverinput, [form])
sub smb_server_chooser_button
{
local($form);
$form = @_ > 1 ? $_[1] : 0;
if (&has_command($config{'smbclient_path'}) && $access{'browse'}) {
	return "<input type=button onClick='ifield = document.forms[$form].$_[0]; smb_server = window.open(\"../$module_name/smb_server.cgi\", \"smb_server\", \"toolbar=no,menubar=no,scrollbars=yes,width=400,height=300\"); smb_server.ifield = ifield; window.ifield = ifield' value=\"...\">\n";
	}
return undef;
}

# smb_share_chooser_button(serverinput, shareinput, [form])
sub smb_share_chooser_button
{
local($form);
$form = @_ > 2 ? $_[2] : 0;
if (&has_command($config{'smbclient_path'}) && $access{'browse'}) {
	return "<input type=button onClick='if (document.forms[$form].$_[0].value != \"\") { ifield = document.forms[$form].$_[1]; smb_share = window.open(\"../$module_name/smb_share.cgi?server=\"+document.forms[$form].$_[0].value, \"smb_share\", \"toolbar=no,menubar=no,scrollbars=yes,width=400,height=300\"); smb_share.ifield = ifield; window.ifield = ifield }' value=\"...\">\n";
	}
return undef;
}

# Include the correct OS-specific functions file
if ($gconfig{'os_type'} =~ /^\S+\-linux$/) {
	do "linux-lib.pl";
	}
else {
	do "$gconfig{'os_type'}-lib.pl";
	}

# can_edit_fs(dir, device, type, options, [is-new])
# Returns 1 if a filesystem can be edited, 0 otherwise
sub can_edit_fs
{
local $ok = 1;
if (@access_fs) {
	local $d;
	foreach $d (@access_fs) {
		$ok = 0 if (!&is_under_directory($d, $_[0]));
		}
	}
$ok = 0 if (!&can_fstype($_[2]));
if ($access{'user'} && !$_[4]) {
	local $users = &get_filesystem_users();
	$ok = 0 if ($users->{$_[0]} ne $remote_user);
	}
return $ok;
}

# can_fstype(type)
sub can_fstype
{
return 1 if (!$access{'types'});
local @types = split(/\s+/, $access{'types'});
return &indexof($_[0], @types) >= 0;
}

# compile_program(name, default-arch)
# Ensures that some C program is compiled and copied to /etc/webmin . Uses the
# supplied native versions if possible
sub compile_program
{
return if (-r "$module_config_directory/$_[0]" &&
   &execute_command("$module_config_directory/$_[0]", undef, undef, undef, 0, 1) == 0);
local $arch = &backquote_command("uname -m");
$arch =~ s/\r|\n//g;
local $re = $_[1];
if ($re && $arch =~ /^$re$/i && -r "$module_root_directory/$_[0]" &&
    &execute_command("$module_root_directory/$_[0]", undef, undef, undef, 0, 1) == 0) {
	# Compiled program for this architecture already exists and is working,
	# so can just copy
	&execute_command("cp $module_root_directory/$_[0] $module_config_directory/$_[0]");
	}
else {
	# Need to compile
	local ($cc) = (&has_command("gcc") || &has_command("cc") ||
		       &has_command("gcc-4.0") || &has_command("gcc-3.3"));
	$cc || &error($text{'egcc'});
	local $out = &backquote_logged("$cc -o $module_config_directory/$_[0] $module_root_directory/$_[0].c 2>&1");
	if ($?) {
		&error(&text('ecompile', "<pre>$out</pre>"));
		}
	}
&set_ownership_permissions(undef, undef, 0755,"$module_config_directory/$_[0]");
}

# get_filesystem_users()
# Returns a mapping between filesystems and their owners
sub get_filesystem_users
{
local %users;
&read_file($filesystem_users_file, \%users);
return \%users;
}

# save_filesystem_users(&usermap)
# Saves the filesystem owner mapping
sub save_filesystem_users
{
&write_file($filesystem_users_file, $_[0]);
}

# can_delete_directory(mount-point)
# Returns 1 if some directory should be deleted when un-mounting
sub can_delete_directory
{
local @dirs = split(/\s+/, $config{'delete_under'});
return 0 if (!@dirs);
return 0 if ($_[0] eq "swap");
local $d;
foreach $d (@dirs) {
	return 1 if (&is_under_directory($d, $_[0]));
	}
return 0;
}

# delete_unmounted(dir, device)
# If some directory is no longer in the permanent mount list, delete it if it
# is under the list of dirs to auto-delete
sub delete_unmounted
{
if (&can_delete_directory($_[0]) &&
    &get_mount($_[0], $_[1]) < 0) {
	&system_logged("rmdir ".quotemeta($_[0]));
	}
}

# remount_dir(directory, device, type, options)
# Adjusts the options for some mounted filesystem
sub remount_dir
{
if (defined(&os_remount_dir)) {
	return &os_remount_dir(@_);
	}
else {
	local $err = &unmount_dir(@_);
	return $err if ($err);
	return &mount_dir(@_);
	}
}

# filesystem_for_dir(dir)
# Give a directory, returns the details filesystem it is on (dir, device,
# type, options)
sub filesystem_for_dir
{
local @stdir = stat($_[0]);
foreach my $m (&list_mounted()) {
	local @stm = stat($m->[0]);
	if ($stm[0] == $stdir[0]) {
		# Save device number!
		return @$m;
		}
	}
return ( );
}

# local_disk_space([&always-count])
# Returns the total local and free disk space on the system, plus a list of
# per-filesystem total and free
sub local_disk_space
{
my ($always) = @_;
my ($total, $free) = (0, 0);
my @fs;
my @mounted = &mount::list_mounted();
my %donezone;
my %donevzfs;
my %donedevice;
my %donedevno;

# Get list of zone pools
my %zpools = ( 'zones' => 1, 'zroot' => 1 );
if (&has_command("zpool")) {
	foreach my $flag ("-P", "-p") {
		my @out = &backquote_command("zpool list $flag 2>/dev/null");
		foreach my $l (@out) {
			if (/^(\S+)\s+(\d+)\s+(\d+)\s+(\d+)/) {
				$zpools{$1} = [ $2 / 1024, $4 / 1024 ];
				}
			}
		}
	}

# Add up all local filesystems
foreach my $m (@mounted) {
	if ($m->[2] =~ /^ext/ ||
	    $m->[2] eq "reiserfs" || $m->[2] eq "ufs" || $m->[2] eq "f2fs" ||
	    $m->[2] eq "zfs" || $m->[2] eq "simfs" || $m->[2] eq "vzfs" ||
	    $m->[2] eq "xfs" || $m->[2] eq "jfs" || $m->[2] eq "btrfs" ||
	    $m->[1] =~ /^\/dev\// ||
	    &indexof($m->[1], @$always) >= 0) {
		my $zp;
		if ($m->[1] =~ /^([^\/]+)(\/(\S+))?/ &&
                    $m->[2] eq "zfs" && $zpools{$1}) {
			# Don't double-count maps from the same zone pool
			next if ($donezone{$1}++);
			$zp = $zpools{$1};
			}
		if ($donedevice{$m->[0]}++ ||
		    $donedevice{$m->[1]}++) {
			# Don't double-count mounts from the same device, or
			# on the same directory.
			next;
			}
		my @st = stat($m->[0]);
		if (@st && $donedevno{$st[0]}++) {
			# Don't double-count same filesystem by device number
			next;
			}
		if ($m->[1] eq "/dev/fuse") {
			# Skip fuse user-space filesystem mounts
			next;
			}
		if ($m->[2] eq "swap") {
			# Skip virtual memory
			next;
			}
		if ($m->[2] eq "squashfs") {
			# Skip /snap mounts
			next;
			}
		if ($m->[1] =~ /^\/dev\/sr/) {
			# Skip CDs
			next;
			}
		# Get the size - for ZFS mounts, this comes from the underlying
		# total pool size and free
		my ($t, $f);
		if ($zp) {
			($t, $f) = @$zp;
			}
		else {
			($t, $f) = &disk_space($m->[2], $m->[0]);
			}
		if (($m->[2] eq "simfs" || $m->[2] eq "vzfs" ||
		     $m->[0] eq "/dev/vzfs" ||
		     $m->[0] eq "/dev/simfs") &&
		    $donevzfs{$t,$f}++) {
			# Don't double-count VPS filesystems
			next;
			}
		$total += $t*1024;
		$free += $f*1024;
		my ($it, $if);
		if (defined(&inode_space)) {
			($it, $if) = &inode_space($m->[2], $m->[0]);
			}
		push(@fs, { 'total' => $t*1024,
			    'free' => $f*1024,
			    'itotal' => $it,
			    'ifree' => $if,
			    'dir' => $m->[0],
			    'device' => $m->[1],
			    'type' => $m->[2] });
		}
	}
return ($total, $free, \@fs);
}

${this.title}

Code Editor : mount-lib.pl