From 54733ad0d4e802f8076216ce68e6b72123481af2 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 3 Oct 2002 15:29:12 +0000
Subject: fix implicit RADIUS password attribute to be Crypt-Password for
 encrypted pw's

---
 FS/FS/svc_acct.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index 5228f6c40..b8e9cfc4e 100644
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -866,7 +866,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 => $self->_password,
     map {
       /^(rc_(.*))$/;
       my($column, $attrib) = ($1, $2);
-- 
cgit v1.2.1