| Server IP : 49.231.201.246 / Your IP : 216.73.216.149 Web Server : Apache/2.4.18 (Ubuntu) System : User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : exec,passthru,mail,shell_exec,system,proc_open,popen,ini_alter,dl,proc_close,curl_exec,curl_multi_exec,readfile,parse_ini_file,escapeshellarg,escapeshellcmd,show_source,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,pcntl_unshare,mail,php_uname,phpinfo MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/apache/ |
Upload File : |
#!/usr/bin/perl
# save_vserv.cgi
# Save virtual server options such as the port and address
require './apache-lib.pl';
&ReadParse();
$access{'vaddr'} || &error($text{'vserv_ecannot'});
$conf = &get_config();
($vmembers, $vconf) = &get_virtual_config($in{'virt'});
&can_edit_virt($vconf) || &error($text{'virt_ecannot'});
if ($in{'delete'}) {
# Delete a virtual server
%vnames = map { $_, 1 } &virt_acl_name($vconf);
&lock_file($vconf->{'file'});
&before_changing();
&save_directive_struct($vconf, undef, $conf, $conf);
&delete_file_if_empty($vconf->{'file'});
&flush_file_lines();
&unlock_file($vconf->{'file'});
&update_last_config_change();
&after_changing();
# Remove from acls
&read_acl(undef, \%wusers);
foreach $u (keys %wusers) {
%uaccess = &get_module_acl($u);
if ($uaccess{'virts'} ne '*') {
$uaccess{'virts'} = join(' ', grep { !$vnames{$_} }
split(/\s+/, $uaccess{'virts'}));
&save_module_acl(\%uaccess, $u);
}
}
&webmin_log("virt", "delete", &virtual_name($vconf, 1));
&redirect("");
}
else {
# Update virtual server and directives
&error_setup($text{'vserv_err'});
# Check address
if (defined($in{'addrs'})) {
# Multiple addresses
local @addrs = split(/\s+/, $in{'addrs'});
@addrs || &error($text{'vserv_eaddrs'});
foreach $a (@addrs) {
local $ac = $a;
$ac =~ s/:(\d+)$//;
$ac eq '*' || $ac eq '_default_' ||
&to_ipaddress($ac) ||
$ac =~ /^\[(\S+)\]$/ && &to_ip6address("$1") ||
&error(&text('vserv_eaddr2', $ac));
}
$addr = join(" ", @addrs);
}
else {
# One address
if ($in{'addr_def'} == 1) {
if ($httpd_modules{'core'} >= 1.2)
{ $addr = "_default_"; }
else { $addr = "*"; }
}
elsif ($in{'addr_def'} == 2) {
$addr = "*";
}
elsif ($in{'addr'} !~ /\S/) {
&error($text{'vserv_eaddr1'});
}
elsif (!&to_ipaddress($in{'addr'}) &&
!&to_ip6address($in{'addr'})) {
&error(&text('vserv_eaddr2', $in{'addr'}));
}
elsif (&check_ip6address($in{'addr'})) {
# IPv6 address
$addr = "[$in{'addr'}]";
}
else {
# IPv4 address or hostname
$addr = $in{'addr'};
}
}
# Check port
if ($in{'port_mode'} == 0) { $port = ""; }
elsif ($in{'port_mode'} == 1) { $port = ":*"; }
elsif ($in{'port'} !~ /^\d+$/) {
&error(&text('vserv_eport', $in{'port'}));
}
else { $port = ":$in{'port'}"; }
# Check document root
if (!$in{'root_def'}) {
(-d $in{'root'}) ||
&error(&text('vserv_eroot', $in{'root'}));
$root = $in{'root'};
$root = "\"$root\"" if ($root =~ /\s/);
}
# Check server name
if (!$in{'name_def'}) {
$in{'name'} =~ /^[a-z0-9\.\_\-]+$/i ||
&error(&text('vserv_ename', $in{'name'}));
$name = $in{'name'};
}
# Update <VirtualHost> directive
&lock_file($vconf->{'file'});
&before_changing();
$vconf->{'value'} = "$addr$port";
&save_directive_struct($vconf, $vconf, $conf, $conf, 1);
# Update DocumentRoot and ServerName
&save_directive("DocumentRoot", $root ? [ $root ] : [ ],
$vconf->{'members'}, $conf);
&save_directive("ServerName", $name ? [ $name ] : [ ],
$vconf->{'members'}, $conf);
# Update any <Directory> blocks under the old path
if ($in{'root'} ne $in{'old_root'}) {
@dirs = &find_directive_struct("Directory", $vmembers);
foreach $dir (@dirs) {
if ($dir->{'words'}->[0] eq $in{'old_root'}) {
# Same dir
$dir->{'value'} = $in{'root'};
}
elsif ($dir->{'words'}->[0] =~ /^\Q$in{'old_root'}\E(\/.*)$/) {
# Under the dir
$dir->{'value'} = $in{'root'}.$1;
}
else {
next;
}
&save_directive_struct($dir, $dir, $vconf, $vconf, 1);
}
}
# Write out file
&flush_file_lines();
&after_changing();
&unlock_file($vconf->{'file'});
&format_config_file($vconf->{'file'});
&webmin_log("virt", "save", &virtual_name($vconf, 1), \%in);
&redirect("");
}