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	1.76 KB	-rw-r--r--	2026-07-17 21:17
acl_security.pl	1.19 KB	-rwxr-xr-x	2026-07-17 21:17
cgi_args.pl	838 B	-rwxr-xr-x	2026-07-17 21:17
config	104 B	-rw-r--r--	2026-07-17 21:17
config-windows	104 B	-rw-r--r--	2026-07-17 21:17
config.info	404 B	-rw-r--r--	2026-07-17 21:17
config.info.bg	736 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	464 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	438 B	-rw-r--r--	2026-07-17 21:17
config.info.de	520 B	-rw-r--r--	2026-07-17 21:17
config.info.es	377 B	-rw-r--r--	2026-07-17 21:17
config.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	510 B	-rw-r--r--	2026-07-17 21:17
config.info.hu	378 B	-rw-r--r--	2026-07-17 21:17
config.info.ja	521 B	-rw-r--r--	2026-07-17 21:17
config.info.ko	387 B	-rw-r--r--	2026-07-17 21:17
config.info.ms	0 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	451 B	-rw-r--r--	2026-07-17 21:17
config.info.no	435 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	352 B	-rw-r--r--	2026-07-17 21:17
config.info.zh_TW	169 B	-rw-r--r--	2026-07-17 21:17
defaultacl	32 B	-rw-r--r--	2026-07-17 21:17
delete.cgi	1.17 KB	-rwxr-xr-x	2026-07-17 21:22
edit_dir.cgi	4.02 KB	-rwxr-xr-x	2026-07-17 21:22
edit_group.cgi	1.3 KB	-rwxr-xr-x	2026-07-17 21:22
edit_user.cgi	1.58 KB	-rwxr-xr-x	2026-07-17 21:22
htaccess-lib.pl	3.88 KB	-rwxr-xr-x	2026-07-17 21:17
htpasswd-file-lib.pl	6.27 KB	-rwxr-xr-x	2026-07-17 21:17
index.cgi	4.49 KB	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	475 B	-rwxr-xr-x	2026-07-17 21:17
md5-lib.pl	7.73 KB	-rwxr-xr-x	2026-07-17 21:17
module.info	215 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	197 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	224 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	126 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	24 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	36 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	125 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	142 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	25 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	314 B	-rw-r--r--	2026-07-17 21:17
module.info.es	35 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	150 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	249 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	33 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	117 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	36 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	135 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	155 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	40 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	140 B	-rw-r--r--	2026-07-17 21:17
module.info.it	0 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	142 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	45 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	161 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	32 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	136 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	119 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	22 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	35 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	122 B	-rw-r--r--	2026-07-17 21:17
module.info.no	33 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	126 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	149 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	158 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	167 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	208 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	156 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	161 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	160 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	208 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	128 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	30 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	101 B	-rw-r--r--	2026-07-17 21:17
prefs.info	28 B	-rw-r--r--	2026-07-17 21:17
save_dir.cgi	8.16 KB	-rwxr-xr-x	2026-07-17 21:22
save_group.cgi	1.28 KB	-rwxr-xr-x	2026-07-17 21:22
save_user.cgi	1.69 KB	-rwxr-xr-x	2026-07-17 21:22
search.cgi	1.81 KB	-rwxr-xr-x	2026-07-17 21:22
useradmin_update.pl	1.75 KB	-rwxr-xr-x	2026-07-17 21:17

Rename

if (!$main::done_foreign_require{"htaccess_htpasswd","htaccess-lib.pl"}) {
	require 'htaccess-lib.pl';
	}

sub useradmin_create_user
{
foreach $dir (&list_directories()) {
	next if ($dir->[3] !~ /create/);
	local $users = &list_users($dir->[1]);
	local ($clash) = grep { $_->{'user'} eq $_[0]->{'user'} } @$users;
	return if ($clash);
	&lock_file($dir->[1]);
	local $user = { 'user' => $_[0]->{'user'},
			'enabled' => 1 };
	if ($_[0]->{'passmode'} == 0) {
		$user->{'pass'} = "";
		}
	elsif ($_[0]->{'passmode'} == 1) {
		$user->{'pass'} = "*LK*";
		}
	elsif ($_[0]->{'passmode'} == 2) {
		$user->{'pass'} = $_[0]->{'pass'};
		}
	else {
		$user->{'pass'} = &encrypt_password($_[0]->{'plainpass'},
						    undef, $config{'md5'});
		}
	&create_user($user, $dir->[1]);
	&unlock_file($dir->[1]);
	}
}

sub useradmin_modify_user
{
foreach $dir (&list_directories()) {
	next if ($dir->[3] !~ /update/);
	local $users = &list_users($dir->[1]);
	local ($user) = grep { $_->{'user'} eq $_[0]->{'olduser'} } @$users;
	return if (!$user);
	&lock_file($dir->[1]);
	$user->{'user'} = $_[0]->{'user'};
	if ($_[0]->{'passmode'} == 0) {
		$user->{'pass'} = "";
		}
	elsif ($_[0]->{'passmode'} == 1) {
		$user->{'pass'} = "*LK*";
		}
	elsif ($_[0]->{'passmode'} == 2) {
		$user->{'pass'} = $_[0]->{'pass'};
		}
	elsif ($_[0]->{'passmode'} == 3) {
		$user->{'pass'} = &encrypt_password($_[0]->{'plainpass'},
						    undef, $config{'md5'});
		}
	&modify_user($user);
	&unlock_file($dir->[1]);
	}
}

sub useradmin_delete_user
{
foreach $dir (&list_directories()) {
	next if ($dir->[3] !~ /update/);
	local $users = &list_users($dir->[1]);
	local ($user) = grep { $_->{'user'} eq $_[0]->{'user'} } @$users;
	return if (!$user);
	&lock_file($dir->[1]);
	&delete_user($user);
	&unlock_file($dir->[1]);
	}
}