Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	3.94 KB	-rw-r--r--	2026-07-17 21:17
acl_security.pl	1.39 KB	-rwxr-xr-x	2026-07-17 21:17
backup_config.pl	2.17 KB	-rwxr-xr-x	2026-07-17 21:17
bootup.cgi	1.12 KB	-rwxr-xr-x	2026-07-17 21:22
cgi_args.pl	160 B	-rwxr-xr-x	2026-07-17 21:17
change_access.cgi	922 B	-rwxr-xr-x	2026-07-17 21:22
change_advanced.cgi	1.59 KB	-rwxr-xr-x	2026-07-17 21:22
change_anon.cgi	758 B	-rwxr-xr-x	2026-07-17 21:22
change_bind.cgi	3.3 KB	-rwxr-xr-x	2026-07-17 21:22
change_lang.cgi	489 B	-rwxr-xr-x	2026-07-17 21:22
change_mobile.cgi	989 B	-rwxr-xr-x	2026-07-17 21:22
change_os.cgi	1.9 KB	-rwxr-xr-x	2026-07-17 21:22
change_referers.cgi	462 B	-rwxr-xr-x	2026-07-17 21:22
change_session.cgi	5.19 KB	-rwxr-xr-x	2026-07-17 21:22
change_ssl.cgi	2.44 KB	-rwxr-xr-x	2026-07-17 21:22
change_theme.cgi	675 B	-rwxr-xr-x	2026-07-17 21:22
change_twofactor.cgi	1.07 KB	-rwxr-xr-x	2026-07-17 21:22
change_ui.cgi	1.61 KB	-rwxr-xr-x	2026-07-17 21:22
change_users.cgi	1.19 KB	-rwxr-xr-x	2026-07-17 21:22
change_web.cgi	2.8 KB	-rwxr-xr-x	2026-07-17 21:22
clear_blocked.cgi	126 B	-rwxr-xr-x	2026-07-17 21:22
clone_mod.cgi	1.67 KB	-rwxr-xr-x	2026-07-17 21:22
config	85 B	-rw-r--r--	2026-07-17 21:17
config.info	242 B	-rw-r--r--	2026-07-17 21:17
config.info.ar	315 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	287 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	287 B	-rw-r--r--	2026-07-17 21:17
config.info.de	275 B	-rw-r--r--	2026-07-17 21:17
config.info.es	298 B	-rw-r--r--	2026-07-17 21:17
config.info.fa	221 B	-rw-r--r--	2026-07-17 21:17
config.info.fi	273 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	300 B	-rw-r--r--	2026-07-17 21:17
config.info.hu	0 B	-rw-r--r--	2026-07-17 21:17
config.info.it	304 B	-rw-r--r--	2026-07-17 21:17
config.info.ja	275 B	-rw-r--r--	2026-07-17 21:17
config.info.ms	264 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	266 B	-rw-r--r--	2026-07-17 21:17
config.info.no	244 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	290 B	-rw-r--r--	2026-07-17 21:17
config.info.pt_BR	54 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	62 B	-rw-r--r--	2026-07-17 21:17
config.info.uk	63 B	-rw-r--r--	2026-07-17 21:17
config.info.zh_TW	34 B	-rw-r--r--	2026-07-17 21:17
copycert.cgi	1.52 KB	-rwxr-xr-x	2026-07-17 21:22
defaultacl	269 B	-rw-r--r--	2026-07-17 21:17
delete_mod.cgi	2.21 KB	-rwxr-xr-x	2026-07-17 21:22
delete_session.cgi	317 B	-rwxr-xr-x	2026-07-17 21:22
download_cert.cgi	575 B	-rwxr-xr-x	2026-07-17 21:22
edit_access.cgi	1.3 KB	-rwxr-xr-x	2026-07-17 21:22
edit_acl.cgi	634 B	-rwxr-xr-x	2026-07-17 21:22
edit_advanced.cgi	2.1 KB	-rwxr-xr-x	2026-07-17 21:22
edit_anon.cgi	807 B	-rwxr-xr-x	2026-07-17 21:22
edit_assignment.cgi	1.19 KB	-rwxr-xr-x	2026-07-17 21:22
edit_bind.cgi	2.66 KB	-rwxr-xr-x	2026-07-17 21:22
edit_blocked.cgi	892 B	-rwxr-xr-x	2026-07-17 21:22
edit_categories.cgi	2.04 KB	-rwxr-xr-x	2026-07-17 21:22
edit_configs.cgi	2.7 KB	-rwxr-xr-x	2026-07-17 21:22
edit_dav.cgi	1.75 KB	-rwxr-xr-x	2026-07-17 21:22
edit_defacl.cgi	692 B	-rwxr-xr-x	2026-07-17 21:22
edit_descs.cgi	846 B	-rwxr-xr-x	2026-07-17 21:22
edit_ipkey.cgi	1.62 KB	-rwxr-xr-x	2026-07-17 21:22
edit_lang.cgi	1.81 KB	-rwxr-xr-x	2026-07-17 21:22
edit_logout.cgi	1.16 KB	-rwxr-xr-x	2026-07-17 21:22
edit_mobile.cgi	1.16 KB	-rwxr-xr-x	2026-07-17 21:22
edit_mods.cgi	4.54 KB	-rwxr-xr-x	2026-07-17 21:22
edit_os.cgi	3.04 KB	-rwxr-xr-x	2026-07-17 21:22
edit_referers.cgi	937 B	-rwxr-xr-x	2026-07-17 21:22
edit_restrict.cgi	2.07 KB	-rwxr-xr-x	2026-07-17 21:22
edit_session.cgi	6.2 KB	-rwxr-xr-x	2026-07-17 21:22
edit_ssl.cgi	6.21 KB	-rwxr-xr-x	2026-07-17 21:22
edit_themes.cgi	3.82 KB	-rwxr-xr-x	2026-07-17 21:22
edit_twofactor.cgi	1.65 KB	-rwxr-xr-x	2026-07-17 21:22
edit_ui.cgi	3.14 KB	-rwxr-xr-x	2026-07-17 21:22
edit_upgrade.cgi	4.05 KB	-rwxr-xr-x	2026-07-17 21:22
edit_users.cgi	1.19 KB	-rwxr-xr-x	2026-07-17 21:22
edit_web.cgi	3.08 KB	-rwxr-xr-x	2026-07-17 21:22
export_mod.cgi	1.34 KB	-rwxr-xr-x	2026-07-17 21:22
feedback_files.pl	137 B	-rwxr-xr-x	2026-07-17 21:17
index.cgi	3.65 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	530 B	-rwxr-xr-x	2026-07-17 21:17
install_mod.cgi	2.68 KB	-rwxr-xr-x	2026-07-17 21:22
install_theme.cgi	2.19 KB	-rwxr-xr-x	2026-07-17 21:22
list_configs.cgi	803 B	-rwxr-xr-x	2026-07-17 21:22
list_restrict.cgi	1.51 KB	-rwxr-xr-x	2026-07-17 21:22
list_sessions.cgi	1.42 KB	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	1.64 KB	-rwxr-xr-x	2026-07-17 21:17
module.info	217 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	133 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	16 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	0 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	251 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	131 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	16 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	29 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	116 B	-rw-r--r--	2026-07-17 21:17
module.info.da	0 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	129 B	-rw-r--r--	2026-07-17 21:17
module.info.de	122 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	16 B	-rw-r--r--	2026-07-17 21:17
module.info.el	0 B	-rw-r--r--	2026-07-17 21:17
module.info.el.auto	212 B	-rw-r--r--	2026-07-17 21:17
module.info.es	34 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	127 B	-rw-r--r--	2026-07-17 21:17
module.info.eu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.eu.auto	164 B	-rw-r--r--	2026-07-17 21:17
module.info.fa	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fa.auto	190 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	26 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	103 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	33 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	123 B	-rw-r--r--	2026-07-17 21:17
module.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hr.auto	154 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	31 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	120 B	-rw-r--r--	2026-07-17 21:17
module.info.it	34 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	114 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	23 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	135 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	140 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	120 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	16 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	29 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	103 B	-rw-r--r--	2026-07-17 21:17
module.info.no	30 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	119 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	120 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	16 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	153 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	37 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	125 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	35 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	200 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	146 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	142 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	150 B	-rw-r--r--	2026-07-17 21:17
module.info.uk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.uk.auto	258 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	0 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	114 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	25 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	98 B	-rw-r--r--	2026-07-17 21:17
move.cgi	606 B	-rwxr-xr-x	2026-07-17 21:22
newkey.cgi	2.69 KB	-rwxr-xr-x	2026-07-17 21:22
restart.cgi	110 B	-rwxr-xr-x	2026-07-17 21:22
save_acl.cgi	355 B	-rwxr-xr-x	2026-07-17 21:22
save_assignment.cgi	588 B	-rwxr-xr-x	2026-07-17 21:22
save_categories.cgi	1.07 KB	-rwxr-xr-x	2026-07-17 21:22
save_configs.cgi	751 B	-rwxr-xr-x	2026-07-17 21:22
save_dav.cgi	1019 B	-rwxr-xr-x	2026-07-17 21:22
save_defacl.cgi	626 B	-rwxr-xr-x	2026-07-17 21:22
save_descs.cgi	585 B	-rwxr-xr-x	2026-07-17 21:22
save_ipkey.cgi	1.49 KB	-rwxr-xr-x	2026-07-17 21:22
save_logout.cgi	1022 B	-rwxr-xr-x	2026-07-17 21:22
save_restrict.cgi	1.31 KB	-rwxr-xr-x	2026-07-17 21:22
save_uconfigs.cgi	1.38 KB	-rwxr-xr-x	2026-07-17 21:22
savekey.cgi	2.4 KB	-rwxr-xr-x	2026-07-17 21:22
start.cgi	200 B	-rwxr-xr-x	2026-07-17 21:22
stop.cgi	203 B	-rwxr-xr-x	2026-07-17 21:22
switch.cgi	281 B	-rwxr-xr-x	2026-07-17 21:22
syslog_logs.pl	651 B	-rwxr-xr-x	2026-07-17 21:17
uninstall.pl	350 B	-rwxr-xr-x	2026-07-17 21:17
update.cgi	3.63 KB	-rwxr-xr-x	2026-07-17 21:22
update.pl	4.1 KB	-rwxr-xr-x	2026-07-17 21:22
update_sched.cgi	2.01 KB	-rwxr-xr-x	2026-07-17 21:22
upgrade.cgi	10.11 KB	-rwxr-xr-x	2026-07-17 21:22
usermin-lib.pl	28.51 KB	-rwxr-xr-x	2026-07-17 21:17

