mirror of
https://github.com/webmin/webmin.git
synced 2026-02-17 12:12:17 +00:00
16 lines
327 B
Perl
16 lines
327 B
Perl
# change-user-lib.pl
|
|
|
|
do '../web-lib.pl';
|
|
&init_config();
|
|
do '../ui-lib.pl';
|
|
&foreign_require("acl", "acl-lib.pl");
|
|
&foreign_require("webmin", "webmin-lib.pl");
|
|
%access = &get_module_acl();
|
|
|
|
sub can_change_pass
|
|
{
|
|
return $_[0]->{'pass'} ne 'x' && $_[0]->{'pass'} ne 'e' && !$_[0]{'sync'} &&
|
|
$_[0]->{'pass'} ne "*LK*";
|
|
}
|
|
|