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
CHANGELOG	5.15 KB	-rw-r--r--	2026-07-17 21:17
acl-lib.pl	68.57 KB	-rwxr-xr-x	2026-07-17 21:17
acl_security.pl	2.33 KB	-rwxr-xr-x	2026-07-17 21:17
backup_config.pl	2.64 KB	-rwxr-xr-x	2026-07-17 21:17
cert_form.cgi	1.53 KB	-rwxr-xr-x	2026-07-17 21:22
cert_issue.cgi	1.71 KB	-rwxr-xr-x	2026-07-17 21:22
cert_output.cgi	461 B	-rwxr-xr-x	2026-07-17 21:22
cgi_args.pl	761 B	-rwxr-xr-x	2026-07-17 21:17
config	61 B	-rw-r--r--	2026-07-17 21:17
config-ALL-linux	42 B	-rw-r--r--	2026-07-17 21:17
config-freebsd	42 B	-rw-r--r--	2026-07-17 21:17
config-macos	42 B	-rw-r--r--	2026-07-17 21:17
config-netbsd	42 B	-rw-r--r--	2026-07-17 21:17
config-openbsd	42 B	-rw-r--r--	2026-07-17 21:17
config-solaris-10-ALL	46 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	51 B	-rw-r--r--	2026-07-17 21:17
config.info	258 B	-rw-r--r--	2026-07-17 21:17
config.info.ar	385 B	-rw-r--r--	2026-07-17 21:17
config.info.bg	397 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	295 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	265 B	-rw-r--r--	2026-07-17 21:17
config.info.da	259 B	-rw-r--r--	2026-07-17 21:17
config.info.de	273 B	-rw-r--r--	2026-07-17 21:17
config.info.es	265 B	-rw-r--r--	2026-07-17 21:17
config.info.eu	298 B	-rw-r--r--	2026-07-17 21:17
config.info.fa	394 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	308 B	-rw-r--r--	2026-07-17 21:17
config.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
config.info.hu	353 B	-rw-r--r--	2026-07-17 21:17
config.info.it	279 B	-rw-r--r--	2026-07-17 21:17
config.info.ja	319 B	-rw-r--r--	2026-07-17 21:17
config.info.ko	233 B	-rw-r--r--	2026-07-17 21:17
config.info.ms	248 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	268 B	-rw-r--r--	2026-07-17 21:17
config.info.no	260 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	270 B	-rw-r--r--	2026-07-17 21:17
config.info.pt_BR	271 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	439 B	-rw-r--r--	2026-07-17 21:17
config.info.sk	278 B	-rw-r--r--	2026-07-17 21:17
config.info.sv	53 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	309 B	-rw-r--r--	2026-07-17 21:17
config.info.uk	303 B	-rw-r--r--	2026-07-17 21:17
config.info.zh	47 B	-rw-r--r--	2026-07-17 21:17
config.info.zh_TW	146 B	-rw-r--r--	2026-07-17 21:17
convert.cgi	3.81 KB	-rwxr-xr-x	2026-07-17 21:22
convert_form.cgi	1.61 KB	-rwxr-xr-x	2026-07-17 21:22
defaultacl	226 B	-rw-r--r--	2026-07-17 21:17
delete_group.cgi	1.37 KB	-rwxr-xr-x	2026-07-17 21:22
delete_groups.cgi	1.47 KB	-rwxr-xr-x	2026-07-17 21:22
delete_session.cgi	501 B	-rwxr-xr-x	2026-07-17 21:22
delete_user.cgi	684 B	-rwxr-xr-x	2026-07-17 21:22
delete_users.cgi	2.95 KB	-rwxr-xr-x	2026-07-17 21:22
edit_acl.cgi	2.5 KB	-rwxr-xr-x	2026-07-17 21:22
edit_group.cgi	4.4 KB	-rwxr-xr-x	2026-07-17 21:22
edit_pass.cgi	1.83 KB	-rwxr-xr-x	2026-07-17 21:22
edit_sql.cgi	3.79 KB	-rwxr-xr-x	2026-07-17 21:22
edit_sync.cgi	1.24 KB	-rwxr-xr-x	2026-07-17 21:22
edit_unix.cgi	3.1 KB	-rwxr-xr-x	2026-07-17 21:22
edit_user.cgi	15.29 KB	-rwxr-xr-x	2026-07-17 21:22
feedback_files.pl	336 B	-rwxr-xr-x	2026-07-17 21:17
forgot_form.cgi	1.06 KB	-rwxr-xr-x	2026-07-17 21:22
forgot_send.cgi	2.71 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	8.52 KB	-rwxr-xr-x	2026-07-17 21:22
list_sessions.cgi	2.48 KB	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	2.14 KB	-rwxr-xr-x	2026-07-17 21:17
makedn.cgi	1.77 KB	-rwxr-xr-x	2026-07-17 21:22
maketables.cgi	1.24 KB	-rwxr-xr-x	2026-07-17 21:22
md5-lib.pl	7.73 KB	-rwxr-xr-x	2026-07-17 21:17
module.info	187 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	193 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	19 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	43 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	192 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	129 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	19 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	28 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	23 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	115 B	-rw-r--r--	2026-07-17 21:17
module.info.de	146 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	19 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	253 B	-rw-r--r--	2026-07-17 21:17
module.info.es	125 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	24 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	159 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	238 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	150 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	28 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	154 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	147 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	30 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	152 B	-rw-r--r--	2026-07-17 21:17
module.info.it	22 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	123 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	25 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	137 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	25 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	128 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	19 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	26 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	119 B	-rw-r--r--	2026-07-17 21:17
module.info.no	23 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	113 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	133 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	19 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	31 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	126 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	31 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	132 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	40 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	190 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	29 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	129 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	26 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	122 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	32 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	152 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	246 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	28 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	106 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	28 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	112 B	-rw-r--r--	2026-07-17 21:17
negativeacl	13 B	-rw-r--r--	2026-07-17 21:17
openssl.cnf	6.02 KB	-rw-r--r--	2026-07-17 21:17
postinstall.pl	1012 B	-rwxr-xr-x	2026-07-17 21:17
prefs.info	22 B	-rw-r--r--	2026-07-17 21:17
save_acl.cgi	2.74 KB	-rwxr-xr-x	2026-07-17 21:22
save_group.cgi	3.77 KB	-rwxr-xr-x	2026-07-17 21:22
save_pass.cgi	1.74 KB	-rwxr-xr-x	2026-07-17 21:22
save_sql.cgi	3.4 KB	-rwxr-xr-x	2026-07-17 21:22
save_sync.cgi	746 B	-rwxr-xr-x	2026-07-17 21:22
save_twofactor.cgi	2.74 KB	-rwxr-xr-x	2026-07-17 21:22
save_unix.cgi	2.24 KB	-rwxr-xr-x	2026-07-17 21:22
save_user.cgi	11.52 KB	-rwxr-xr-x	2026-07-17 21:22
schema.cgi	628 B	-rwxr-xr-x	2026-07-17 21:22
switch.cgi	742 B	-rwxr-xr-x	2026-07-17 21:22
system_info.pl	2.59 KB	-rw-r--r--	2026-07-17 21:17
test_twofactor.cgi	1.42 KB	-rwxr-xr-x	2026-07-17 21:22
twofactor.pl	876 B	-rwxr-xr-x	2026-07-17 21:22
twofactor_form.cgi	2.03 KB	-rwxr-xr-x	2026-07-17 21:22
useradmin_update.pl	3.12 KB	-rwxr-xr-x	2026-07-17 21:17
webmin.schema	1.34 KB	-rw-r--r--	2026-07-17 21:17