Rename

#!/usr/bin/perl
# edit_ssl.cgi
# Webserver SSL form

require './usermin-lib.pl';
&ui_print_header(undef, $text{'ssl_title'}, "");
&ReadParse();
&get_usermin_miniserv_config(\%miniserv);

# Show tabs
@tabs = map { [ $_, $text{'ssl_tab'.$_}, "edit_ssl.cgi?mode=$_" ] }
	    ( "ssl", "current", "ips", "create", "upload" );
print &ui_tabs_start(\@tabs, "mode", $in{'mode'} || $tabs[0]->[0], 1);

# Basic SSL settings
print &ui_tabs_start_tab("mode", "ssl");
print $text{'ssl_desc1'},"\n";

print &ui_form_start("change_ssl.cgi", "post");
print &ui_table_start($text{'ssl_header'}, undef, 2);

print &ui_table_row($text{'ssl_on'},
	&ui_yesno_radio("ssl", $miniserv{'ssl'}));

print ui_table_row($text{'ssl_enforce'},
	ui_radio("ssl_enforce", $miniserv{'ssl_enforce'} // 1,
		[ [ 2, $text{'ssl_hsts'} ],
		  [ 1, $text{'yes'} ],
		  [ 0, $text{'no'} ] ]));

print &ui_table_row($text{'ssl_key'},
	&ui_textbox("key", $miniserv{'keyfile'}, 40)." ".
	&file_chooser_button("key"));

