* Copyright (C) 2006-2021 Regis Houssin * Copyright (C) 2024 Alexandre Spangaro * * 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 . */ /** * \file htdocs/adherents/ldap.php * \ingroup ldap member * \brief Page fiche LDAP adherent */ // Load Dolibarr environment require '../main.inc.php'; require_once DOL_DOCUMENT_ROOT.'/core/lib/member.lib.php'; require_once DOL_DOCUMENT_ROOT.'/core/lib/ldap.lib.php'; require_once DOL_DOCUMENT_ROOT.'/core/class/ldap.class.php'; require_once DOL_DOCUMENT_ROOT.'/adherents/class/adherent.class.php'; require_once DOL_DOCUMENT_ROOT.'/adherents/class/adherent_type.class.php'; // Load translation files required by the page $langs->loadLangs(array("companies", "members", "ldap", "admin")); $id = GETPOSTINT('id'); $ref = GETPOST('ref', 'alphanohtml'); $action = GETPOST('action', 'aZ09'); // Protection $socid = 0; if ($user->socid > 0) { $socid = $user->socid; } $object = new Adherent($db); // Fetch object if ($id > 0 || !empty($ref)) { // Load member $result = $object->fetch($id, $ref); // Define variables to know what current user can do on users $canadduser = (!empty($user->admin) || $user->hasRight('user', 'user', 'creer')); // Define variables to know what current user can do on properties of user linked to edited member if ($object->user_id) { // $User is the user who edits, $object->user_id is the id of the related user in the edited member $caneditfielduser = ((($user->id == $object->user_id) && $user->hasRight('user', 'self', 'creer')) || (($user->id != $object->user_id) && $user->hasRight('user', 'user', 'creer'))); $caneditpassworduser = ((($user->id == $object->user_id) && $user->hasRight('user', 'self', 'password')) || (($user->id != $object->user_id) && $user->hasRight('user', 'user', 'password'))); } } // Define variables to determine what the current user can do on the members $canaddmember = $user->hasRight('adherent', 'creer'); // Define variables to determine what the current user can do on the properties of a member if ($id) { $caneditfieldmember = $user->hasRight('adherent', 'creer'); } // Security check $result = restrictedArea($user, 'adherent', $object->id, '', '', 'socid', 'rowid', 0); /* * Actions */ if ($action == 'dolibarr2ldap') { $ldap = new Ldap(); $result = $ldap->connectBind(); if ($result > 0) { $info = $object->_load_ldap_info(); $dn = $object->_load_ldap_dn($info); $olddn = $dn; // We can say that old dn = dn as we force synchro $result = $ldap->update($dn, $info, $user, $olddn); } if ($result >= 0) { setEventMessages($langs->trans("MemberSynchronized"), null, 'mesgs'); } else { setEventMessages($ldap->error, $ldap->errors, 'errors'); } } /* * View */ $form = new Form($db); $title = $langs->trans("Member"); $help_url = 'EN:Module_Foundations|FR:Module_Adhérents|ES:Módulo_Miembros|DE:Modul_Mitglieder'; llxHeader('', $title, $help_url, '', 0, 0, '', '', '', 'mod-member page-card_ldap'); $head = member_prepare_head($object); print dol_get_fiche_head($head, 'ldap', $langs->trans("Member"), 0, 'user'); $linkback = ''.$langs->trans("BackToList").''; dol_banner_tab($object, 'rowid', $linkback); print '

'; print '

'; print ''; // Login print ''; // If there is a link to the unencrypted password, we show the value in database here so we can compare because it is shown nowhere else // This is for very old situation. Password are now encrypted and $object->pass is empty. if (getDolGlobalString('LDAP_MEMBER_FIELD_PASSWORD')) { print ''; print ''; print "\n"; } $adht = new AdherentType($db); $adht->fetch($object->typeid); // Type print '\n"; // LDAP DN print '\n"; // LDAP Cle print '\n"; // LDAP Server print '\n"; print '\n"; print '\n"; print '\n"; print '\n"; print '

'.$langs->trans("Login").' / '.$langs->trans("Id").'	'.dol_escape_htmltag($object->login).'
'.$langs->trans("LDAPFieldPasswordNotCrypted").'	'.dol_escape_htmltag($object->pass).'
'.$langs->trans("Type").'	'.$adht->getNomUrl(1)."
LDAP '.$langs->trans("LDAPMemberDn").'	'.getDolGlobalString('LDAP_MEMBER_DN')."
LDAP '.$langs->trans("LDAPNamingAttribute").'	'.getDolGlobalString('LDAP_KEY_MEMBERS')."
LDAP '.$langs->trans("Type").'	'.getDolGlobalString('LDAP_SERVER_TYPE')."
LDAP '.$langs->trans("Version").'	'.getDolGlobalString('LDAP_SERVER_PROTOCOLVERSION')."
LDAP '.$langs->trans("LDAPPrimaryServer").'	'.getDolGlobalString('LDAP_SERVER_HOST')."
LDAP '.$langs->trans("LDAPSecondaryServer").'	'.getDolGlobalString('LDAP_SERVER_HOST_SLAVE')."
LDAP '.$langs->trans("LDAPServerPort").'	'.getDolGlobalString('LDAP_SERVER_PORT')."

'; print '

'; print dol_get_fiche_end(); /* * Action bar */ print '

'; if (getDolGlobalString('LDAP_MEMBER_ACTIVE') && getDolGlobalString('LDAP_MEMBER_ACTIVE') != Ldap::SYNCHRO_LDAP_TO_DOLIBARR) { print '

'.$langs->trans("ForceSynchronize").'

'; } print "

\n"; if (getDolGlobalString('LDAP_MEMBER_ACTIVE') && getDolGlobalString('LDAP_MEMBER_ACTIVE') != Ldap::SYNCHRO_LDAP_TO_DOLIBARR) { print "
\n"; } // Affichage attributes LDAP print load_fiche_titre($langs->trans("LDAPInformationsForThisMember")); print ''; print ''; print ''; print ''; print ''; // Lecture LDAP $ldap = new Ldap(); $result = $ldap->connectBind(); if ($result > 0) { $info = $object->_load_ldap_info(); $dn = $object->_load_ldap_dn($info, 1); $search = "(".$object->_load_ldap_dn($info, 2).")"; if (empty($dn)) { $langs->load("errors"); print ''; } else { $records = $ldap->getAttribute($dn, $search); //print_r($records); // Show tree if (((!is_numeric($records)) || $records != 0) && (!isset($records['count']) || $records['count'] > 0)) { if (!is_array($records)) { print ''; } else { $result = show_ldap_content($records, 0, $records['count'], true); } } else { print ''; } } $ldap->unbind(); } else { setEventMessages($ldap->error, $ldap->errors, 'errors'); } print '

'.$langs->trans("LDAPAttributes").'	'.$langs->trans("Value").'
'.$langs->trans("ErrorModuleSetupNotComplete", $langs->transnoentitiesnoconv("Member")).'
'.$langs->trans("ErrorFailedToReadLDAP").'
'.$langs->trans("LDAPRecordNotFound").' (dn='.dol_escape_htmltag($dn).' - search='.dol_escape_htmltag($search).')

'; // End of page llxFooter(); $db->close();