-my $dbh = DBI->connect($dsn . $database, $user,$passwd, { RaiseError => 1, AutoCommit => 0 }) || die $DBI::errstr;
-
-# Net::LDAP::Entry will lc all our attribute names anyway, so
-# we don't really care about correctCapitalization for LDAP
-# attributes which won't pass through DBI
-my $sql_select = q{
- select
- trim(userid) as uid,
- firstname as givenName,
- surname as sn,
- concat(firstname,' ',surname) as cn,
-
- -- SAFEQ specific mappings from UMgr-LDAP.conf
- surname as displayName,
- cardnumber as pager,
- email as mail,
- categorycode as organizationalUnit,
- borrowernumber as objectGUID,
- concat('/home/',borrowernumber) as homeDirectory
- from borrowers