Server IP : 195.201.23.43 / Your IP : 13.59.203.127 Web Server : Apache System : Linux webserver2.vercom.be 5.4.0-192-generic #212-Ubuntu SMP Fri Jul 5 09:47:39 UTC 2024 x86_64 User : kdecoratie ( 1041) PHP Version : 7.1.33-63+ubuntu20.04.1+deb.sury.org+1 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/virtual-server/ |
Upload File : |
#!/usr/bin/perl =head1 fix-domain-permissions.pl Set correct permissions on a domain's home directory. This command ensures that the ownership and permissions on one or more virtual server's home directories are correct. It can be run either with the C<--all-domains> flag to update all virtual servers, or C<--domain> followed by a single domain name. To include sub-servers of selected domains, you can also add the C<--subservers> flag. =cut package virtual_server; if (!$module_name) { $main::no_acl_check++; $ENV{'WEBMIN_CONFIG'} ||= "/etc/webmin"; $ENV{'WEBMIN_VAR'} ||= "/var/webmin"; if ($0 =~ /^(.*)\/[^\/]+$/) { chdir($pwd = $1); } else { chop($pwd = `pwd`); } $0 = "$pwd/fix-domain-permissions.pl"; require './virtual-server-lib.pl'; $< == 0 || die "fix-domain-permissions.pl must be run as root"; } @OLDARGV = @ARGV; &set_all_text_print(); # Parse command-line args while(@ARGV > 0) { local $a = shift(@ARGV); if ($a eq "--domain") { push(@dnames, shift(@ARGV)); } elsif ($a eq "--all-domains") { $all_doms = 1; } elsif ($a eq "--multiline") { $multiline = 1; } elsif ($a eq "--subservers") { $subservers = 1; } elsif ($a eq "--help") { &usage(); } else { &usage("Unknown parameter $a"); } } @dnames || $all_doms || usage("No domains to fix specified"); # Get the domains if ($all_doms) { @doms = grep { $_->{'dir'} } &list_domains(); } else { foreach $n (@dnames) { $d = &get_domain_by("dom", $n); $d || &usage("Domain $n does not exist"); push(@doms, $d); if ($subservers && !$d->{'parent'}) { push(@doms, &get_domain_by("parent", $d->{'id'})); } } } # Lock them all foreach $d (@doms) { &obtain_lock_unix($d); } # Do it for all domains foreach $d (@doms) { &$first_print("Fixing permissions for server $d->{'dom'} .."); if (!$d->{'dir'}) { &$second_print(".. does not have a home directory"); } else { $err = &set_home_ownership($d); if ($err) { &$second_print(".. failed : $err"); } else { &$second_print(".. done"); } } } # Un-lock them all foreach $d (reverse(@doms)) { &release_lock_unix($d); } &run_post_actions(); &virtualmin_api_log(\@OLDARGV); sub usage { print "$_[0]\n\n" if ($_[0]); print "Set correct permissions on a domain's home directory.\n"; print "\n"; print "virtualmin fix-domain-permissions --domain name | --all-domains\n"; print " [--subservers]\n"; exit(1); }Private