- 

#!/usr/bin/perl

use Net::LDAP;

use Net::LDAP::Filter;

use C4::Auth_with_ldap;

use C4::Members;

use C4::Context;

use C4::Debug;

use YAML;

use strict;

my $dbh = C4::Context->dbh;

## La bonne façon de faire serait d'exporter les variables de Auth_with_ldap et de les utiliser directement Je pense.

#Copier coller du début du script.

my $ldap     = C4::Context->config("ldapserver") or die 'No "ldapserver" in server hash from KOHA_CONF: ' . $ENV{KOHA_CONF};

my $prefhost = $ldap->{hostname}                 or die ldapserver_error('hostname');

my $base     = $ldap->{base}                     or die ldapserver_error('base');

my $ldapname = $ldap->{user};

my $ldappassword = $ldap->{pass};

our %mapping = %{ $ldap->{mapping} };

$debug && warn Dump($ldap);

# Infos to do an anonymous bind

my %config = (

    anonymous => ( $ldapname and $ldappassword ) ? 0 : 1,

    replicate => defined( $ldap->{replicate} ) ? $ldap->{replicate} : 1,    #    add from LDAP to Koha database for new user

    update    => defined( $ldap->{update} )    ? $ldap->{update}    : 1,    # update from LDAP to Koha database for existing user

);

my @hosts = split( ',', $prefhost );

my $db = Net::LDAP->new( \@hosts );

unless ($db) {

    warn " host $ldap doesnot exist !";

    return 0;

}

my $res = ( $config{anonymous} ) ? $db->bind : $db->bind( $ldapname, password => $ldappassword );

warn "LDAP Auth impossible : server not responding" if ( $res->code );

## based on Koha Members

#my $filter = Net::LDAP::Filter->new("uid=*");

my $filter = Net::LDAP::Filter->new("uid=*");

my $userdnsearch = $db->search( base => $base, filter => $filter );

$userdnsearch->code and die $userdnsearch->error;

while ( my $userldapentry = $userdnsearch->shift_entry ) {

    #warn Data::Dumper::Dumper($userldapentry);

    my $uid_field = $mapping{userid}->{is} or die ldapserver_error("mapping for 'userid'");

    my $userid = $userldapentry->{$uid_field};

    $debug && warn Dump($userldapentry);

    my %borrower = C4::Auth_with_ldap::ldap_entry_2_hash( $userldapentry, $userid );

    $debug and print "checkpw_ldap received \%borrower w/ " . keys(%borrower), " keys: ", join( ' ', keys %borrower ), "\n";

    my ( $borrowernumber, $cardnumber, $savedpw );

    ( $borrowernumber, $cardnumber, $userid, $savedpw ) = C4::Auth_with_ldap::exists_local( $borrower{'userid'} );

    if ($borrowernumber) {

        ( $config{update} ) and my $c2 = C4::Auth_with_ldap::update_local( $userid, "!", $borrowernumber, \%borrower ) || '';

        ( $cardnumber eq $c2 ) or warn "update_local returned cardnumber '$c2' instead of '$cardnumber'";

    } else {

        if ( $config{replicate} ) {

            $borrowernumber = eval { AddMember(%borrower) };

            if ($@) {

                warn Dump(%borrower), " $@";

            }

        }

    }

}

$db->unbind;

### NOTICE It could also rely on data in LDAP and populate the data in Koha...

#Pb a) Search the whole annuary

# b) Adds data that could be useless in Koha.