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
# Create, update or delete a server block

use strict;
use warnings;
require './nginx-lib.pl';
our (%text, %in, %config, %access);
&ReadParse();
&error_setup($text{'server_err'});
if ($in{'new'}) {
	(!defined($access{'create'}) || $access{'create'}) ||
		&error($text{'server_ecannotcreate'});
	}
else {
	$access{'edit'} || &error($text{'server_ecannotedit'});
	}

# Get the current server
&lock_all_config_files();
my $conf = &get_config();
my $http = &find("http", $conf);
my @servers = &find("server", $http);
my $server;
my $old_name;
if ($in{'new'}) {
	$server = { 'name' => 'server',
		    'type' => 1,
		    'words' => [ ],
		    'members' => [ ] };
	$server->{'file'} = &get_add_to_file($in{'server_name'});
	}
else {
	$server = &find_server($in{'id'});
        $server || &error($text{'server_egone'});
	&can_edit_server($server) || &error($text{'server_ecannot'});
	$old_name = &find_value("server_name", $server);
        }

# Check for clash
if ($in{'new'} || $in{'server_name'} ne $old_name) {
	foreach my $c (@servers) {
		my $cname = &find_value("server_name", $c);
		$cname eq $in{'server_name'} &&
			&error($text{'server_eclash'});
		}
	}

my $action;
my $name;
if ($in{'delete'}) {
	$name = &find_value("server_name", $server);
	if ($in{'confirm'}) {
		# Got confirmation, delete it
		&save_directive($http, [ $server ], [ ]);
		$action = 'delete';
		}
	else {
		# Ask for confirmation first
		&ui_print_header(&server_desc($server),
				 $text{'server_edit'}, "");

print &ui_confirmation_form("save_server.cgi",
			&text('server_rusure',
			      "<tt>".&html_escape($name)."</tt>"),
			[ [ 'id', $in{'id'} ],
			  (defined($in{'nmod'}) ? [ 'nmod', $in{'nmod'} ] : ( )),
			  [ 'delete', 1 ] ],
			[ [ 'confirm', $text{'server_confirm'} ] ],
			);

&ui_print_footer(&nginx_submod_url("edit_server.cgi?id=".
				 &urlize($in{'id'})),
				 $text{'server_return'});
		}
	}
else {
	if ($in{'new'}) {
		# Create a new server object
		&save_directive($http, [ ], [ $server ]);
		$action = 'create';
		}
	else {
		$action = 'modify';
		}

# Validate and update existing directives, starting with hostname
	# or regexp
	&nginx_text_parse("server_name", $server, undef, '^\S+$', undef, 1);
	$name = $in{'server_name'};

# Addresses to accept connections on
	# XXX preserve existing args
	my $i = 0;
	my @listen;
	while(defined($in{"ip_def_$i"})) {
		my $def = $in{"ip_def_$i"};
		if ($def == 3) {
			$i++;
			next;
			}
		my $ip;
		if ($def == 0) {
			$ip = $in{"ip_$i"};
			$ip || &error(&text('server_eipmissing', $i+1));
			&to_ipaddress($ip) || &to_ip6address($ip) ||
				&error(&text('server_eip', $i+1, $ip));
			if (&check_ip6address($ip)) {
				$ip = "[$ip]";
				}
			}
		elsif ($def == 2) {
			$ip = "[::]";
			}
	
		# Port number
		$in{"port_$i"} =~ /^\d+$/ ||
			&error(&text('server_eport', $i+1));
		if ($ip && $in{"port_$i"} != 80) {
			$ip .= ":".$in{"port_$i"};
			}
		elsif (!$ip) {
			$ip = $in{"port_$i"};
			}

# Other random options
		my @words = ( $ip );
		if ($in{"default_$i"}) {
			push(@words, &get_default_server_param());
			}
		if ($in{"ssl_$i"}) {
			push(@words, "ssl");
			}
		if ($in{"http2_$i"}) {
			push(@words, "http2");
			}
		if ($in{"ipv6_$i"}) {
			push(@words, "ipv6only=".$in{"ipv6_$i"});
			}
		push(@listen, { 'name' => 'listen',
				'value' => $words[0],
				'words' => \@words });
		$i++;
		}
	@listen || &error($text{'server_elisten'});
	&save_directive($server, "listen", \@listen);

if ($in{'new'}) {
		# Add root directory block
		$in{'rootdir'} =~ /^\// || &error($text{'server_erootdir'});
		-d $in{'rootdir'} || &error(&text('server_erootdir2',
						  $in{'rootdir'}));
		&can_directory($in{'rootdir'}) ||
			&error(&text('location_ecannot',
			     "<tt>".&html_escape($in{'rootdir'})."</tt>",
			     "<tt>".&html_escape($access{'root'})."</tt>"));
		&save_directive($server, [ ],
			[ { 'name' => 'location',
			    'words' => [ '/' ],
			    'type' => 1,
			    'members' => [
				{ 'name' => 'root',
				  'words' => [ $in{'rootdir'} ] },
				],
			  } ]);
		&save_directive($server, "root", [ $in{'rootdir'} ]);
		my @extra = &extra_dirs_to_directives($config{'extra_dirs'});
		&save_directive($server, [ ], \@extra) if (@extra);
		}
	}

&flush_config_file_lines();
&unlock_all_config_files();
if ($action eq 'create') {
	&create_server_link($server);
	}
elsif ($action eq 'delete') {
	&delete_server_link($server);
	&delete_server_file_if_empty($server);
	}
if ($action) {
	&webmin_log($action, 'server', $name);
	if (defined($in{'nmod'}) && $action ne 'delete') {
		&redirect(&nginx_submod_url("edit_server.cgi?id=".
			  &urlize(&server_id($server))));
		}
	else {
		&redirect("");
		}
	}