From: ivan Date: Thu, 3 Oct 2002 15:29:14 +0000 (+0000) Subject: fix implicit RADIUS password attribute to be Crypt-Password for encrypted pw's X-Git-Tag: freeside_1_4_1beta4~20^2~4 X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=b3c55b5f123b1b5c8ebedfa1826cbf19a0dcc013;p=freeside.git fix implicit RADIUS password attribute to be Crypt-Password for encrypted pw's --- diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index 44f3ef45f..6c0807df2 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -857,7 +857,9 @@ expected to change in the future. sub radius_check { my $self = shift; - ( 'Password' => $self->_password, + my $password = $self->_password; + my $pw_attrib = length($password) <= 12 ? 'Password' : 'Crypt-Password'; + ( $pw_attrib => $password, map { /^(rc_(.*))$/; my($column, $attrib) = ($1, $2);