mirror of
https://github.com/webmin/webmin.git
synced 2026-02-09 08:42:20 +00:00
290 lines
8.1 KiB
Perl
290 lines
8.1 KiB
Perl
# 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
|
|
|
|
do '../web-lib.pl';
|
|
&init_config();
|
|
do '../ui-lib.pl';
|
|
%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
|
|
{
|
|
&ui_print_header(undef, "Create Swap File", "");
|
|
print "<form action=create_swap.cgi>\n";
|
|
foreach $k (keys %in) {
|
|
print "<input type=hidden name=\"$k\" value=\"$in{$k}\">\n";
|
|
}
|
|
print "<input type=hidden name=cswap_file value=\"$_[0]\">\n";
|
|
print "The swap file <tt>$_[0]</tt> does not exist.<p>\n";
|
|
print "Create and mount a swap file with size <input name=cswap_size size=6>\n";
|
|
print "<select name=cswap_units>\n";
|
|
print "<option value=k> kB\n";
|
|
print "<option value=m selected> MB\n";
|
|
print "<option value=g> GB\n";
|
|
print "</select>\n";
|
|
print "<input type=submit value=\"Create\"></form>\n";
|
|
&ui_print_footer("", "mount list");
|
|
exit;
|
|
}
|
|
|
|
# nfs_server_chooser_button(input, [form])
|
|
sub nfs_server_chooser_button
|
|
{
|
|
local($form);
|
|
$form = @_ > 1 ? $_[1] : 0;
|
|
if ($access{'browse'}) {
|
|
print "<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";
|
|
}
|
|
}
|
|
|
|
# nfs_export_chooser_button(serverinput, exportinput, [form])
|
|
sub nfs_export_chooser_button
|
|
{
|
|
local($form);
|
|
$form = @_ > 2 ? $_[2] : 0;
|
|
if ($access{'browse'}) {
|
|
print "<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";
|
|
}
|
|
}
|
|
|
|
# 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'}) {
|
|
print "<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";
|
|
}
|
|
}
|
|
|
|
# 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'}) {
|
|
print "<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";
|
|
}
|
|
}
|
|
|
|
# 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>"));
|
|
}
|
|
}
|
|
}
|
|
|
|
# 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 ( );
|
|
}
|
|
|
|
1;
|
|
|