# basic checks using Data::Password;
# options for Data::Password
$DICTIONARY = 0; # minimum length of disallowed words, false value disables dictionary checking
- $MINLEN = $conf->config('passwordmin') || 6;
+ $MINLEN = $conf->config('passwordmin') || 8;
$MAXLEN = $conf->config('passwordmax') || 12;
$GROUPS = 4; # must have all 4 'character groups': numbers, symbols, uppercase, lowercase
# other options use the defaults listed below:
return '' unless $self->get($self->primary_key); # for validating new passwords pre-insert
#check against customer fields
- my $cust_main = $self->cust_main;
+ my $cust_main = $self->table eq 'access_user'
+ ? $self->user_cust_main
+ : $self->cust_main;
if ($cust_main) {
my @words;
# words from cust_main