From 12f52398d69509cd8823d1ef420e3c4d032688d3 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 31 Jul 2008 21:16:07 +0000
Subject: [PATCH] backport-ish from 1.9: blowfish apsswords exporting to LDAP
 should warn and return {CRYPT}* instead of throwing a fatal error

---
 FS/FS/svc_acct.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index 9fb72d17b..480290309 100644
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -2122,8 +2122,9 @@ sub ldap_password {
   } elsif ( $self->_password =~ /^\$1\$(.*)$/ && length($1) == 31 ) { #passwdMD5
     return '{MD5}'. $1;
   } elsif ( $self->_password =~ /^\$2a?\$(.*)$/ ) { #Blowfish
-    die "Blowfish encryption not supported in this context, svcnum ".
-        $self->svcnum. "\n";
+    warn "Blowfish encryption not supported in this context, svcnum ".
+         $self->svcnum. "\n";
+    return '{CRYPT}*'; #unsupported, should not auth
   } elsif ( $self->_password =~ /^(\w{48})$/ ) { #LDAP SSHA
     return '{SSHA}'. $1;
   } elsif ( $self->_password =~ /^(\w{64})$/ ) { #LDAP NS-MTA-MD5
-- 
2.20.1