print &ui_table_row($text{'ssl_cert'},
	&ui_opt_textbox("cert", $miniserv{'certfile'}, 40,
			$text{'ssl_cert_def'}." ",$text{'ssl_cert_oth'})." ".
	&file_chooser_button("cert"));

print &ui_table_row($text{'ssl_version'},
	&ui_opt_textbox("version", $miniserv{'ssl_version'}, 4,
			$text{'ssl_auto'}));

print &ui_table_row($text{'ssl_deny'},
	&ui_checkbox("no_ssl2", 1, "SSLv2", $miniserv{'no_ssl2'})."\n".
	&ui_checkbox("no_ssl3", 1, "SSLv3", $miniserv{'no_ssl3'})."\n".
	ui_checkbox("no_tls1", 1, "TLSv1.0", $miniserv{'no_tls1'})."\n".
	ui_checkbox("no_tls1_1", 1, "TLSv1.1", $miniserv{'no_tls1_1'})."\n".
	ui_checkbox("no_tls1_2", 1, "TLSv1.2", $miniserv{'no_tls1_2'})."\n"
	);

print &ui_table_row($text{'ssl_compression'},
	&ui_yesno_radio("ssl_compression", !$miniserv{'no_sslcompression'}));

print &ui_table_row($text{'ssl_honorcipherorder'},
	&ui_yesno_radio("ssl_honorcipherorder",
			$miniserv{'ssl_honorcipherorder'}));

