From 96c1150cabe382dbafbdc8f4e89a2719fe24d605 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 20 Nov 2002 21:13:52 +0000
Subject: [PATCH] add objectclass and ability to have multiple comma-separated
 values to LDAP export

---
 FS/FS/part_export.pm      | 1 +
 FS/FS/part_export/ldap.pm | 5 +++++
 2 files changed, 6 insertions(+)

diff --git a/FS/FS/part_export.pm b/FS/FS/part_export.pm
index 79fe91396..86bd4240e 100644
--- a/FS/FS/part_export.pm
+++ b/FS/FS/part_export.pm
@@ -745,6 +745,7 @@ tie my %ldap_options, 'Tie::IxHash',
                       'userpassword $crypt_password',
                       'hint',
                       'answer $sec_phrase',
+                      'objectclass top,person,inetOrgPerson',
                     ),
                   },
   'radius'     => { label=>'Export RADIUS attributes', type=>'checkbox', },
diff --git a/FS/FS/part_export/ldap.pm b/FS/FS/part_export/ldap.pm
index 6ff9abe12..a28504313 100644
--- a/FS/FS/part_export/ldap.pm
+++ b/FS/FS/part_export/ldap.pm
@@ -208,7 +208,12 @@ sub ldap_queue {
 sub ldap_insert { #subroutine, not method
   my $ldap = ldap_connect(shift, (my $dn = shift), shift);
   my( $username_attrib, %attrib ) = @_;
+
   $dn = "$username_attrib=$attrib{$username_attrib}, $dn" if $username_attrib;
+  #icky hack, but should be unsurprising to the LDAPers
+  foreach my $key ( grep { $attrib{$_} =~ /,/ } keys %attrib ) {
+    $attrib{$key} = [ split(/,/, $attrib{$key}) ]; 
+  }
 
   my $status = $ldap->add( $dn, attrs => [ %attrib ] );
   die $status->error if $status->is_error;
-- 
2.11.0