Rename

#!/usr/bin/perl
# Save user and group database

use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl';    ## no critic
our (%in, %text, %config, %access);
$access{'pass'} || &error($text{'sql_ecannot'});
&ReadParse();
&error_setup($text{'sql_err'});
my %miniserv;
&get_miniserv_config(\%miniserv);

# Parse inputs
my $p = $in{'proto'};
my ($host, $user, $pass, $prefix, $args);
if ($p eq 'mysql' || $p eq 'postgresql' || $p eq 'ldap') {
	&to_ipaddress($in{$p."_host"}) ||
	  $in{$p."_host"} =~ /^(\S+):(\d+)$/ && &to_ipaddress("$1") ||
	    &error($text{'sql_ehost'});
	$in{$p."_user"} =~ /^\S+$/ || &error($text{'sql_euser'});
	$in{$p."_pass"} =~ /^\S*$/ || &error($text{'sql_epass'});
	$host = $in{$p."_host"};
	$user = $in{$p."_user"};
	$pass = $in{$p."_pass"};
	}
if ($p eq 'mysql' || $p eq 'postgresql') {
	$in{$p."_db"} =~ /^\S+$/ || &error($text{'sql_edb'});
	$prefix = $in{$p."_db"};
	}
elsif ($p eq 'ldap') {
	$in{$p."_prefix"} =~ /^\S+$/ || &error($text{'sql_eprefix'});
	$in{$p."_prefix"} =~ /=/ || &error($text{'sql_eprefix2'});
	$prefix = $in{$p."_prefix"};
	$args = { };
	if ($in{'ldap_ssl'} == 0) {
		$args->{'scheme'} = 'ldap';
		}
	elsif ($in{'ldap_ssl'} == 1) {
		$args->{'scheme'} = 'ldaps';
		}
	elsif ($in{'ldap_ssl'} == 2) {
		$args->{'scheme'} = 'ldap';
		$args->{'tls'} = 1;
		}
	$in{'ldap_userclass'} =~ /^[a-z0-9]+$/i ||
		&error($text{'sql_euserclass'});
	$args->{'userclass'} = $in{'ldap_userclass'};
	$in{'ldap_groupclass'} =~ /^[a-z0-9]+$/i ||
		&error($text{'sql_egroupclass'});
	$args->{'groupclass'} = $in{'ldap_groupclass'};
	}

