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
acl_security.pl	1.87 KB	-rwxr-xr-x	2026-07-17 21:17
backup_config.pl	679 B	-rwxr-xr-x	2026-07-17 21:17
config	267 B	-rw-r--r--	2026-07-17 21:17
config-AlmaLinux-7.0-ALL	156 B	-rw-r--r--	2026-07-17 21:17
config-CentOS-Linux-7.0-ALL	156 B	-rw-r--r--	2026-07-17 21:17
config-CentOS-Stream-Linux-8.0-ALL	156 B	-rw-r--r--	2026-07-17 21:17
config-Oracle-Linux-8.0-ALL	156 B	-rw-r--r--	2026-07-17 21:17
config-Redhat-Enterprise-Linux-7.0-ALL	156 B	-rw-r--r--	2026-07-17 21:17
config-Rocky-Linux-7.0-ALL	156 B	-rw-r--r--	2026-07-17 21:17
config-Scientific-Linux-7.0-ALL	151 B	-rw-r--r--	2026-07-17 21:17
config-Ubuntu-Linux-16.04-ALL	224 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux	224 B	-rw-r--r--	2026-07-17 21:17
config-openSUSE-Linux-15.0-ALL	156 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux	156 B	-rw-r--r--	2026-07-17 21:17
config.info	405 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	459 B	-rw-r--r--	2026-07-17 21:17
defaultacl	64 B	-rw-r--r--	2026-07-17 21:17
delete_servers.cgi	4.01 KB	-rwxr-xr-x	2026-07-17 21:22
edit_docs.cgi	727 B	-rwxr-xr-x	2026-07-17 21:22
edit_fcgi.cgi	1.01 KB	-rwxr-xr-x	2026-07-17 21:22
edit_laccess.cgi	1.17 KB	-rwxr-xr-x	2026-07-17 21:22
edit_ldocs.cgi	1.08 KB	-rwxr-xr-x	2026-07-17 21:22
edit_lfcgi.cgi	1.26 KB	-rwxr-xr-x	2026-07-17 21:22
edit_lgzip.cgi	1.24 KB	-rwxr-xr-x	2026-07-17 21:22
edit_location.cgi	2.21 KB	-rwxr-xr-x	2026-07-17 21:22
edit_logs.cgi	734 B	-rwxr-xr-x	2026-07-17 21:22
edit_lproxy.cgi	1.43 KB	-rwxr-xr-x	2026-07-17 21:22
edit_lrewrite.cgi	1.08 KB	-rwxr-xr-x	2026-07-17 21:22
edit_lssi.cgi	1.21 KB	-rwxr-xr-x	2026-07-17 21:22
edit_manual.cgi	1.28 KB	-rwxr-xr-x	2026-07-17 21:22
edit_mime.cgi	2.56 KB	-rwxr-xr-x	2026-07-17 21:22
edit_misc.cgi	861 B	-rwxr-xr-x	2026-07-17 21:22
edit_net.cgi	921 B	-rwxr-xr-x	2026-07-17 21:22
edit_saccess.cgi	896 B	-rwxr-xr-x	2026-07-17 21:22
edit_sdocs.cgi	934 B	-rwxr-xr-x	2026-07-17 21:22
edit_server.cgi	5.86 KB	-rwxr-xr-x	2026-07-17 21:22
edit_sgzip.cgi	984 B	-rwxr-xr-x	2026-07-17 21:22
edit_slogs.cgi	919 B	-rwxr-xr-x	2026-07-17 21:22
edit_sproxy.cgi	1.09 KB	-rwxr-xr-x	2026-07-17 21:22
edit_srewrite.cgi	819 B	-rwxr-xr-x	2026-07-17 21:22
edit_ssi.cgi	753 B	-rwxr-xr-x	2026-07-17 21:22
edit_ssl.cgi	1.12 KB	-rwxr-xr-x	2026-07-17 21:22
edit_sssi.cgi	948 B	-rwxr-xr-x	2026-07-17 21:22
edit_user.cgi	1.8 KB	-rwxr-xr-x	2026-07-17 21:22
fetch-directives.pl	1.38 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	7.93 KB	-rwxr-xr-x	2026-07-17 21:22
list_users.cgi	1.46 KB	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	1.28 KB	-rwxr-xr-x	2026-07-17 21:17
module.info	114 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	34 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	34 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	27 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	29 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	24 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	24 B	-rw-r--r--	2026-07-17 21:17
module.info.el.auto	41 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	27 B	-rw-r--r--	2026-07-17 21:17
module.info.eu.auto	24 B	-rw-r--r--	2026-07-17 21:17
module.info.fa.auto	24 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	29 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	26 B	-rw-r--r--	2026-07-17 21:17
module.info.hr.auto	24 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	24 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	25 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	35 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	25 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	26 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	24 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	24 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	24 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	24 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	27 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	24 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	29 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	25 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	27 B	-rw-r--r--	2026-07-17 21:17
module.info.uk.auto	34 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	27 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	30 B	-rw-r--r--	2026-07-17 21:17
nginx-directives	14.82 KB	-rw-r--r--	2026-07-17 21:17
nginx-lib.pl	66.63 KB	-rw-r--r--	2026-07-17 21:17
restart.cgi	411 B	-rwxr-xr-x	2026-07-17 21:22
save_docs.cgi	611 B	-rwxr-xr-x	2026-07-17 21:22
save_fcgi.cgi	747 B	-rwxr-xr-x	2026-07-17 21:22
save_laccess.cgi	902 B	-rwxr-xr-x	2026-07-17 21:22
save_ldocs.cgi	895 B	-rwxr-xr-x	2026-07-17 21:22
save_lfcgi.cgi	1.01 KB	-rwxr-xr-x	2026-07-17 21:22
save_lgzip.cgi	1021 B	-rwxr-xr-x	2026-07-17 21:22
save_location.cgi	2.68 KB	-rwxr-xr-x	2026-07-17 21:22
save_logs.cgi	597 B	-rwxr-xr-x	2026-07-17 21:22
save_lproxy.cgi	1.29 KB	-rwxr-xr-x	2026-07-17 21:22
save_lrewrite.cgi	843 B	-rwxr-xr-x	2026-07-17 21:22
save_lssi.cgi	1018 B	-rwxr-xr-x	2026-07-17 21:22
save_manual.cgi	1.2 KB	-rwxr-xr-x	2026-07-17 21:22
save_mime.cgi	2.07 KB	-rwxr-xr-x	2026-07-17 21:22
save_misc.cgi	769 B	-rwxr-xr-x	2026-07-17 21:22
save_net.cgi	739 B	-rwxr-xr-x	2026-07-17 21:22
save_saccess.cgi	714 B	-rwxr-xr-x	2026-07-17 21:22
save_sdocs.cgi	962 B	-rwxr-xr-x	2026-07-17 21:22
save_server.cgi	4.58 KB	-rwxr-xr-x	2026-07-17 21:22
save_sgzip.cgi	818 B	-rwxr-xr-x	2026-07-17 21:22
save_slogs.cgi	758 B	-rwxr-xr-x	2026-07-17 21:22
save_sproxy.cgi	1.03 KB	-rwxr-xr-x	2026-07-17 21:22
save_srewrite.cgi	656 B	-rwxr-xr-x	2026-07-17 21:22
save_ssi.cgi	672 B	-rwxr-xr-x	2026-07-17 21:22
save_ssl.cgi	988 B	-rwxr-xr-x	2026-07-17 21:22
save_sssi.cgi	821 B	-rwxr-xr-x	2026-07-17 21:22
save_user.cgi	1.43 KB	-rwxr-xr-x	2026-07-17 21:22
start.cgi	348 B	-rwxr-xr-x	2026-07-17 21:22
status_monitor.pl	555 B	-rwxr-xr-x	2026-07-17 21:17
stop.cgi	343 B	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# Delete selected server blocks

