From a115863f936c9ecc31eca24816cccf3cc9556628 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Thu, 2 Sep 2004 16:25:20 +0000
Subject: [PATCH] some fixes for LDAP (more to come)

---
 C4/Auth.pm | 34 ++++++++++++++++++++++++++++++++--
 1 file changed, 32 insertions(+), 2 deletions(-)

diff --git a/C4/Auth.pm b/C4/Auth.pm
index 4774198091..f3599b8235 100644
--- a/C4/Auth.pm
+++ b/C4/Auth.pm
@@ -359,9 +359,9 @@ sub checkpw {
 	if ($ldapserver) {
 		my $ldapinfos = C4::Context->preferences('ldapinfos');
 		my %bindargs;
-		my $nom  = "uid=$userid, $ldapinfos";
+		my $name  = "uid=$userid, $ldapinfos";
 		my $db = Net::LDAP->new( $ldapserver );
-		$bindargs{dn}=$nom;
+		$bindargs{dn}=$name;
 		$bindargs{password}=$password;
 		my $res =$db->bind(%bindargs);
 		if($res->code) {
@@ -375,6 +375,36 @@ sub checkpw {
 				my $cardnumber = $sth->fetchrow;
 				#we have the cardnumber
 				return 1,$cardnumber;
+			} else {
+				# retrieve the LDAP informations & create the user
+				my $borrower = $db->search(base => %bindargs,
+							filter => "(sn=$userid)",
+							);
+				 my $href = $borrower->as_struct;
+				# get an array of the DN names
+				my @arrayOfDNs  = keys %$href;        # use DN hashes
+				# process each DN using it as a key
+				my %borrower;
+				foreach ( @arrayOfDNs ) {
+					print $_, "\n";
+					my $valref = $$href{$_};
+					# get an array of the attribute names
+					# passed for this one DN.
+					my @arrayOfAttrs = sort keys %$valref; #use Attr hashes
+					my $attrName;        
+					foreach $attrName (@arrayOfAttrs) {
+						# skip any binary data: yuck!
+						next if ( $attrName =~ /;binary$/ );
+						# get the attribute value (pointer) using the
+						# attribute name as the hash
+						my $attrVal =  @$valref{$attrName};
+						print "\t $attrName: @$attrVal \n";
+						$borrower{$attrName}= @$attrVal;
+					}
+				}
+				# create the user in Koha DB
+				newmember(%borrower);
+				
 			}
 			if ($userid eq C4::Context->config('user') && $password eq C4::Context->config('pass')) {
 				# Koha superuser account
-- 
2.39.5