# Create and test connection string
my ($str, $err);
if ($p) {
	$str = &join_userdb_string($p, $user, $pass, $host,
				   $prefix, $args);
	$err = &validate_userdb($str, 1);
	&error($err) if ($err);
	}

&webmin_log("sql");

# Make sure tables exist
$err = &validate_userdb($str, 0);
if ($err && ($p eq "mysql" || $p eq "postgresql")) {
	# Tables are missing, need to create first
	&ui_print_header(undef, $text{'sql_title2'}, "");

print &text('sql_tableerr', $err),"<p>\n";
	print $text{'sql_tableerr2'},"<br>\n";
	print &ui_form_start("maketables.cgi");
	print &ui_hidden("userdb", $str);
	print &ui_hidden("userdb_addto", $in{'addto'});
	print &ui_form_end([ [ undef, $text{'sql_make'} ] ]);

print &ui_table_start(undef, undef, 2);
	foreach my $sql (&userdb_table_sql($str)) {
		print &ui_table_row(undef,
			"<pre>".&html_escape($sql)."</pre>", 2);
		}
	print &ui_table_end();

&ui_print_footer("", $text{'index_return'});
	}
elsif ($err && $p eq "ldap") {
	# LDAP DN is missing
	&ui_print_header(undef, $text{'sql_title3'}, "");

print &text('sql_dnerr', $err),"<p>\n";
	print $text{'sql_dnerr2'},"<br>\n";
	print &ui_form_start("makedn.cgi");
	print &ui_hidden("userdb", $str);
	print &ui_hidden("userdb_addto", $in{'addto'});
	print &ui_form_end([ [ undef, $text{'sql_makedn'} ] ]);

&ui_print_footer("", $text{'index_return'});
	}
else {
	# Tables are OK, can save now
	&lock_file($ENV{'MINISERV_CONFIG'});
	$miniserv{'userdb'} = $str;
	$miniserv{'userdb_addto'} = $in{'addto'};
	$miniserv{'userdb_nocache'} = $in{'nocache'};
	if ($in{'timeout_def'}) {
		delete($miniserv{'userdb_cache_timeout'});
		}
	else {
		$in{'timeout'} =~ /^(\d+\.)?\d+$/ || &error($text{'sql_etimeout'});
		$miniserv{'userdb_cache_timeout'} = $in{'timeout'};
		}
	&put_miniserv_config(\%miniserv);
	&unlock_file($ENV{'MINISERV_CONFIG'});
	&reload_miniserv();
	&redirect("");
	}