use strict;
use warnings;
require './nginx-lib.pl';
our (%text, %in, %config, %access);
&ReadParse();
my @items = split(/\0/, $in{'d'} || "");
my $file_action = $in{'toggle'} ? "toggle" :
		  $in{'enable'} ? "enable" :
		  $in{'disable'} ? "disable" : undef;
&error_setup($file_action ? $text{'enable_err'} : $text{'delete_err'});
$access{'edit'} || &error($text{'server_ecannotedit'});

if ($file_action) {
	&can_manage_server_files() || &error($text{'enable_elinkdir'});
	my %add_to = map { $_, 1 } &get_add_to_files();
	my %files;
	foreach my $item (@items) {
		my $file;
		if ($item =~ /^file\t([^\t]+)/) {
			$file = $1;
			}
		else {
			my $server = &find_server($item);
			next if (!$server || !&can_edit_server($server));
			$file = $server->{'file'};
			}
		my $rfile = $file ? &resolve_links($file) : undef;
		$files{$rfile}++ if ($rfile && -f $rfile && $add_to{$rfile} &&
				      &can_manage_server_file($rfile));
		}
	my @files = keys %files;
	@files || &error($text{'enable_enone'});
	my %file_actions;
	foreach my $file (@files) {
		my $action = $file_action eq "toggle" ?
				&server_file_toggle_action($file) : $file_action;
		my $err = &virtualmin_server_file_state_error($file, $action);
		$err && &error($err);
		$file_actions{$file} = $action;
		}
	foreach my $file (@files) {
		my $err = $file_actions{$file} eq "enable" ?
				&enable_server_file($file) :
				&disable_server_file($file);
		$err && &error($err);
		}
	&webmin_log($file_action, "serverfile", scalar(@files));
	&redirect("");
	exit;
	}
