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
# save_passwd.cgi
# Change a user's password

require './passwd-lib.pl';
&error_setup($text{'passwd_err'});
&ReadParse();

if ($config{'passwd_cmd'}) {
	# Call the passwd program to do the change
	@user = getpwnam($in{'user'});
	@user || &error($text{'passwd_euser'});
	&can_edit_passwd(\@user) || &error($text{'passwd_ecannot'});
	if ($access{'repeat'}) {
		$in{'new'} eq $in{'repeat'} || &error($text{'passwd_erepeat'});
		}
	&foreign_require("proc", "proc-lib.pl");
	if ($access{'old'} == 1 ||
	    $access{'old'} == 2 && $in{'user'} ne $remote_user) {
		@cmd = ( $config{'passwd_cmd'}, $user[2], $user[3] );
		}
	else {
		@cmd = ( "$config{'passwd_cmd'} '$in{'user'}'" );
		}
	&additional_log('exec', undef, $cmd[0]);
	local ($fh, $fpid) = &foreign_call("proc", "pty_process_exec", @cmd);
	while(1) {
		local $rv = &wait_for($fh, '(new|re-enter).*:',
					   '(old|current|login).*:',
					   'pick a password');
		$out .= $wait_for_input;
		sleep(1);
		if ($rv == 0) {
			syswrite($fh, $in{'new'}."\n", length($in{'new'})+1);
			}
		elsif ($rv == 1) {
			syswrite($fh, $in{'old'}."\n", length($in{'old'})+1);
			}
		elsif ($rv == 2) {
			syswrite($fh, "1\n", 2);
			}
		else {
			last;
			}
		last if (++$count > 10);
		}
	close($fh);
	waitpid($fpid, 0);
	&error(&text('passwd_ecmd', "<tt>$config{'passwd_cmd'}</tt>", "<pre>$out</pre>")) if ($? || $count > 10);
	&webmin_log("passwd", undef, $in{'user'});
	}
else {
	# Update the config files directly via the useradmin module
	&foreign_require("useradmin", "user-lib.pl");

# Find the user, either in local password file or LDAP
	$user = &find_user($in{'user'});

if ($user) {
		# Validate inputs
		if ($access{'old'} == 1 ||
		    $access{'old'} == 2 && $user->{'user'} ne $remote_user) {
			&useradmin::validate_password(
			    $in{'old'}, $user->{'pass'}) ||
				&error($text{'passwd_eold'});
			}
		if ($access{'repeat'}) {
			$in{'new'} eq $in{'repeat'} || &error($text{'passwd_erepeat'});
			}
		$err = &useradmin::check_password_restrictions(
			$in{'new'}, $in{'user'}, $user);
		&error($err) if ($err);

&can_edit_passwd([ $user->{'user'}, $user->{'pass'},
				   $user->{'uid'}, $user->{'gid'} ]) ||
			&error($text{'passwd_ecannot'});

# Actually do the change
		&change_password($user, $in{'new'}, 
			$access{'others'} == 1 ||
			$access{'others'} == 2 && $in{'others'});
		}
	else {
		&error($text{'passwd_euser'});
		}
	delete($user->{'plainpass'});
	delete($user->{'pass'});
	&webmin_log("passwd", undef, $user->{'user'}, $user);
	}

# Show a confirmation message
&ui_print_header(undef, $text{'passwd_title'}, "");
if (($user->{'user'} eq $remote_user || $user->{'user'} eq $base_remote_user) &&
    !$main::session_id) {
	print &text('passwd_ok', "<tt>$user->{'user'}</tt>"),"\n";
	}
else {
	print &text('passwd_ok2', "<tt>$user->{'user'}</tt>"),"\n";
	}
&ui_print_footer($in{'one'} ? ( "/", $text{'index'} )
			    : ( "", $text{'index_return'} ));