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	648 B	-rw-r--r--	2026-07-17 21:17
acl_security.pl	2.37 KB	-rwxr-xr-x	2026-07-17 21:17
change-passwd.pl	1.44 KB	-rwxr-xr-x	2026-07-17 21:22
change_passwd.cgi	1.6 KB	-rwxr-xr-x	2026-07-17 21:22
config	39 B	-rw-r--r--	2026-07-17 21:17
config-openmamba-linux	57 B	-rw-r--r--	2026-07-17 21:17
config.info	229 B	-rw-r--r--	2026-07-17 21:17
config.info.ar	371 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	285 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	288 B	-rw-r--r--	2026-07-17 21:17
config.info.de	271 B	-rw-r--r--	2026-07-17 21:17
config.info.el	456 B	-rw-r--r--	2026-07-17 21:17
config.info.es	307 B	-rw-r--r--	2026-07-17 21:17
config.info.fa	433 B	-rw-r--r--	2026-07-17 21:17
config.info.fi	261 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	312 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	310 B	-rw-r--r--	2026-07-17 21:17
config.info.it	250 B	-rw-r--r--	2026-07-17 21:17
config.info.ja	307 B	-rw-r--r--	2026-07-17 21:17
config.info.ko	239 B	-rw-r--r--	2026-07-17 21:17
config.info.ms	259 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	264 B	-rw-r--r--	2026-07-17 21:17
config.info.no	241 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	231 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	498 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	299 B	-rw-r--r--	2026-07-17 21:17
config.info.uk	482 B	-rw-r--r--	2026-07-17 21:17
config.info.zh_TW	175 B	-rw-r--r--	2026-07-17 21:17
defaultacl	71 B	-rw-r--r--	2026-07-17 21:17
edit_passwd.cgi	1.8 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	2.74 KB	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	423 B	-rwxr-xr-x	2026-07-17 21:17
module.info	218 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	130 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	0 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	164 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	97 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	15 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	21 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	78 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	104 B	-rw-r--r--	2026-07-17 21:17
module.info.de	96 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	15 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	197 B	-rw-r--r--	2026-07-17 21:17
module.info.es	31 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	86 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	105 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	157 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	87 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	32 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	95 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	104 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	32 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	92 B	-rw-r--r--	2026-07-17 21:17
module.info.it	24 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	79 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	33 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	115 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	22 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	105 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	88 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	15 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	30 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	84 B	-rw-r--r--	2026-07-17 21:17
module.info.no	31 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	75 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	22 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	76 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	98 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	25 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	81 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	21 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	114 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	20 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	84 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	106 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	31 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	92 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	151 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	88 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	24 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	73 B	-rw-r--r--	2026-07-17 21:17
passwd-lib.pl	4.76 KB	-rwxr-xr-x	2026-07-17 21:17
prefs.info	39 B	-rw-r--r--	2026-07-17 21:17
rbac-mapping	73 B	-rw-r--r--	2026-07-17 21:17
safeacl	47 B	-rw-r--r--	2026-07-17 21:17
save_passwd.cgi	2.88 KB	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# Display a list of users whose passwords can be changed

require './passwd-lib.pl';

# Show an error if we don't know how to change passwords
if (!$config{'passwd_cmd'} && !&foreign_check("useradmin")) {
	&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1);
	print "$text{'index_euseradmin'}\n";
	&ui_print_footer("/", $text{'index'});
	exit;
	}

if ($access{'mode'} == 1) {
	if ($access{'users'} =~ /^\S+$/) {
		# Just one user - go to him
		&redirect("edit_passwd.cgi?user=$access{'users'}&one=1");
		exit;
		}
	map { $ucan{$_}++ } split(/\s+/, $access{'users'});
	}
elsif ($access{'mode'} == 2) {
	map { $ucannot{$_}++ } split(/\s+/, $access{'users'});
	}
elsif ($access{'mode'} == 3) {
	# Just this user - go to him
	&redirect("edit_passwd.cgi?user=$remote_user&one=1");
	exit;
	}
elsif ($access{'mode'} == 5) {
	%notusers = map { $_, 1 } split(/\s+/, $access{'notusers'});
	foreach $g (split(/\s+/, $access{'groups'})) {
		@g = getgrnam($g);
		$gcan{$g[2]}++;
		if ($access{'sec'}) {
			foreach $m (split(/\s+/, $g[3])) {
				$insec{$m}++;
				}
			}
		}
	}

&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1);

# Show all unix users who can be edited
setpwent();
my %doneu;
while(local @u = getpwent()) {
	next if ($doneu{$u[0]}++);
	if ($access{'mode'} == 0 ||
	 $access{'mode'} == 1 && $ucan{$u[0]} ||
	 $access{'mode'} == 2 && !$ucannot{$u[0]} ||
	 $access{'mode'} == 5 && ($gcan{$u[3]} ||
				 $access{'sec'} && $insec{$u[0]}) &&
				 !$notusers{$u[0]} ||
	 $access{'mode'} == 6 && $u[0] =~ /$access{'users'}/ ||
	 $access{'mode'} == 4 &&
		(!$access{'low'} || $u[2] >= $access{'low'}) &&
		(!$access{'high'} || $u[2] <= $access{'high'})) {
		push(@ulist, \@u);
		if ($config{'max_users'} && @ulist > $config{'max_users'}) {
			# Reached limit already .. no need to go on
			last;
			}
		}
	}
endpwent() if ($gconfig{'os_type'} ne 'hpux');
if ($config{'sort_mode'}) {
	@ulist = sort { lc($a->[0]) cmp lc($b->[0]) } @ulist;
	}
if ($config{'max_users'} && @ulist > $config{'max_users'}) {
	# Show as form for entering a username
	print "$text{'index_toomany'} \n";
	print &ui_form_start("edit_passwd.cgi");
	print &ui_submit($text{'index_user'});
	if ($config{'input_type'}) {
		print &ui_select("user", undef,
				 [ map { $_->[0] } @ulist ]);
		}
	else {
		print &ui_user_textbox("user");
		}
	print &ui_form_end();
	}
elsif (@ulist) {
	# Show as table of users
	@grid = ( );
	for($i=0; $i<@ulist; $i++) {
		push(@grid, &ui_link("edit_passwd.cgi?user=".&urlize($ulist[$i]->[0]), &html_escape($ulist[$i]->[0]) ) );
		}
	print &ui_grid_table(\@grid, 4, 100, undef, undef,
			 $text{'index_header'});
	}
else {
	# No users available
	print "$text{'index_none'}\n";
	}

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