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
# Show Nginx server blocks and global config

use strict;
use warnings;
require './nginx-lib.pl';
my $ver = &get_nginx_version();
our (%text, %module_info, %config, $module_name, %access, %in);

my $action_links = -r $config{'nginx_config'} &&
		   &has_command($config{'nginx_cmd'}) ?
		   &nginx_action_links() : "";
&ui_print_header($ver ? &text('index_version', $ver) : undef,
		 $module_info{'desc'}, "", undef, 1, 1, undef,
		 $action_links);

# Check config
if (!-r $config{'nginx_config'}) {
	&ui_print_endpage(
		&text('index_econfig', "<tt>$config{'nginx_config'}</tt>",
		"../config.cgi?$module_name"));
	}
if (!&has_command($config{'nginx_cmd'})) {
	&ui_print_endpage(
		&text('index_ecmd', "<tt>$config{'nginx_cmd'}</tt>",
		"../config.cgi?$module_name"));
	}

my $conf = &get_config();
my $http = &find("http", $conf);
if (!$http) {
	&ui_print_endpage(
		&text('index_ehttp', "<tt>$config{'nginx_config'}</tt>"));
	}

my @tabs = ( );
my $can_create = !defined($access{'create'}) || $access{'create'};
push(@tabs, [ "global", $text{'index_tabglobal'}, "index.cgi?mode=global" ])
	if ($access{'global'});
push(@tabs, [ "list", $text{'index_tablist'}, "index.cgi?mode=list" ]);
push(@tabs, [ "create", $text{'index_tabcreate'}, "index.cgi?mode=create" ])
	if ($can_create);
my $mode = $in{'mode'} || "list";
my %tab = map { $_->[0], 1 } @tabs;
$mode = "list" if (!$tab{$mode});
print &ui_tabs_start(\@tabs, "mode", $mode, 1);

if ($access{'global'}) {
	# Show icons for global config types
	print &ui_tabs_start_tab("mode", "global");
	my @gpages = ( "net", "mime", "logs", "docs", "ssi", "misc",
		       &can_edit_manual_config() ? ( "manual" ) : ( ) );
	&icons_table(
		[ map { "edit_".$_.".cgi" } @gpages ],
		[ map { $text{$_."_title"} } @gpages ],
		[ map { "images/".$_.".gif" } @gpages ],
		);
	print &ui_tabs_end_tab();
	}

# Show list of server blocks
print &ui_tabs_start_tab("mode", "list");
my @allservers = &find("server", $http);
my $can_files = &can_manage_server_files();
my @add_to_files = $can_files ? &get_add_to_files() : ( );
my %add_to_file = map { $_, 1 } @add_to_files;
my @rows = &get_server_list_rows($http);
if (@rows) {
	my $can_delete = $access{'edit'};
	my $has_proxy;
	foreach my $r (@rows) {
		my (undef, $proxy) = &server_root_proxy_state($r->{'server'});
		$has_proxy ||= $proxy;
		}
	my @heads = ( $can_delete ? ( "" ) : ( ),
		 $text{'index_name'},
		 $text{'index_ip'},
		 $text{'index_port'},
		 $text{'index_root'},
		 $has_proxy ? ( $text{'index_proxytarget'} ) : ( ),
		 $can_files ? ( $text{'index_status'} ) : ( ),
		 $text{'index_url'} );
	my @data;
	foreach my $r (@rows) {
		my $s = $r->{'server'};
		my $name = &find_value("server_name", $s);
		$name ||= "";
		my $default = &is_default_server_block($s);
		my $showname = !$default ?
			&html_escape($name) : $text{'default_server_block'};
		my $id = &server_id($s);
		my $name_sort = ($default ? "0 " : "1 ").
				lc($default ? $text{'default_server_block'} : $name);
		my $name_sort_attr = &quote_escape($name_sort);
		my $shownamelink = $r->{'active'} ?
			"<a href='edit_server.cgi?id=".
			 &urlize($id)."'>".$showname."</a>" :
			$showname;

# Extract all IPs and ports from listen directives
		my (@ips, @ports);
		foreach my $l (&find_value("listen", $s)) {
			my ($ip, $port) = &split_ip_port($l);
			$ip ||= $text{'index_any'};
			$ip = $text{'index_any6'} if ($ip eq "::");
			push(@ips, $ip);
			push(@ports, $port);
			}

my @cols;
		my $status = "";
		if ($can_files) {
			if ($add_to_file{$r->{'file'}}) {
				my $enabled =
					&server_file_state($r->{'file'})->{'enabled'};
				$status = $enabled ? $text{'index_enabled'} :
						 $text{'index_disabled'};
				}
			}
		push(@cols, { 'type' => 'string',
			 'value' => $shownamelink,
			 'td' => "data-sort=\"$name_sort_attr\" ".
				 "data-order=\"$name_sort_attr\"" });
		push(@cols,
			join(" ", @ips),
			join(" ", @ports),
			&server_root_summary($s) );
		push(@cols, &server_proxy_summary($s)) if ($has_proxy);
		push(@cols, $status) if ($can_files);
		my $url = $r->{'active'} ? &server_url($s) : undef;
		push(@cols, $url ? &ui_link(&quote_escape($url),
			$text{'index_view'}, undef,
			'target="_blank" rel="noopener noreferrer"') : "");
		if ($can_delete && $r->{'active'} && !$default) {
			unshift(@cols, { 'type' => 'checkbox',
					 'name' => 'd',
					 'value' => $id });
			}
		elsif ($can_delete && $can_files && !$r->{'active'} &&
		 !$default && $add_to_file{$r->{'file'}}) {
			unshift(@cols, { 'type' => 'checkbox',
					 'name' => 'd',
					 'value' => "file\t".$r->{'file'}.
						 "\t".$s->{'line'} });
			}
		elsif ($can_delete) {
			unshift(@cols, "");
			}
		push(@data, \@cols);
		}
	if ($can_delete) {
		my $list_form = "server_blocks_form";
		my $has_checkbox = grep {
			ref($_->[0]) && $_->[0]->{'type'} eq 'checkbox'
			} @data;
		my $links = $has_checkbox ?
			&ui_links_row([ &select_all_link("d", 0),
					&select_invert_link("d", 0) ]) : "";
		my @left_buttons = ( [ "delete", $text{'index_delete'} ] );
		my @right_buttons = $can_files ?
			( [ "toggle", $text{'index_toggle'}, undef, undef,
			 "form=\"$list_form\"" ] ) : ( );
		print &ui_form_start("delete_servers.cgi", "post", undef,
				 "id='$list_form'");
		print $links;
		print &ui_columns_table(\@heads, 100, \@data);
		print $links;
		print &ui_form_end_side_by_side($list_form,
						\@left_buttons,
						\@right_buttons);
		}
	else {
		print &ui_columns_table(\@heads, 100, \@data);
		}
	}
