31require
'../main.inc.php';
32require_once DOL_DOCUMENT_ROOT.
'/core/lib/admin.lib.php';
33require_once DOL_DOCUMENT_ROOT.
'/core/class/ldap.class.php';
34require_once DOL_DOCUMENT_ROOT.
'/core/lib/ldap.lib.php';
35require_once DOL_DOCUMENT_ROOT.
'/contact/class/contact.class.php';
46$langs->loadLangs(array(
"admin",
"errors"));
52$action =
GETPOST(
'action',
'aZ09');
58if ($action ==
'setvalue' ) {
137llxHeader(
'', $langs->trans(
"LDAPSetup"),
'EN:Module_LDAP_En|FR:Module_LDAP|ES:Módulo_LDAP',
'', 0, 0,
'',
'',
'',
'mod-admin page-ldap_contacts');
139$linkback =
'<a href="'.dolBuildUrl(DOL_URL_ROOT.
'/admin/modules.php', [
'restore_lastsearch_values' => 1]).
'">'.
img_picto($langs->trans(
"BackToModuleList"),
'back',
'class="pictofixedwidth"').
'<span class="hideonsmartphone">'.$langs->trans(
"BackToModuleList").
'</span></a>';
141print
load_fiche_titre($langs->trans(
"LDAPSetup"), $linkback,
'title_setup');
146if (!function_exists(
"ldap_connect")) {
147 setEventMessages($langs->trans(
"LDAPFunctionsNotAvailableOnPHP"),
null,
'errors');
153print
'<span class="opacitymedium">'.$langs->trans(
"LDAPDescContact").
'</span><br>';
156print
'<form method="post" action="'.$_SERVER[
"PHP_SELF"].
'?action=setvalue&token='.newToken().
'">';
157print
'<input type="hidden" name="token" value="'.newToken().
'">';
159print
'<table class="noborder centpercent">';
161print
'<tr class="liste_titre">';
162print
'<td colspan="4">'.$langs->trans(
"LDAPSynchronizeContacts").
'</td>';
166print
'<!-- LDAP_CONTACT_DN -->';
167print
'<tr class="oddeven"><td><span class="fieldrequired">'.$langs->trans(
"LDAPContactDn").
'</span></td><td>';
168print
'<input size="48" type="text" name="contactdn" value="' .
getDolGlobalString(
'LDAP_CONTACT_DN').
'">';
169print
'</td><td>'.$langs->trans(
"LDAPContactDnExample").
'</td>';
170print
'<td> </td>';
174print
'<!-- LDAP_CONTACT_OBJECT_CLASS -->';
175print
'<tr class="oddeven"><td><span class="fieldrequired">'.$langs->trans(
"LDAPContactObjectClassList").
'</span></td><td>';
176print
'<input size="48" type="text" name="objectclass" value="' .
getDolGlobalString(
'LDAP_CONTACT_OBJECT_CLASS').
'">';
177print
'</td><td>'.$langs->trans(
"LDAPContactObjectClassListExample").
'</td>';
178print
'<td> </td>';
183print
'<table class="noborder centpercent">';
185print
'<tr class="liste_titre">';
186print
'<td>'.$langs->trans(
"LDAPDolibarrMapping").
'</td>';
187print
'<td colspan="2">'.$langs->trans(
"LDAPLdapMapping").
'</td>';
188print
'<td class="right">'.$langs->trans(
"LDAPNamingAttribute").
'</td>';
192print
'<tr class="oddeven"><td>'.$langs->trans(
"LDAPFieldFullname").
'</td><td>';
193print
'<input size="25" type="text" name="fieldfullname" value="' .
getDolGlobalString(
'LDAP_CONTACT_FIELD_FULLNAME').
'">';
194print
'</td><td>'.$langs->trans(
"LDAPFieldFullnameExample").
'</td>';
195print
'<td class="right"><input type="radio" name="key" value="LDAP_CONTACT_FIELD_FULLNAME"'.(getDolGlobalString(
'LDAP_KEY_CONTACTS') &&
getDolGlobalString(
'LDAP_KEY_CONTACTS') ==
getDolGlobalString(
'LDAP_CONTACT_FIELD_FULLNAME') ?
' checked' :
'').
"></td>";
199print
'<tr class="oddeven"><td>'.$langs->trans(
"LDAPFieldName").
'</td><td>';
200print
'<input size="25" type="text" name="fieldname" value="' .
getDolGlobalString(
'LDAP_CONTACT_FIELD_NAME').
'">';
201print
'</td><td>'.$langs->trans(
"LDAPFieldNameExample").
'</td>';
202print
'<td class="right"><input type="radio" name="key" value="LDAP_CONTACT_FIELD_NAME"'.(getDolGlobalString(
'LDAP_KEY_CONTACTS') &&
getDolGlobalString(
'LDAP_KEY_CONTACTS') ==
getDolGlobalString(
'LDAP_CONTACT_FIELD_NAME') ?
' checked' :
'').
"></td>";
206print
'<tr class="oddeven"><td>'.$langs->trans(
"LDAPFieldFirstName").
'</td><td>';
207print
'<input size="25" type="text" name="fieldfirstname" value="' .
getDolGlobalString(
'LDAP_CONTACT_FIELD_FIRSTNAME').
'">';
208print
'</td><td>'.$langs->trans(
"LDAPFieldFirstNameExample").
'</td>';
209print
'<td class="right"><input type="radio" name="key" value="LDAP_CONTACT_FIELD_FIRSTNAME"'.(getDolGlobalString(
'LDAP_KEY_CONTACTS') &&
getDolGlobalString(
'LDAP_KEY_CONTACTS') ==
getDolGlobalString(
'LDAP_CONTACT_FIELD_FIRSTNAME') ?
' checked' :
'').
"></td>";
213print
'<tr class="oddeven"><td>'.$langs->trans(
"LDAPFieldCompany").
'</td><td>';
214print
'<input size="25" type="text" name="fieldcompany" value="' .
getDolGlobalString(
'LDAP_CONTACT_FIELD_COMPANY').
'">';
215print
'</td><td>'.$langs->trans(
"LDAPFieldCompanyExample").
'</td>';
216print
'<td class="right"><input type="radio" name="key" value="LDAP_CONTACT_FIELD_COMPANY"'.(getDolGlobalString(
'LDAP_KEY_CONTACTS') &&
getDolGlobalString(
'LDAP_KEY_CONTACTS') ==
getDolGlobalString(
'LDAP_CONTACT_FIELD_COMPANY') ?
' checked' :
'').
"></td>";
220print
'<tr class="oddeven"><td>'.$langs->trans(
"LDAPFieldMail").
'</td><td>';
221print
'<input size="25" type="text" name="fieldmail" value="' .
getDolGlobalString(
'LDAP_CONTACT_FIELD_MAIL').
'">';
222print
'</td><td>'.$langs->trans(
"LDAPFieldMailExample").
'</td>';
223print
'<td class="right"><input type="radio" name="key" value=">LDAP_CONTACT_FIELD_MAIL"'.(getDolGlobalString(
'LDAP_KEY_CONTACTS') &&
getDolGlobalString(
'LDAP_KEY_CONTACTS') ==
getDolGlobalString(
'LDAP_CONTACT_FIELD_MAIL') ?
' checked' :
'').
"></td>";
227print
'<tr class="oddeven"><td>'.$langs->trans(
"LDAPFieldPhone").
'</td><td>';
228print
'<input size="25" type="text" name="fieldphone" value="' .
getDolGlobalString(
'LDAP_CONTACT_FIELD_PHONE').
'">';
229print
'</td><td>'.$langs->trans(
"LDAPFieldPhoneExample").
'</td>';
230print
'<td class="right"><input type="radio" name="key" value="LDAP_CONTACT_FIELD_PHONE"'.(getDolGlobalString(
'LDAP_KEY_CONTACTS') &&
getDolGlobalString(
'LDAP_KEY_CONTACTS') ==
getDolGlobalString(
'LDAP_CONTACT_FIELD_PHONE') ?
' checked' :
'').
"></td>";
234print
'<tr class="oddeven"><td>'.$langs->trans(
"LDAPFieldHomePhone").
'</td><td>';
235print
'<input size="25" type="text" name="fieldhomephone" value="' .
getDolGlobalString(
'LDAP_CONTACT_FIELD_HOMEPHONE').
'">';
236print
'</td><td>'.$langs->trans(
"LDAPFieldHomePhoneExample").
'</td>';
237print
'<td class="right"><input type="radio" name="key" value="LDAP_CONTACT_FIELD_HOMEPHONE"'.(getDolGlobalString(
'LDAP_KEY_CONTACTS') &&
getDolGlobalString(
'LDAP_KEY_CONTACTS') ==
getDolGlobalString(
'LDAP_CONTACT_FIELD_HOMEPHONE') ?
' checked' :
'').
"></td>";
241print
'<tr class="oddeven"><td>'.$langs->trans(
"LDAPFieldMobile").
'</td><td>';
242print
'<input size="25" type="text" name="fieldmobile" value="' .
getDolGlobalString(
'LDAP_CONTACT_FIELD_MOBILE').
'">';
243print
'</td><td>'.$langs->trans(
"LDAPFieldMobileExample").
'</td>';
244print
'<td class="right"><input type="radio" name="key" value="LDAP_CONTACT_FIELD_MOBILE"'.(getDolGlobalString(
'LDAP_KEY_CONTACTS') &&
getDolGlobalString(
'LDAP_KEY_CONTACTS') ==
getDolGlobalString(
'LDAP_CONTACT_FIELD_MOBILE') ?
' checked' :
'').
"></td>";
248print
'<tr class="oddeven"><td>'.$langs->trans(
"LDAPFieldFax").
'</td><td>';
249print
'<input size="25" type="text" name="fieldfax" value="' .
getDolGlobalString(
'LDAP_CONTACT_FIELD_FAX').
'">';
250print
'</td><td>'.$langs->trans(
"LDAPFieldFaxExample").
'</td>';
251print
'<td class="right"><input type="radio" name="key" value="LDAP_CONTACT_FIELD_FAX"'.(getDolGlobalString(
'LDAP_KEY_CONTACTS') &&
getDolGlobalString(
'LDAP_KEY_CONTACTS') ==
getDolGlobalString(
'LDAP_CONTACT_FIELD_FAX') ?
' checked' :
'').
"></td>";
255print
'<tr class="oddeven"><td>'.$langs->trans(
"LDAPFieldAddress").
'</td><td>';
256print
'<input size="25" type="text" name="fieldaddress" value="' .
getDolGlobalString(
'LDAP_CONTACT_FIELD_ADDRESS').
'">';
257print
'</td><td>'.$langs->trans(
"LDAPFieldAddressExample").
'</td>';
258print
'<td class="right"><input type="radio" name="key" value="LDAP_CONTACT_FIELD_ADDRESS"'.(getDolGlobalString(
'LDAP_KEY_CONTACTS') &&
getDolGlobalString(
'LDAP_KEY_CONTACTS') ==
getDolGlobalString(
'LDAP_CONTACT_FIELD_ADDRESS') ?
' checked' :
'').
"></td>";
262print
'<tr class="oddeven"><td>'.$langs->trans(
"LDAPFieldZip").
'</td><td>';
263print
'<input size="25" type="text" name="fieldzip" value="' .
getDolGlobalString(
'LDAP_CONTACT_FIELD_ZIP').
'">';
264print
'</td><td>'.$langs->trans(
"LDAPFieldZipExample").
'</td>';
265print
'<td class="right"><input type="radio" name="key" value="LDAP_CONTACT_FIELD_ZIP"'.(getDolGlobalString(
'LDAP_KEY_CONTACTS') &&
getDolGlobalString(
'LDAP_KEY_CONTACTS') ==
getDolGlobalString(
'LDAP_CONTACT_FIELD_ZIP') ?
' checked' :
'').
"></td>";
269print
'<tr class="oddeven"><td>'.$langs->trans(
"LDAPFieldTown").
'</td><td>';
270print
'<input size="25" type="text" name="fieldtown" value="' .
getDolGlobalString(
'LDAP_CONTACT_FIELD_TOWN').
'">';
271print
'</td><td>'.$langs->trans(
"LDAPFieldTownExample").
'</td>';
272print
'<td class="right"><input type="radio" name="key" value="LDAP_CONTACT_FIELD_TOWN"'.(getDolGlobalString(
'LDAP_KEY_CONTACTS') &&
getDolGlobalString(
'LDAP_KEY_CONTACTS') ==
getDolGlobalString(
'LDAP_CONTACT_FIELD_TOWN') ?
' checked' :
'').
"></td>";
276print
'<tr class="oddeven"><td>'.$langs->trans(
"LDAPFieldCountry").
'</td><td>';
277print
'<input size="25" type="text" name="fieldcountry" value="' .
getDolGlobalString(
'LDAP_CONTACT_FIELD_COUNTRY').
'">';
278print
'</td><td> </td>';
279print
'<td class="right"><input type="radio" name="key" value="LDAP_CONTACT_FIELD_COUNTRY"'.(getDolGlobalString(
'LDAP_KEY_CONTACTS') &&
getDolGlobalString(
'LDAP_KEY_CONTACTS') ==
getDolGlobalString(
'LDAP_CONTACT_FIELD_COUNTRY') ?
' checked' :
'').
"></td>";
284print
info_admin($langs->trans(
"LDAPDescValues"));
288print $form->buttonsSaveCancel(
"Modify",
'');
296$butlabel = $langs->trans(
"LDAPTestSynchroContact");
305if (function_exists(
"ldap_connect")) {
306 if ($action ==
'test') {
313 $result = $ldap->connectBind();
316 $info =
$object->_load_ldap_info();
317 $dn =
$object->_load_ldap_dn($info);
319 $result1 = $ldap->delete($dn);
320 $result2 = $ldap->add($dn, $info, $user);
321 $result3 = $ldap->delete($dn);
325 print
'<span class="ok">'.$langs->trans(
"LDAPSynchroOK").
'</span><br>';
328 print
'<span class="error">'.$langs->trans(
"LDAPSynchroKOMayBePermissions");
329 print
': '.$ldap->error;
331 print $langs->trans(
"ErrorLDAPMakeManualTest",
$conf->ldap->dir_temp).
'<br>';
335 print
"LDAP input file used for test:<br><br>\n";
336 print nl2br($ldap->dumpContent($dn, $info));
340 print
'<span class="error">'.$langs->trans(
"LDAPSynchroKO");
341 print
': '.$ldap->error;
343 print $langs->trans(
"ErrorLDAPMakeManualTest",
$conf->ldap->dir_temp).
'<br>';
if(! $sortfield) if(! $sortorder) $object
dolibarr_set_const($db, $name, $value, $type='chaine', $visible=0, $note='', $entity=1)
Insert a parameter (key,value) into database (delete old key then insert it again).
llxFooter($comment='', $zone='private', $disabledoutputofmessages=0)
Empty footer.
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader($head='', $title='', $help_url='', $target='', $disablejs=0, $disablehead=0, $arrayofjs='', $arrayofcss='', $morequerystring='', $morecssonbody='', $replacemainareaby='', $disablenofollow=0, $disablenoindex=0)
Empty header.
Class to manage LDAP features.
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0, $attop=0)
Set event messages in dol_events session object.
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2, $allowothertags=array())
Show picto whatever it's its name (generic function)
info_admin($text, $infoonimgalt=0, $nodiv=0, $admin='1', $morecss='hideonsmartphone', $textfordropdown='', $picto='', $textonpictotooltip='')
Show information in HTML for admin users or standard users.
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='', $dragdropfile=0, $morecssdiv='')
Show tabs of a record.
dol_get_fiche_end($notab=0)
Return tab footer of a card.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
load_fiche_titre($title, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='', $morecssonpicto='widthpictotitle')
Load a title with picto.
getDolGlobalString($key, $default='')
Return a Dolibarr global constant string value.
ldap_prepare_head()
Initialize the array of tabs for customer invoice.
show_ldap_test_button($butlabel, $testlabel, $key, $dn, $objectclass)
Show button test LDAP synchro.
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.