$clist = $miniserv{'ssl_cipher_list'};
$cmode = !$clist ? 1 :
	 $clist eq $webmin::strong_ssl_ciphers ? 2 :
	 $clist eq $webmin::pfs_ssl_ciphers ? 3 :
	 0;
print &ui_table_row($text{'ssl_cipher_list'},
	&ui_radio("cipher_list_def", $cmode,
		 [ [ 1, $text{'ssl_auto'}." " ],
		 [ 2, $text{'ssl_strong'}." " ],
		 [ 3, $text{'ssl_pfs'}." " ],
		 [ 0, $text{'ssl_clist'}." ".
			 &ui_textbox("cipher_list",
				 $cmode == 0 ? $clist : "", 30) ] ]));

print &ui_table_row($text{'ssl_extracas'},
	&ui_textarea("extracas", join("\n",split(/\s+/, $miniserv{'extracas'})),
		 3, 60)." ".
	&file_chooser_button("extracas", 0, undef, undef, 1)." ");

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

# Page showing current cert
print &ui_tabs_start_tab("mode", "current");
print "$text{'ssl_current'}\n";
print &ui_table_start($text{'ssl_cheader'}, undef, 4);
$info = &webmin::cert_info($miniserv{'certfile'} || $miniserv{'keyfile'});
foreach $i ('cn', 'o', 'email', 'issuer_cn', 'issuer_o', 'issuer_email',
	 'notafter', 'type') {
	if ($info->{$i}) {
		print &ui_table_row($text{'ca_'.$i}, $info->{$i});
		}
	}
@clinks = (
	&ui_link("download_cert.cgi/cert.pem", $text{'ssl_pem'}),
	&ui_link("download_cert.cgi/cert.p12", $text{'ssl_pkcs12'})
	);
