diff options
author | Mark Wells <mark@freeside.biz> | 2016-02-08 16:09:28 -0800 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2016-02-08 16:11:02 -0800 |
commit | a19a04f0b684c64039c03216d398af534c858bf9 (patch) | |
tree | 2ede1cb36cfb029d888616a37ac8af6f8028a762 /FS/FS/Password_Mixin.pm | |
parent | 169c72822ed292c03b61e536f1028830fdea9dbc (diff) |
make password-insecure option work when adding a new svc_acct, #40236
Diffstat (limited to 'FS/FS/Password_Mixin.pm')
-rw-r--r-- | FS/FS/Password_Mixin.pm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/FS/FS/Password_Mixin.pm b/FS/FS/Password_Mixin.pm index 3fb787c..47290b5 100644 --- a/FS/FS/Password_Mixin.pm +++ b/FS/FS/Password_Mixin.pm @@ -43,6 +43,16 @@ sub is_password_allowed { my $self = shift; my $password = shift; + my $cust_main = $self->cust_main; + + # workaround for non-inserted services + if ( !$cust_main and $self->get('pkgnum') ) { + my $cust_pkg = FS::cust_pkg->by_key($self->get('pkgnum')); + $cust_main = $cust_pkg->cust_main if $cust_pkg; + } + warn "is_password_allowed: no customer could be identified" if !$cust_main; + return '' if $cust_main && $conf->config_bool('password-insecure', $cust_main->agentnum); + # basic checks using Data::Password; # options for Data::Password $DICTIONARY = 4; # minimum length of disallowed words |