* Copyright (C) 2006-2017 Regis Houssin * Copyright (C) 2019 Frédéric France * * 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/user/group/ldap.php * \ingroup ldap * \brief Page Record LDAP Group */ // Load Dolibarr environment require '../../main.inc.php'; require_once DOL_DOCUMENT_ROOT.'/user/class/usergroup.class.php'; require_once DOL_DOCUMENT_ROOT.'/contact/class/contact.class.php'; require_once DOL_DOCUMENT_ROOT.'/core/lib/usergroups.lib.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 page $langs->loadLangs(array('companies', 'ldap', 'users', 'admin')); $id = GETPOSTINT('id'); $action = GETPOST('action', 'aZ09'); $socid = 0; if ($user->socid > 0) { $socid = $user->socid; } $object = new UserGroup($db); $object->fetch($id, '', true); $object->loadRights(); // Users/Groups management only in master entity if transverse mode if (isModEnabled('multicompany') && $conf->entity > 1 && getDolGlobalString('MULTICOMPANY_TRANSVERSE_MODE')) { accessforbidden(); } $permissiontoread = true; if (getDolGlobalString('MAIN_USE_ADVANCED_PERMS')) { $permissiontoread = (!empty($user->admin) || $user->hasRight('user', 'group_advance', 'read')); } /* * Actions */ if ($action == 'dolibarr2ldap') { $ldap = new Ldap(); $result = $ldap->connectBind(); if ($result > 0) { $info = $object->_load_ldap_info(); // Get a gid number for objectclass PosixGroup if none was provided if (empty($info[getDolGlobalString('LDAP_GROUP_FIELD_GROUPID')]) && in_array('posixGroup', $info['objectclass'])) { $info['gidNumber'] = $ldap->getNextGroupGid('LDAP_KEY_GROUPS'); } $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("GroupSynchronized"), null, 'mesgs'); } else { setEventMessages($ldap->error, $ldap->errors, 'errors'); } } /* * View */ $form = new Form($db); $title = $object->name." - ".$langs->trans('LDAP'); $help_url = ''; llxHeader('', $title, $help_url, '', 0, 0, '', '', '', 'mod-user page-group_ldap'); $head = group_prepare_head($object); print dol_get_fiche_head($head, 'ldap', $langs->trans("Group"), -1, 'group'); $linkback = ''.$langs->trans("BackToList").''; dol_banner_tab($object, 'id', $linkback, ($user->hasRight('user', 'user', 'lire') || !empty($user->admin))); print '

'; print '

'; print ''; // Name (already in dol_banner, we keep it to have the GlobalGroup picto, but we should move it in dol_banner) if (!empty($conf->mutlicompany->enabled)) { print ''; print '\n"; } // Note print ''; print ''; print "\n"; // LDAP DN print '\n"; // LDAP Cle print '\n"; // LDAP Server print '\n"; print '\n"; print '\n"; print "

'.$langs->trans("Name").'	'.$object->name; if (!$object->entity) { print img_picto($langs->trans("GlobalGroup"), 'redstar'); } print "
'.$langs->trans("Description").'	'; print dol_string_onlythesehtmltags(dol_htmlentitiesbr($object->note)); print '
LDAP '.$langs->trans("LDAPGroupDn").'	'.getDolGlobalString('LDAP_GROUP_DN')."
LDAP '.$langs->trans("LDAPNamingAttribute").'	'.getDolGlobalString('LDAP_KEY_GROUPS')."
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')."

\n"; print '

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

'; if (getDolGlobalInt('LDAP_SYNCHRO_ACTIVE') === Ldap::SYNCHRO_DOLIBARR_TO_LDAP) { print ''.$langs->trans("ForceSynchronize").''; } print "

\n"; if (getDolGlobalInt('LDAP_SYNCHRO_ACTIVE') === Ldap::SYNCHRO_DOLIBARR_TO_LDAP) { print "
\n"; } // Affichage attributes LDAP print load_fiche_titre($langs->trans("LDAPInformationsForThisGroup")); 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).")"; $records = $ldap->getAttribute($dn, $search); //var_dump($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("ErrorFailedToReadLDAP").'
'.$langs->trans("LDAPRecordNotFound").' (dn='.dol_escape_htmltag($dn).' - search='.dol_escape_htmltag($search).')

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