summaryrefslogtreecommitdiff
path: root/FS/FS/svc_acct.pm
diff options
context:
space:
mode:
Diffstat (limited to 'FS/FS/svc_acct.pm')
-rw-r--r--FS/FS/svc_acct.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index b8e9cfc4e..480549908 100644
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -10,6 +10,7 @@ use vars qw( @ISA $noexport_hack $conf
$mydomain
$welcome_template $welcome_from $welcome_subject $welcome_mimetype
$smtpmachine
+ $radius_password
$dirhash
@saltset @pw_set );
use Carp;
@@ -64,6 +65,7 @@ $FS::UID::callback{'FS::svc_acct'} = sub {
$welcome_template = '';
}
$smtpmachine = $conf->config('smtpmachine');
+ $radius_password = $conf->config('radius-password') || 'Password';
};
@saltset = ( 'a'..'z' , 'A'..'Z' , '0'..'9' , '.' , '/' );
@@ -867,7 +869,7 @@ expected to change in the future.
sub radius_check {
my $self = shift;
my $password = $self->_password;
- my $pw_attrib = length($password) <= 12 ? 'Password' : 'Crypt-Password';
+ my $pw_attrib = length($password) <= 12 ? $radius_password : 'Crypt-Password';
( $pw_attrib => $self->_password,
map {
/^(rc_(.*))$/;