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
# Show password change form

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

@user = getpwnam($in{'user'});
@user || &error($text{'passwd_euser'});
&can_edit_passwd(\@user) || &error($text{'passwd_ecannot'});
&ui_print_header(undef, $text{'passwd_title'}, "");

print &ui_form_start("save_passwd.cgi", "post");
print &ui_hidden("user", $user[0]);
print &ui_hidden("one", $in{'one'});
print &ui_table_start($text{'passwd_header'}, undef, 2);

# Login and real name
%uconfig = &foreign_config("useradmin");
$user[6] =~ s/,.*$// if ($uconfig{'extra_real'});
$user[6] =~ s/,+$//;
print &ui_table_row($text{'passwd_for'},
	&html_escape($user[0].( $user[6] ? " ($user[6])" : "" )));

# Old password field
if ($access{'old'} == 1 ||
    $access{'old'} == 2 && $user[0] ne $remote_user) {
	print &ui_table_row($text{'passwd_old'},
		&ui_password("old", undef, 30));
	}

# New password
print &ui_table_row($text{'passwd_new'},
	&ui_password("new", undef, 30));

# New password again
if ($access{'repeat'}) {
	print &ui_table_row($text{'passwd_repeat'},
		&ui_password("repeat", undef, 30));
	}

# Force change at next login
if (!$config{'passwd_cmd'} && $access{'expire'}) {
	&foreign_require("useradmin", "user-lib.pl");
	$pft = &useradmin::passfiles_type();
	($uuser) = grep { $_->{'user'} eq $in{'user'} }
			&useradmin::list_users();
	if ($uuser->{'max'} && ($pft == 2 || $pft == 5)) {
		print &ui_table_row(" ",
			&ui_checkbox("expire", 1, $text{'passwd_expire'}, 0));
		}
	}

# Change in other modules
if ($access{'others'} == 2) {
	print &ui_table_row(" ",
		&ui_checkbox("others", 1, $text{'passwd_others'}, 1));
	}

print &ui_table_end();
print &ui_form_end([ [ undef, $text{'passwd_change'} ] ]);

&ui_print_footer($in{'one'} ? ( "/", $text{'index'} ) :
			      ( "", $text{'index_return'} ));