mirror of
https://github.com/Dolibarr/dolibarr.git
synced 2025-12-22 01:11:21 +01:00
58ba3e31fa
# Qual: Fix spelling for crypted and referer. The proper spelling is encrypted and referrer, but the code has some occurences where referer and crypted need to be maintained. To make verification easier, this spelling correction is limited to mostly these corrections and some minor translations and a only a few other corrections. crypted and referer are added as exceptions for spelling after this fix. Co-authored-by: Laurent Destailleur <eldy@destailleur.fr>
535 lines
22 KiB
PHP
535 lines
22 KiB
PHP
<?php
|
|
/* Copyright (C) 2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
|
* Copyright (C) 2004 Sebastien Di Cintio <sdicintio@ressource-toi.org>
|
|
* Copyright (C) 2004 Benoit Mortier <benoit.mortier@opensides.be>
|
|
* Copyright (C) 2005 Regis Houssin <regis.houssin@inodbox.com>
|
|
* Copyright (C) 2006-2011 Laurent Destailleur <eldy@users.sourceforge.net>
|
|
* Copyright (C) 2011-2016 Juanjo Menent <jmenent@2byte.es>
|
|
* Copyright (C) 2019 Abbes Bahfir <dolipar@dolipar.org>
|
|
*
|
|
* This program 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 3 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program 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 this program. If not, see <https://www.gnu.org/licenses/>.
|
|
*/
|
|
|
|
/**
|
|
* \file htdocs/admin/ldap_users.php
|
|
* \ingroup ldap
|
|
* \brief Page d'administration/configuration du module Ldap
|
|
*/
|
|
|
|
// Load Dolibarr environment
|
|
require '../main.inc.php';
|
|
require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php';
|
|
require_once DOL_DOCUMENT_ROOT.'/user/class/user.class.php';
|
|
require_once DOL_DOCUMENT_ROOT.'/user/class/usergroup.class.php';
|
|
require_once DOL_DOCUMENT_ROOT.'/core/class/ldap.class.php';
|
|
require_once DOL_DOCUMENT_ROOT.'/core/lib/ldap.lib.php';
|
|
|
|
// Load translation files required by the page
|
|
$langs->loadLangs(array('admin', 'errors'));
|
|
|
|
if (!$user->admin) {
|
|
accessforbidden();
|
|
}
|
|
|
|
$action = GETPOST('action', 'aZ09');
|
|
|
|
/*
|
|
* Actions
|
|
*/
|
|
|
|
if ($action == 'setvalue' && $user->admin) {
|
|
$error = 0;
|
|
$db->begin();
|
|
|
|
if (!dolibarr_set_const($db, 'LDAP_USER_DN', GETPOST("user"), 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
if (!dolibarr_set_const($db, 'LDAP_USER_OBJECT_CLASS', GETPOST("objectclass"), 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
if (!dolibarr_set_const($db, 'LDAP_FILTER_CONNECTION', GETPOST("filterconnection"), 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
if (!dolibarr_set_const($db, 'LDAP_FIELD_FULLNAME', GETPOST("fieldfullname"), 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
if (!dolibarr_set_const($db, 'LDAP_FIELD_LOGIN', GETPOST("fieldlogin"), 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
if (!dolibarr_set_const($db, 'LDAP_FIELD_LOGIN_SAMBA', GETPOST("fieldloginsamba"), 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
if (!dolibarr_set_const($db, 'LDAP_FIELD_PASSWORD', GETPOST("fieldpassword"), 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
if (!dolibarr_set_const($db, 'LDAP_FIELD_PASSWORD_CRYPTED', GETPOST("fieldpasswordcrypted"), 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
if (!dolibarr_set_const($db, 'LDAP_FIELD_NAME', GETPOST("fieldname"), 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
if (!dolibarr_set_const($db, 'LDAP_FIELD_FIRSTNAME', GETPOST("fieldfirstname"), 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
if (!dolibarr_set_const($db, 'LDAP_FIELD_MAIL', GETPOST("fieldmail"), 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
if (!dolibarr_set_const($db, 'LDAP_FIELD_PHONE', GETPOST("fieldphone"), 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
if (!dolibarr_set_const($db, 'LDAP_FIELD_MOBILE', GETPOST("fieldmobile"), 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
if (!dolibarr_set_const($db, 'LDAP_FIELD_FAX', GETPOST("fieldfax"), 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
if (!dolibarr_set_const($db, 'LDAP_FIELD_COMPANY', GETPOST("fieldcompany"), 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
if (!dolibarr_set_const($db, 'LDAP_FIELD_ADDRESS', GETPOST("fieldaddress"), 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
if (!dolibarr_set_const($db, 'LDAP_FIELD_ZIP', GETPOST("fieldzip"), 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
if (!dolibarr_set_const($db, 'LDAP_FIELD_TOWN', GETPOST("fieldtown"), 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
if (!dolibarr_set_const($db, 'LDAP_FIELD_COUNTRY', GETPOST("fieldcountry"), 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
if (!dolibarr_set_const($db, 'LDAP_FIELD_DESCRIPTION', GETPOST("fielddescription"), 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
if (!dolibarr_set_const($db, 'LDAP_FIELD_SID', GETPOST("fieldsid"), 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
if (!dolibarr_set_const($db, 'LDAP_FIELD_TITLE', GETPOST("fieldtitle"), 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
if (!dolibarr_set_const($db, 'LDAP_FIELD_GROUPID', GETPOST("fieldgroupid"), 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
if (!dolibarr_set_const($db, 'LDAP_FIELD_USERID', GETPOST("fielduserid"), 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
if (!dolibarr_set_const($db, 'LDAP_FIELD_HOMEDIRECTORY', GETPOST("fieldhomedirectory"), 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
if (!dolibarr_set_const($db, 'LDAP_FIELD_HOMEDIRECTORYPREFIX', GETPOST("fieldhomedirectoryprefix"), 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
|
|
// This one must be after the others
|
|
$valkey = '';
|
|
$key = GETPOST("key");
|
|
if ($key) {
|
|
$valkey = getDolGlobalString($key);
|
|
}
|
|
if (!dolibarr_set_const($db, 'LDAP_KEY_USERS', $valkey, 'chaine', 0, '', $conf->entity)) {
|
|
$error++;
|
|
}
|
|
|
|
if (!$error) {
|
|
$db->commit();
|
|
setEventMessages($langs->trans("SetupSaved"), null, 'mesgs');
|
|
} else {
|
|
$db->rollback();
|
|
dol_print_error($db);
|
|
}
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
* Visu
|
|
*/
|
|
|
|
$form = new Form($db);
|
|
|
|
llxHeader('', $langs->trans("LDAPSetup"), 'EN:Module_LDAP_En|FR:Module_LDAP|ES:Módulo_LDAP');
|
|
$linkback = '<a href="'.DOL_URL_ROOT.'/admin/modules.php?restore_lastsearch_values=1">'.$langs->trans("BackToModuleList").'</a>';
|
|
|
|
print load_fiche_titre($langs->trans("LDAPSetup"), $linkback, 'title_setup');
|
|
|
|
$head = ldap_prepare_head();
|
|
|
|
// Test if the LDAP functionality is available
|
|
if (!function_exists("ldap_connect")) {
|
|
setEventMessages($langs->trans("LDAPFunctionsNotAvailableOnPHP"), null, 'errors');
|
|
}
|
|
|
|
|
|
print '<form method="post" action="'.$_SERVER["PHP_SELF"].'?action=setvalue&token='.newToken().'">';
|
|
print '<input type="hidden" name="token" value="'.newToken().'">';
|
|
|
|
|
|
print dol_get_fiche_head($head, 'users', '', -1);
|
|
|
|
print '<span class="opacitymedium">'.$langs->trans("LDAPDescUsers").'</span><br>';
|
|
print '<br>';
|
|
|
|
|
|
print '<table class="noborder centpercent">';
|
|
|
|
print '<tr class="liste_titre">';
|
|
print '<td colspan="4">'.$langs->trans("LDAPSynchronizeUsers").'</td>';
|
|
print "</tr>\n";
|
|
|
|
// DN (Domain Name) for the users
|
|
print '<!-- LDAP_USER_DN -->';
|
|
print '<tr class="oddeven"><td><span class="fieldrequired">'.$langs->trans("LDAPUserDn").'</span></td><td>';
|
|
print '<input size="48" type="text" name="user" value="'.getDolGlobalString('LDAP_USER_DN').'">';
|
|
print '</td><td>'.$langs->trans("LDAPUserDnExample").'</td>';
|
|
print '<td> </td>';
|
|
print '</tr>';
|
|
|
|
// List of object class used to define attributes in structure
|
|
print '<!-- LDAP_USER_OBJECT_CLASS -->';
|
|
print '<tr class="oddeven"><td><span class="fieldrequired">'.$langs->trans("LDAPUserObjectClassList").'</span></td><td>';
|
|
print '<input size="48" type="text" name="objectclass" value="'.getDolGlobalString('LDAP_USER_OBJECT_CLASS').'">';
|
|
print '</td><td>'.$langs->trans("LDAPUserObjectClassListExample").'</td>';
|
|
print '<td> </td>';
|
|
print '</tr>';
|
|
|
|
// Filter, used to filter search
|
|
print '<!-- LDAP_FILTER_CONNECTION -->';
|
|
print '<tr class="oddeven"><td>'.$langs->trans("LDAPFilterConnection").'</td><td>';
|
|
print '<input size="48" type="text" name="filterconnection" value="'.getDolGlobalString('LDAP_FILTER_CONNECTION').'">';
|
|
print '</td><td>'.$langs->trans("LDAPFilterConnectionExample").'</td>';
|
|
print '<td></td>';
|
|
print '</tr>';
|
|
|
|
print '</table>';
|
|
print '<br>';
|
|
print '<table class="noborder centpercent">';
|
|
|
|
print '<tr class="liste_titre">';
|
|
print '<td>'.$langs->trans("LDAPDolibarrMapping").'</td>';
|
|
print '<td colspan="2">'.$langs->trans("LDAPLdapMapping").'</td>';
|
|
print '<td class="right">'.$langs->trans("LDAPNamingAttribute").'</td>';
|
|
print "</tr>\n";
|
|
|
|
// Common name
|
|
print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldFullname").'</td><td>';
|
|
print '<input size="25" type="text" name="fieldfullname" value="'.getDolGlobalString('LDAP_FIELD_FULLNAME').'">';
|
|
print '</td><td>'.$langs->trans("LDAPFieldFullnameExample").'</td>';
|
|
print '<td class="right"><input type="radio" name="key" value="LDAP_FIELD_FULLNAME"'.(getDolGlobalString('LDAP_KEY_USERS') == getDolGlobalString('LDAP_FIELD_FULLNAME') ? ' checked' : '')."></td>";
|
|
print '</tr>';
|
|
|
|
// Name
|
|
print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldName").'</td><td>';
|
|
print '<input size="25" type="text" name="fieldname" value="'.getDolGlobalString('LDAP_FIELD_NAME').'">';
|
|
print '</td><td>'.$langs->trans("LDAPFieldNameExample").'</td>';
|
|
print '<td class="right"><input type="radio" name="key" value="LDAP_FIELD_NAME"'.(getDolGlobalString('LDAP_KEY_USERS') == getDolGlobalString('LDAP_FIELD_NAME') ? ' checked' : '')."></td>";
|
|
print '</tr>';
|
|
|
|
// Firstname
|
|
print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldFirstName").'</td><td>';
|
|
print '<input size="25" type="text" name="fieldfirstname" value="'.getDolGlobalString('LDAP_FIELD_FIRSTNAME').'">';
|
|
print '</td><td>'.$langs->trans("LDAPFieldFirstNameExample").'</td>';
|
|
print '<td class="right"><input type="radio" name="key" value="LDAP_FIELD_FIRSTNAME"'.(getDolGlobalString('LDAP_KEY_USERS') == getDolGlobalString('LDAP_FIELD_FIRSTNAME') ? ' checked' : '')."></td>";
|
|
print '</tr>';
|
|
|
|
// Login unix
|
|
print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldLoginUnix").'</td><td>';
|
|
print '<input size="25" type="text" name="fieldlogin" value="'.getDolGlobalString('LDAP_FIELD_LOGIN').'">';
|
|
print '</td><td>'.$langs->trans("LDAPFieldLoginExample").'</td>';
|
|
print '<td class="right"><input type="radio" name="key" value="LDAP_FIELD_LOGIN"'.(getDolGlobalString('LDAP_KEY_USERS') == getDolGlobalString('LDAP_FIELD_LOGIN') ? ' checked' : '')."></td>";
|
|
print '</tr>';
|
|
|
|
// Login samba
|
|
print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldLoginSamba").'</td><td>';
|
|
print '<input size="25" type="text" name="fieldloginsamba" value="'.getDolGlobalString('LDAP_FIELD_LOGIN_SAMBA').'">';
|
|
print '</td><td>'.$langs->trans("LDAPFieldLoginSambaExample").'</td>';
|
|
print '<td class="right"><input type="radio" name="key" value="LDAP_FIELD_LOGIN_SAMBA"'.(getDolGlobalString('LDAP_KEY_USERS') == getDolGlobalString('LDAP_FIELD_LOGIN_SAMBA') ? ' checked' : '')."></td>";
|
|
print '</tr>';
|
|
|
|
// Password not encrypted
|
|
print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldPasswordNotCrypted").'</td><td>';
|
|
print '<input size="25" type="text" name="fieldpassword" value="'.getDolGlobalString('LDAP_FIELD_PASSWORD').'">';
|
|
print '</td><td>'.$langs->trans("LDAPFieldPasswordExample").'</td>';
|
|
print '<td class="right"> </td>';
|
|
print '</tr>';
|
|
|
|
// Password encrypted
|
|
print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldPasswordCrypted").'</td><td>';
|
|
print '<input size="25" type="text" name="fieldpasswordcrypted" value="'.getDolGlobalString('LDAP_FIELD_PASSWORD_CRYPTED').'">';
|
|
print '</td><td>'.$langs->trans("LDAPFieldPasswordExample").'</td>';
|
|
print '<td class="right"> </td>';
|
|
print '</tr>';
|
|
|
|
// Mail
|
|
print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldMail").'</td><td>';
|
|
print '<input size="25" type="text" name="fieldmail" value="'.getDolGlobalString('LDAP_FIELD_MAIL').'">';
|
|
print '</td><td>'.$langs->trans("LDAPFieldMailExample").'</td>';
|
|
print '<td class="right"><input type="radio" name="key" value="LDAP_FIELD_MAIL"'.(getDolGlobalString('LDAP_KEY_USERS') == getDolGlobalString('LDAP_FIELD_MAIL') ? ' checked' : '')."></td>";
|
|
print '</tr>';
|
|
|
|
// Phone
|
|
print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldPhone").'</td><td>';
|
|
print '<input size="25" type="text" name="fieldphone" value="'.getDolGlobalString('LDAP_FIELD_PHONE').'">';
|
|
print '</td><td>'.$langs->trans("LDAPFieldPhoneExample").'</td>';
|
|
print '<td class="right"><input type="radio" name="key" value="LDAP_FIELD_PHONE"'.(getDolGlobalString('LDAP_KEY_USERS') == getDolGlobalString('LDAP_FIELD_PHONE') ? ' checked' : '')."></td>";
|
|
print '</tr>';
|
|
|
|
// Mobile
|
|
print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldMobile").'</td><td>';
|
|
print '<input size="25" type="text" name="fieldmobile" value="'.getDolGlobalString('LDAP_FIELD_MOBILE').'">';
|
|
print '</td><td>'.$langs->trans("LDAPFieldMobileExample").'</td>';
|
|
print '<td class="right"><input type="radio" name="key" value="LDAP_FIELD_MOBILE"'.(getDolGlobalString('LDAP_KEY_USERS') == getDolGlobalString('LDAP_FIELD_MOBILE') ? ' checked' : '')."></td>";
|
|
print '</tr>';
|
|
|
|
// Fax
|
|
print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldFax").'</td><td>';
|
|
print '<input size="25" type="text" name="fieldfax" value="'.getDolGlobalString('LDAP_FIELD_FAX').'">';
|
|
print '</td><td>'.$langs->trans("LDAPFieldFaxExample").'</td>';
|
|
print '<td class="right"><input type="radio" name="key" value="LDAP_FIELD_FAX"'.(getDolGlobalString('LDAP_KEY_USERS') == getDolGlobalString('LDAP_FIELD_FAX') ? ' checked' : '')."></td>";
|
|
print '</tr>';
|
|
|
|
// Company
|
|
print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldCompany").'</td><td>';
|
|
print '<input size="25" type="text" name="fieldcompany" value="'.getDolGlobalString('LDAP_FIELD_COMPANY').'">';
|
|
print '</td><td>'.$langs->trans("LDAPFieldCompanyExample").'</td>';
|
|
print '<td class="right"> </td>';
|
|
print '</tr>';
|
|
|
|
// Address
|
|
print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldAddress").'</td><td>';
|
|
print '<input size="25" type="text" name="fieldaddress" value="'.getDolGlobalString('LDAP_FIELD_ADDRESS').'">';
|
|
print '</td><td>'.$langs->trans("LDAPFieldAddressExample").'</td>';
|
|
print '<td class="right"> </td>';
|
|
print '</tr>';
|
|
|
|
// ZIP
|
|
print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldZip").'</td><td>';
|
|
print '<input size="25" type="text" name="fieldzip" value="'.getDolGlobalString('LDAP_FIELD_ZIP').'">';
|
|
print '</td><td>'.$langs->trans("LDAPFieldZipExample").'</td>';
|
|
print '<td class="right"> </td>';
|
|
print '</tr>';
|
|
|
|
// TOWN
|
|
print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldTown").'</td><td>';
|
|
print '<input size="25" type="text" name="fieldtown" value="'.getDolGlobalString('LDAP_FIELD_TOWN').'">';
|
|
print '</td><td>'.$langs->trans("LDAPFieldTownExample").'</td>';
|
|
print '<td class="right"> </td>';
|
|
print '</tr>';
|
|
|
|
// COUNTRY
|
|
print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldCountry").'</td><td>';
|
|
print '<input size="25" type="text" name="fieldcountry" value="'.getDolGlobalString('LDAP_FIELD_COUNTRY').'">';
|
|
print '</td><td> </td>';
|
|
print '<td class="right"> </td>';
|
|
print '</tr>';
|
|
|
|
// Title
|
|
print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldTitle").'</td><td>';
|
|
print '<input size="25" type="text" name="fieldtitle" value="'.getDolGlobalString('LDAP_FIELD_TITLE').'">';
|
|
print '</td><td>'.$langs->trans("LDAPFieldTitleExample").'</td>';
|
|
print '<td class="right"> </td>';
|
|
print '</tr>';
|
|
|
|
// Note
|
|
print '<tr class="oddeven"><td>'.$langs->trans("Note").'</td><td>';
|
|
print '<input size="25" type="text" name="fielddescription" value="'.getDolGlobalString('LDAP_FIELD_DESCRIPTION').'">';
|
|
print '</td><td>'.$langs->trans("LDAPFieldDescriptionExample").'</td>';
|
|
print '<td class="right"> </td>';
|
|
print '</tr>';
|
|
|
|
// Sid
|
|
print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldSid").'</td><td>';
|
|
print '<input size="25" type="text" name="fieldsid" value="'.getDolGlobalString('LDAP_FIELD_SID').'">';
|
|
print '</td><td>'.$langs->trans("LDAPFieldSidExample").'</td>';
|
|
print '<td class="right"><input type="radio" name="key" value="LDAP_FIELD_SID"'.(getDolGlobalString('LDAP_KEY_USERS') == getDolGlobalString('LDAP_FIELD_SID') ? ' checked' : '')."></td>";
|
|
print '</tr>';
|
|
|
|
// Group id
|
|
print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldGroupid").'</td><td>';
|
|
print '<input size="25" type="text" name="fieldgroupid" value="'.getDolGlobalString('LDAP_FIELD_GROUPID').'">';
|
|
print '</td><td>'.$langs->trans("LDAPFieldGroupidExample").'</td>';
|
|
print '<td class="right"> </td>';
|
|
print '</tr>';
|
|
|
|
// Userid
|
|
print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldUserid").'</td><td>';
|
|
print '<input size="25" type="text" name="fielduserid" value="'.getDolGlobalString('LDAP_FIELD_USERID').'">';
|
|
print '</td><td>'.$langs->trans("LDAPFieldUseridExample").'</td>';
|
|
print '<td class="right"> </td>';
|
|
print '</tr>';
|
|
|
|
// Home Directory
|
|
print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldHomedirectory").'</td><td>';
|
|
print '<input size="25" type="text" name="fieldhomedirectory" value="'.getDolGlobalString('LDAP_FIELD_HOMEDIRECTORY').'">';
|
|
print '</td><td>'.$langs->trans("LDAPFieldHomedirectoryExample").'</td>';
|
|
print '<td class="right"> </td>';
|
|
print '</tr>';
|
|
|
|
// Home Directory Prefix
|
|
print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldHomedirectoryprefix").'</td><td>';
|
|
print '<input size="25" type="text" name="fieldhomedirectoryprefix" value="'.getDolGlobalString('LDAP_FIELD_HOMEDIRECTORYPREFIX').'">';
|
|
print '</td><td></td>';
|
|
print '<td class="right"> </td>';
|
|
print '</tr>';
|
|
|
|
print '</table>';
|
|
|
|
print info_admin($langs->trans("LDAPDescValues"));
|
|
|
|
print dol_get_fiche_end();
|
|
|
|
print $form->buttonsSaveCancel("Modify", '');
|
|
|
|
print '</form>';
|
|
|
|
|
|
/*
|
|
* Test de la connection
|
|
*/
|
|
if (getDolGlobalString('LDAP_SYNCHRO_ACTIVE') == Ldap::SYNCHRO_DOLIBARR_TO_LDAP) {
|
|
$butlabel = $langs->trans("LDAPTestSynchroUser");
|
|
$testlabel = 'testuser';
|
|
$key = getDolGlobalString('LDAP_KEY_USERS');
|
|
$dn = getDolGlobalString('LDAP_USER_DN');
|
|
$objectclass = getDolGlobalString('LDAP_USER_OBJECT_CLASS');
|
|
|
|
show_ldap_test_button($butlabel, $testlabel, $key, $dn, $objectclass);
|
|
} elseif (getDolGlobalString('LDAP_SYNCHRO_ACTIVE') == Ldap::SYNCHRO_LDAP_TO_DOLIBARR) {
|
|
$butlabel = $langs->trans("LDAPTestSearch");
|
|
$testlabel = 'testsearchuser';
|
|
$key = getDolGlobalString('LDAP_KEY_USERS');
|
|
$dn = getDolGlobalString('LDAP_USER_DN');
|
|
$objectclass = getDolGlobalString('LDAP_USER_OBJECT_CLASS');
|
|
show_ldap_test_button($butlabel, $testlabel, $key, $dn, $objectclass);
|
|
}
|
|
|
|
if (function_exists("ldap_connect")) {
|
|
if ($action == 'testuser') {
|
|
// Create object
|
|
$object = new User($db);
|
|
$object->initAsSpecimen();
|
|
|
|
// TODO Mutualize code following with other ldap_xxxx.php pages
|
|
|
|
// Test synchro
|
|
$ldap = new Ldap();
|
|
$result = $ldap->connect_bind();
|
|
|
|
if ($result > 0) {
|
|
$info = $object->_load_ldap_info();
|
|
$dn = $object->_load_ldap_dn($info);
|
|
|
|
$result1 = $ldap->delete($dn); // To be sure to delete existing records
|
|
$result2 = $ldap->add($dn, $info, $user); // Now the test
|
|
$result3 = $ldap->delete($dn); // Clean what we did
|
|
|
|
if ($result2 > 0) {
|
|
print img_picto('', 'info').' ';
|
|
print '<span class="ok">'.$langs->trans("LDAPSynchroOK").'</span><br>';
|
|
} else {
|
|
print img_picto('', 'error').' ';
|
|
print '<span class="error">'.$langs->trans("LDAPSynchroKOMayBePermissions");
|
|
print ': '.$ldap->error;
|
|
print '</span><br>';
|
|
print $langs->trans("ErrorLDAPMakeManualTest", $conf->ldap->dir_temp).'<br>';
|
|
}
|
|
|
|
print "<br>\n";
|
|
print "LDAP input file used for test:<br><br>\n";
|
|
print nl2br($ldap->dump_content($dn, $info));
|
|
print "\n<br>";
|
|
} else {
|
|
print img_picto('', 'error').' ';
|
|
print '<span class="error">'.$langs->trans("LDAPSynchroKO");
|
|
print ': '.$ldap->error;
|
|
print '</span><br>';
|
|
print $langs->trans("ErrorLDAPMakeManualTest", $conf->ldap->dir_temp).'<br>';
|
|
}
|
|
}
|
|
|
|
if ($action == 'testsearchuser') {
|
|
// Create object
|
|
$object = new User($db);
|
|
$object->initAsSpecimen();
|
|
|
|
// TODO Mutualize code following with other ldap_xxxx.php pages
|
|
|
|
// Test synchro
|
|
$ldap = new Ldap();
|
|
$result = $ldap->connect_bind();
|
|
|
|
if ($result > 0) {
|
|
$required_fields = array(
|
|
getDolGlobalString('LDAP_KEY_USERS'),
|
|
getDolGlobalString('LDAP_FIELD_FULLNAME'),
|
|
getDolGlobalString('LDAP_FIELD_NAME'),
|
|
getDolGlobalString('LDAP_FIELD_FIRSTNAME'),
|
|
getDolGlobalString('LDAP_FIELD_LOGIN'),
|
|
getDolGlobalString('LDAP_FIELD_LOGIN_SAMBA'),
|
|
getDolGlobalString('LDAP_FIELD_PASSWORD'),
|
|
getDolGlobalString('LDAP_FIELD_PASSWORD_CRYPTED'),
|
|
getDolGlobalString('LDAP_FIELD_PHONE'),
|
|
getDolGlobalString('LDAP_FIELD_FAX'),
|
|
getDolGlobalString('LDAP_FIELD_SKYPE'),
|
|
getDolGlobalString('LDAP_FIELD_MOBILE'),
|
|
getDolGlobalString('LDAP_FIELD_MAIL'),
|
|
getDolGlobalString('LDAP_FIELD_TITLE'),
|
|
getDolGlobalString('LDAP_FIELD_DESCRIPTION'),
|
|
getDolGlobalString('LDAP_FIELD_SID')
|
|
);
|
|
|
|
// Remove from required_fields all entries not configured in LDAP (empty) and duplicated
|
|
$required_fields = array_unique(array_values(array_filter($required_fields, "dol_validElement")));
|
|
|
|
// Get from LDAP database an array of results by making a search on
|
|
// $filter = '('.ldap_escape(getDolGlobalString('LDAP_KEY_USERS'), '', LDAP_ESCAPE_FILTER).'=*)';
|
|
$ldapusers = $ldap->getRecords('*', getDolGlobalString('LDAP_USER_DN'), getDolGlobalString('LDAP_KEY_USERS'), $required_fields, 1);
|
|
|
|
if (is_array($ldapusers)) {
|
|
$liste = array();
|
|
foreach ($ldapusers as $key => $ldapuser) {
|
|
// Define the label string for this user
|
|
$label = '';
|
|
foreach ($required_fields as $value) {
|
|
if ($value) {
|
|
$label .= $value."=".$ldapuser[$value]." ";
|
|
}
|
|
}
|
|
$liste[$key] = $label;
|
|
}
|
|
} else {
|
|
setEventMessages($ldap->error, $ldap->errors, 'errors');
|
|
}
|
|
|
|
print "<br>\n";
|
|
print "LDAP search for user:<br>\n";
|
|
print "search: *<br>\n";
|
|
print "userDN: ".getDolGlobalString('LDAP_USER_DN')."<br>\n";
|
|
print "useridentifier: ".getDolGlobalString('LDAP_KEY_USERS')."<br>\n";
|
|
print "requested fields: ".implode(',', $required_fields)."<br>\n";
|
|
print "=> ".count($liste)." records<br>\n";
|
|
print "\n<br>";
|
|
} else {
|
|
print img_picto('', 'error').' ';
|
|
print '<span class="error">'.$langs->trans("LDAPSynchroKO");
|
|
print ': '.$ldap->error;
|
|
print '</span><br>';
|
|
print $langs->trans("ErrorLDAPMakeManualTest", $conf->ldap->dir_temp).'<br>';
|
|
}
|
|
}
|
|
}
|
|
|
|
// End of page
|
|
llxFooter();
|
|
$db->close();
|