my $self = shift;
my $password = shift;
- my $cust_main = $self->cust_main;
+ my $cust_main = $self->table eq 'access_user'
+ ? $self->user_cust_main
+ : $self->cust_main;
# workaround for non-inserted services
if ( !$cust_main and $self->get('pkgnum') ) {
}
} else {
- warn "unrecognized password encoding '$encoding'; treating as plain text"
- unless $encoding eq 'plain';
+ if ($encoding and $encoding ne 'plain') {
+ warn "unrecognized password encoding '$encoding'; treating as plain text";
+ }
$auth = $self->_blowfishcrypt( $password );