change-user/change-user-lib.pl

   1 =head1 change-user-lib.pl
   2
   3 This module has no actual functionality of it's own, so there isn't much to
   4 say here.
   5
   6 =cut
   7
   8 BEGIN { push(@INC, ".."); };
   9 use strict;
  10 use warnings;
  11 use WebminCore;
  12 &init_config();
  13 &foreign_require("acl", "acl-lib.pl");
  14 &foreign_require("webmin", "webmin-lib.pl");
  15 our %access = &get_module_acl();
  16
  17 =head2 can_change_pass(&user)
  18
  19 Returns 1 if some user's password can be changed.
  20
  21 =cut
  22 sub can_change_pass
  23 {
  24 my ($user) = @_;
  25 return $user->{'pass'} ne 'x' && $user->{'pass'} ne 'e' && !$user->{'sync'} &&
  26        $user->{'pass'} ne "*LK*";
  27 }
  28