- 

#!/usr/bin/perl

# Copyright 2012 BibLibre

#

# This file is part of Koha.

#

# Koha is free software; you can redistribute it and/or modify it under the

# terms of the GNU General Public License as published by the Free Software

# Foundation; either version 2 of the License, or (at your option) any later

# version.

#

# Koha is distributed in the hope that it will be useful, but WITHOUT ANY

# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR

# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License along

# with Koha; if not, write to the Free Software Foundation, Inc.,

# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

=head1 NAME

update_patrons_from_LDAP.pl - cron script to pre-populate borrowers data from LDAP

=head1 SYNOPSIS

./update_patrons_from_LDAP.pl 

or, in crontab:

0 1 * * * ${PERL5LIB}/misc/cronjobs/update_patrons_from_LDAP.pl

=head1 DESCRIPTION

This script preload borrowers data from LDAP 

It therefore uses a user that has read permission on user data.

Or performs an anonymous login, and then uses the data to preload users.

=cut

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;

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 $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;

#Pb a) Search the whole annuary

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