elsif (@allservers) {
	print "$text{'index_noneaccess'}\n";
	}
else {
	print "$text{'index_none'}\n";
	}
print &ui_tabs_end_tab();

if ($can_create) {
	print &ui_tabs_start_tab("mode", "create");
	print &ui_form_start("save_server.cgi", "post");
	print &ui_hidden("new", 1);
	print &ui_table_start($text{'server_create'}, "width=100%", 2);

# Server name
	my $server = { 'name' => 'server',
		       'members' => [ ] };
	print &nginx_text_input("server_name", $server, 70, undef, 1);

# IP addresses / ports to listen on
	my @listen = ( &value_to_struct('listen', '80') );
	my $table = &ui_columns_start([ $text{'server_ip'},
					$text{'server_port'},
					$text{'server_default'},
					$text{'server_ssl'},
					$text{'server_http2'},
					$text{'server_ipv6'} ], 100);
	my $i = 0;
	my @tds = ( "valign=top", "valign=top", "valign=top",
		 "valign=top", "valign=top" );
	foreach my $l (@listen, { 'words' => [ ] }) {
		my @w = @{$l->{'words'}};
		my ($ip, $port) = @w ? &split_ip_port(shift(@w)) : ( );
		my ($default, $ssl, $http2, $ipv6) = (0, 0, 0, "");
		foreach my $w (@w) {
			if ($w eq "default" || $w eq "default_server") {
				$default = 1;
				}
			elsif ($w eq "ssl") {
				$ssl = 1;
				}
			elsif ($w eq "http2") {
				$http2 = 1;
				}
			elsif ($w =~ /^ipv6only=(\S+)/) {
				$ipv6 = lc($1);
				}
			}
		my $ipmode = !$ip && !$port ? 3 :
			 !$ip ? 1 : $ip eq "::" ? 2 : 0;
		$table .= &ui_columns_row([
			&ui_radio("ip_def_$i", $ipmode,
				 [ [ 3, $text{'server_none'}." " ],
				 [ 1, $text{'server_ipany'}." " ],
				 [ 2, $text{'server_ip6any'}." " ],
				 [ 0, $text{'server_ipaddr'} ] ])." ".
			 &ui_textbox("ip_$i", $ipmode == 0 ? $ip : "", 30),
			&ui_textbox("port_$i", $port, 6),
			&ui_select("default_$i", $default,
			 [ [ 0, $text{'no'} ], [ 1, $text{'yes'} ] ]),
			&ui_select("ssl_$i", $ssl,
			 [ [ 0, $text{'no'} ], [ 1, $text{'yes'} ] ]),
			&ui_select("http2_$i", $http2,
			 [ [ 0, $text{'no'} ], [ 1, $text{'yes'} ] ]),
			&ui_select("ipv6_$i", $ipv6,
			 [ [ "", $text{'server_auto'} ],
			 [ "off", $text{'no'} ], [ "on", $text{'yes'} ] ]),
			], \@tds);
		$i++;
		}
	$table .= &ui_columns_end();
	print &ui_table_row($text{'server_listen'}, $table);

# Root directory
	print &ui_table_row($text{'server_rootdir'},
		&ui_filebox("rootdir", undef, 50, 0, undef, undef, 1));

print &ui_table_end();
	print &ui_form_end([ [ undef, $text{'create'} ] ]);
	print &ui_tabs_end_tab();
	}

print &ui_tabs_end(1);

&ui_print_footer("/", $text{'index'});