File Manager

X7ROOT File Manager

Current Path: /usr/libexec/webmin/passwd

📁 ..
📄 CHANGELOG(648 B)
📄 acl_security.pl(2.37 KB)
📄 change-passwd.pl(1.44 KB)
📄 change_passwd.cgi(1.6 KB)
📄 config(39 B)
📄 config-openmamba-linux(57 B)
📄 config.info(229 B)
📄 config.info.af(256 B)
📄 config.info.ar(371 B)
📄 config.info.ca(285 B)
📄 config.info.cs(288 B)
📄 config.info.de(271 B)
📄 config.info.el(456 B)
📄 config.info.es(307 B)
📄 config.info.fa(433 B)
📄 config.info.fi(261 B)
📄 config.info.fr(312 B)
📄 config.info.hr(0 B)
📄 config.info.hu(310 B)
📄 config.info.it(250 B)
📄 config.info.ja(307 B)
📄 config.info.ko(239 B)
📄 config.info.ms(259 B)
📄 config.info.nl(264 B)
📄 config.info.no(241 B)
📄 config.info.pl(231 B)
📄 config.info.ru(498 B)
📄 config.info.tr(299 B)
📄 config.info.uk(482 B)
📄 config.info.zh_TW(175 B)
📄 defaultacl(71 B)
📄 edit_passwd.cgi(1.8 KB)
📁 images
📄 index.cgi(2.74 KB)
📁 lang
📄 log_parser.pl(423 B)
📄 module.info(218 B)
📄 module.info.af(26 B)
📄 module.info.af.auto(85 B)
📄 module.info.ar(130 B)
📄 module.info.ar.auto(19 B)
📄 module.info.be(0 B)
📄 module.info.be.auto(148 B)
📄 module.info.bg(0 B)
📄 module.info.bg.auto(164 B)
📄 module.info.ca(97 B)
📄 module.info.ca.auto(15 B)
📄 module.info.cs(21 B)
📄 module.info.cs.auto(78 B)
📄 module.info.da(0 B)
📄 module.info.da.auto(104 B)
📄 module.info.de(96 B)
📄 module.info.de.auto(15 B)
📄 module.info.el(0 B)
📄 module.info.el.auto(197 B)
📄 module.info.es(31 B)
📄 module.info.es.auto(86 B)
📄 module.info.eu(0 B)
📄 module.info.eu.auto(105 B)
📄 module.info.fa(0 B)
📄 module.info.fa.auto(157 B)
📄 module.info.fi(26 B)
📄 module.info.fi.auto(87 B)
📄 module.info.fr(32 B)
📄 module.info.fr.auto(95 B)
📄 module.info.he(0 B)
📄 module.info.he.auto(117 B)
📄 module.info.hr(0 B)
📄 module.info.hr.auto(104 B)
📄 module.info.hu(32 B)
📄 module.info.hu.auto(92 B)
📄 module.info.it(24 B)
📄 module.info.it.auto(79 B)
📄 module.info.ja(33 B)
📄 module.info.ja.auto(115 B)
📄 module.info.ko(22 B)
📄 module.info.ko.auto(105 B)
📄 module.info.lt(0 B)
📄 module.info.lt.auto(112 B)
📄 module.info.lv(0 B)
📄 module.info.lv.auto(96 B)
📄 module.info.ms(88 B)
📄 module.info.ms.auto(15 B)
📄 module.info.mt(0 B)
📄 module.info.mt.auto(105 B)
📄 module.info.nl(30 B)
📄 module.info.nl.auto(84 B)
📄 module.info.no(31 B)
📄 module.info.no.auto(75 B)
📄 module.info.pl(22 B)
📄 module.info.pl.auto(76 B)
📄 module.info.pt(0 B)
📄 module.info.pt.auto(98 B)
📄 module.info.pt_BR(25 B)
📄 module.info.pt_BR.auto(81 B)
📄 module.info.ro(0 B)
📄 module.info.ro.auto(103 B)
📄 module.info.ru(21 B)
📄 module.info.ru.auto(114 B)
📄 module.info.sk(20 B)
📄 module.info.sk.auto(84 B)
📄 module.info.sl(0 B)
📄 module.info.sl.auto(105 B)
📄 module.info.sv(0 B)
📄 module.info.sv.auto(106 B)
📄 module.info.th(0 B)
📄 module.info.th.auto(190 B)
📄 module.info.tr(31 B)
📄 module.info.tr.auto(92 B)
📄 module.info.uk(0 B)
📄 module.info.uk.auto(151 B)
📄 module.info.ur(0 B)
📄 module.info.ur.auto(160 B)
📄 module.info.vi(0 B)
📄 module.info.vi.auto(145 B)
📄 module.info.zh(0 B)
📄 module.info.zh.auto(88 B)
📄 module.info.zh_TW(24 B)
📄 module.info.zh_TW.auto(73 B)
📄 passwd-lib.pl(4.76 KB)
📄 prefs.info(39 B)
📄 rbac-mapping(73 B)
📄 safeacl(47 B)
📄 save_passwd.cgi(2.88 KB)

Editing: change-passwd.pl

#!/usr/bin/perl
# change-passwd.pl
# Changes a user's password using the Users and Groups module. Also changes
# the password in other modules.

$no_acl_check++;
$ENV{'WEBMIN_CONFIG'} ||= "/etc/webmin";
$ENV{'WEBMIN_VAR'} ||= "/var/webmin";
if ($0 =~ /^(.*\/)[^\/]+$/) {
	chdir($1);
	}
chop($pwd = `pwd`);
$0 = "$pwd/change-passwd.pl";
do './passwd-lib.pl';

if ($ARGV[0] eq "--old" || $ARGV[0] eq "-old") {
	$askold = 1;
	shift(@ARGV);
	}
@ARGV == 1 || &errordie("usage: change-passwd.pl [-old] <username>");
if (&foreign_installed("useradmin") != 1) {
	&errordie("Users and Groups module is not supported on this OS");
	}

# Find the user, either in local password file or LDAP
$user = &find_user($ARGV[0]);
$user || &errordie("User $ARGV[0] does not exist");

$| = 1;
if ($askold) {
	# Ask for the old password
	&foreign_require("useradmin");
	print "(current) UNIX password: ";
	$old = <STDIN>;
	$old =~ s/\r|\n//g;
	&useradmin::validate_password($old, $user->{'pass'}) ||
		&errordie("Old password is incorrect");
	}

# Ask for password
print "New password: ";
$pass = <STDIN>;
$pass =~ s/\r|\n//g;
print "Retype new password: ";
$again = <STDIN>;
$again =~ s/\r|\n//g;
$pass eq $again || &errordie("Passwords don't match");

# Check password sanity
$err = &useradmin::check_password_restrictions($pass, $ARGV[0], $user);
&errordie($err) if ($err);

# Do the change!
&change_password($user, $pass, 1);

# All done
exit(0);

sub errordie
{
print STDERR @_,"\n";
exit(1);
}

X7ROOT File Manager

Editing: change-passwd.pl

Upload File

Create Folder