mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
31 lines
620 B
Perl
Executable File
31 lines
620 B
Perl
Executable File
=head1 change-user-lib.pl
|
|
|
|
This module has no actual functionality of it's own, so there isn't much to
|
|
say here.
|
|
|
|
=cut
|
|
|
|
BEGIN { push(@INC, ".."); };
|
|
use strict;
|
|
use warnings;
|
|
no warnings 'redefine';
|
|
no warnings 'uninitialized';
|
|
use WebminCore;
|
|
&init_config();
|
|
&foreign_require("acl", "acl-lib.pl");
|
|
&foreign_require("webmin", "webmin-lib.pl");
|
|
our %access = &get_module_acl();
|
|
|
|
=head2 can_change_pass(&user)
|
|
|
|
Returns 1 if some user's password can be changed.
|
|
|
|
=cut
|
|
sub can_change_pass
|
|
{
|
|
my ($user) = @_;
|
|
return $user->{'pass'} ne 'x' && $user->{'pass'} ne 'e' && !$user->{'sync'} &&
|
|
$user->{'pass'} ne "*LK*";
|
|
}
|
|
|