print &ui_table_row($text{'ssl_download'}, &ui_links_row(\@clinks));
print &ui_table_end();
print &ui_tabs_end_tab();

# Table listing per-IP SSL certs
print &ui_tabs_start_tab("mode", "ips");
print "$text{'ssl_ipkeys'}\n";
@ipkeys = &webmin::get_ipkeys(\%miniserv);
if (@ipkeys) {
	print &ui_columns_start([ $text{'ssl_ips'}, $text{'ssl_key'},
				 $text{'ssl_cert'} ]);
	foreach $k (@ipkeys) {
		print &ui_columns_row([
			&ui_link("edit_ipkey.cgi?idx=$k->{'index'}",
				 join(", ", @{$k->{'ips'}})),
			"<tt>$k->{'key'}</tt>",
			$k->{'cert'} ? "<tt>$k->{'cert'}</tt>"
				 : $text{'ssl_cert_def'},
			]);
		}
	print &ui_columns_end();
	}
else {
	print "$text{'ssl_ipkeynone'}\n";
	}
print &ui_link("edit_ipkey.cgi?new=1", $text{'ssl_addipkey'}),"\n";
print &ui_tabs_end_tab();

# SSL key generation form
print &ui_tabs_start_tab("mode", "create");
print "$text{'ssl_newkey'}\n";
my $curkey = &read_file_contents($miniserv{'keyfile'});
my $origkey = &read_file_contents("$root_directory/miniserv.pem");
if ($curkey eq $origkey) {
	# System is using the original (insecure) Webmin key!
	print "$text{'ssl_hole'}\n";
	}

print &ui_form_start("newkey.cgi");
print &ui_table_start($text{'ssl_header1'}, undef, 2);

$host = $ENV{'HTTP_HOST'};
$host =~ s/:.*//;
print &webmin::show_ssl_key_form($host, undef, 
			 "Usermin Webserver on ".&get_system_hostname());

print &ui_table_row($text{'ssl_newfile'},
	    &ui_textbox("newfile", "$config{'usermin_dir'}/miniserv.pem", 40));

print &ui_table_row($text{'ssl_usenew'},
		    &ui_yesno_radio("usenew", 1));

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

# SSL key upload form
print &ui_tabs_start_tab("mode", "upload");
print "$text{'ssl_savekey'}\n";
print &ui_form_start("savekey.cgi", "form-data");
print &ui_table_start($text{'ssl_saveheader'}, undef, 2);

print &ui_table_row($text{'ssl_privkey'},
		 &ui_textarea("key", undef, 7, 70)." \n".
		 "$text{'ssl_upload'}\n".
		 &ui_upload("keyfile"));

print &ui_table_row($text{'ssl_privcert'},
		 &ui_radio("cert_def", 1,
			[ [ 1, $text{'ssl_same'} ],
			 [ 0, $text{'ssl_below'} ] ])." \n".
		 &ui_textarea("cert", undef, 7, 70)." \n".
		 "$text{'ssl_upload'}\n".
		 &ui_upload("certfile"));

print &ui_table_row($text{'ssl_privchain'},
		 &ui_radio("chain_def", 1,
			[ [ 1, $miniserv{'extracas'} ? $text{'ssl_leavechain'}
						 : $text{'ssl_nochain'} ],
			 [ 0, $text{'ssl_below'} ] ])." \n".
		 &ui_textarea("chain", undef, 7, 70)." \n".
		 "$text{'ssl_upload'}\n".
		 &ui_upload("chainfile"));

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

print &ui_tabs_end(1);

# Button to copy cert from Webmin
&get_miniserv_config(\%wminiserv);
if ($wminiserv{'ssl'}) {
	print &ui_hr();
	print &ui_buttons_start();
	print &ui_buttons_row("copycert.cgi", $text{'ssl_copycert'},
			      $text{'ssl_copycertdesc'});
	print &ui_buttons_end();
	}

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