if (!$in{'delete'}) {
	&error($text{'delete_eaction'});
	}

my (@ids, %file_lines);
foreach my $item (@items) {
	if ($item =~ /^file\t([^\t]+)\t(\d+)$/) {
		push(@{$file_lines{$1}}, $2);
		}
	elsif ($item !~ /^file\t/) {
		push(@ids, $item);
		}
	}
@ids || %file_lines || &error($text{'delete_enone'});

# Validate the selected server blocks before locking config files.
foreach my $id (@ids) {
	my $server = &find_server($id);
	$server || &error($text{'server_egone'});
	&can_edit_server($server) || &error($text{'server_ecannot'});
	&is_default_server_block($server) && &error($text{'delete_edefault'});
	}
my %add_to = map { $_, 1 } &get_add_to_files();
my %file_servers;
foreach my $file (keys %file_lines) {
	my $rfile = &resolve_links($file);
	next if (!$rfile || !-f $rfile || !$add_to{$rfile} ||
		 !&can_manage_server_file($rfile));
	my @servers = &find_servers_in_file($rfile);
	foreach my $line (@{$file_lines{$file}}) {
		my ($server) = grep { $_->{'line'} == $line } @servers;
		$server || &error($text{'server_egone'});
		&can_edit_server($server) || &error($text{'server_ecannot'});
		&is_default_server_block($server) && &error($text{'delete_edefault'});
		push(@{$file_servers{$rfile}}, $server);
		}
	}
@ids || %file_servers || &error($text{'delete_enone'});

my @servers;
if (@ids) {
	&lock_all_config_files();
	my $conf = &get_config();
	my $http = &find("http", $conf);
	if (!$http) {
		&unlock_all_config_files();
		&error(&text('index_ehttp', "<tt>$config{'nginx_config'}</tt>"));
		}
	foreach my $id (@ids) {
		my $server = &find_server($id);
		if (!$server) {
			&unlock_all_config_files();
			&error($text{'server_egone'});
			}
		if (!&can_edit_server($server)) {
			&unlock_all_config_files();
			&error($text{'server_ecannot'});
			}
		if (&is_default_server_block($server)) {
			&unlock_all_config_files();
			&error($text{'delete_edefault'});
			}
		push(@servers, $server);
		}
	foreach my $server (@servers) {
		&save_directive($http, [ $server ], [ ]);
		}
	&flush_config_file_lines();
	&unlock_all_config_files();
	}
foreach my $server (@servers) {
	&delete_server_link($server);
	}
my %done_file;
foreach my $server (@servers) {
	next if ($done_file{$server->{'file'}}++);
	&delete_server_file_if_empty($server);
	}
foreach my $file (keys %file_servers) {
	&lock_file($file);
	&delete_servers_from_file($file, @{$file_servers{$file}});
	&unlock_file($file);
	}
my $count = scalar(@servers) +
	    scalar(map { @$_ } values %file_servers);
&webmin_log("delete", "servers", $count);
&redirect("");