ldap_members.php 20 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491
  1. <?php
  2. /* Copyright (C) 2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
  3. * Copyright (C) 2004 Sebastien Di Cintio <sdicintio@ressource-toi.org>
  4. * Copyright (C) 2004 Benoit Mortier <benoit.mortier@opensides.be>
  5. * Copyright (C) 2005-2017 Regis Houssin <regis.houssin@inodbox.com>
  6. * Copyright (C) 2006-2008 Laurent Destailleur <eldy@users.sourceforge.net>
  7. * Copyright (C) 2011-2013 Juanjo Menent <jmenent@2byte.es>
  8. *
  9. * This program is free software; you can redistribute it and/or modify
  10. * it under the terms of the GNU General Public License as published by
  11. * the Free Software Foundation; either version 3 of the License, or
  12. * (at your option) any later version.
  13. *
  14. * This program is distributed in the hope that it will be useful,
  15. * but WITHOUT ANY WARRANTY; without even the implied warranty of
  16. * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  17. * GNU General Public License for more details.
  18. *
  19. * You should have received a copy of the GNU General Public License
  20. * along with this program. If not, see <https://www.gnu.org/licenses/>.
  21. */
  22. /**
  23. * \file htdocs/admin/ldap_members.php
  24. * \ingroup ldap member
  25. * \brief Page d'administration/configuration du module Ldap adherent
  26. */
  27. // Load Dolibarr environment
  28. require '../main.inc.php';
  29. require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php';
  30. require_once DOL_DOCUMENT_ROOT.'/adherents/class/adherent.class.php';
  31. require_once DOL_DOCUMENT_ROOT.'/adherents/class/adherent_type.class.php';
  32. require_once DOL_DOCUMENT_ROOT.'/core/class/ldap.class.php';
  33. require_once DOL_DOCUMENT_ROOT.'/core/lib/ldap.lib.php';
  34. // Load translation files required by the page
  35. $langs->loadLangs(array('admin', 'errors'));
  36. if (!$user->admin) {
  37. accessforbidden();
  38. }
  39. $action = GETPOST('action', 'aZ09');
  40. /*
  41. * Actions
  42. */
  43. if ($action == 'setvalue' && $user->admin) {
  44. $error = 0;
  45. $db->begin();
  46. if (!dolibarr_set_const($db, 'LDAP_MEMBER_DN', GETPOST("user"), 'chaine', 0, '', $conf->entity)) {
  47. $error++;
  48. }
  49. if (!dolibarr_set_const($db, 'LDAP_MEMBER_OBJECT_CLASS', GETPOST("objectclass"), 'chaine', 0, '', $conf->entity)) {
  50. $error++;
  51. }
  52. if (!dolibarr_set_const($db, 'LDAP_MEMBER_FILTER', GETPOST("filterconnection"), 'chaine', 0, '', $conf->entity)) {
  53. $error++;
  54. }
  55. // Members
  56. if (!dolibarr_set_const($db, 'LDAP_MEMBER_FIELD_FULLNAME', GETPOST("fieldfullname"), 'chaine', 0, '', $conf->entity)) {
  57. $error++;
  58. }
  59. if (!dolibarr_set_const($db, 'LDAP_MEMBER_FIELD_LOGIN', GETPOST("fieldlogin"), 'chaine', 0, '', $conf->entity)) {
  60. $error++;
  61. }
  62. if (!dolibarr_set_const($db, 'LDAP_MEMBER_FIELD_LOGIN_SAMBA', GETPOST("fieldloginsamba"), 'chaine', 0, '', $conf->entity)) {
  63. $error++;
  64. }
  65. if (!dolibarr_set_const($db, 'LDAP_MEMBER_FIELD_PASSWORD', GETPOST("fieldpassword"), 'chaine', 0, '', $conf->entity)) {
  66. $error++;
  67. }
  68. if (!dolibarr_set_const($db, 'LDAP_MEMBER_FIELD_PASSWORD_CRYPTED', GETPOST("fieldpasswordcrypted"), 'chaine', 0, '', $conf->entity)) {
  69. $error++;
  70. }
  71. if (!dolibarr_set_const($db, 'LDAP_MEMBER_FIELD_NAME', GETPOST("fieldname"), 'chaine', 0, '', $conf->entity)) {
  72. $error++;
  73. }
  74. if (!dolibarr_set_const($db, 'LDAP_MEMBER_FIELD_FIRSTNAME', GETPOST("fieldfirstname"), 'chaine', 0, '', $conf->entity)) {
  75. $error++;
  76. }
  77. if (!dolibarr_set_const($db, 'LDAP_MEMBER_FIELD_MAIL', GETPOST("fieldmail"), 'chaine', 0, '', $conf->entity)) {
  78. $error++;
  79. }
  80. if (!dolibarr_set_const($db, 'LDAP_MEMBER_FIELD_PHONE', GETPOST("fieldphone"), 'chaine', 0, '', $conf->entity)) {
  81. $error++;
  82. }
  83. if (!dolibarr_set_const($db, 'LDAP_MEMBER_FIELD_PHONE_PERSO', GETPOST("fieldphoneperso"), 'chaine', 0, '', $conf->entity)) {
  84. $error++;
  85. }
  86. if (!dolibarr_set_const($db, 'LDAP_MEMBER_FIELD_MOBILE', GETPOST("fieldmobile"), 'chaine', 0, '', $conf->entity)) {
  87. $error++;
  88. }
  89. if (!dolibarr_set_const($db, 'LDAP_MEMBER_FIELD_FAX', GETPOST("fieldfax"), 'chaine', 0, '', $conf->entity)) {
  90. $error++;
  91. }
  92. if (!dolibarr_set_const($db, 'LDAP_MEMBER_FIELD_COMPANY', GETPOST("fieldcompany"), 'chaine', 0, '', $conf->entity)) {
  93. $error++;
  94. }
  95. if (!dolibarr_set_const($db, 'LDAP_MEMBER_FIELD_ADDRESS', GETPOST("fieldaddress"), 'chaine', 0, '', $conf->entity)) {
  96. $error++;
  97. }
  98. if (!dolibarr_set_const($db, 'LDAP_MEMBER_FIELD_ZIP', GETPOST("fieldzip"), 'chaine', 0, '', $conf->entity)) {
  99. $error++;
  100. }
  101. if (!dolibarr_set_const($db, 'LDAP_MEMBER_FIELD_TOWN', GETPOST("fieldtown"), 'chaine', 0, '', $conf->entity)) {
  102. $error++;
  103. }
  104. if (!dolibarr_set_const($db, 'LDAP_MEMBER_FIELD_COUNTRY', GETPOST("fieldcountry"), 'chaine', 0, '', $conf->entity)) {
  105. $error++;
  106. }
  107. if (!dolibarr_set_const($db, 'LDAP_MEMBER_FIELD_DESCRIPTION', GETPOST("fielddescription"), 'chaine', 0, '', $conf->entity)) {
  108. $error++;
  109. }
  110. if (!dolibarr_set_const($db, 'LDAP_MEMBER_FIELD_NOTE_PUBLIC', GETPOST("fieldnotepublic"), 'chaine', 0, '', $conf->entity)) {
  111. $error++;
  112. }
  113. if (!dolibarr_set_const($db, 'LDAP_MEMBER_FIELD_BIRTHDATE', GETPOST("fieldbirthdate"), 'chaine', 0, '', $conf->entity)) {
  114. $error++;
  115. }
  116. if (!dolibarr_set_const($db, 'LDAP_FIELD_MEMBER_STATUS', GETPOST("fieldstatus"), 'chaine', 0, '', $conf->entity)) {
  117. $error++;
  118. }
  119. if (!dolibarr_set_const($db, 'LDAP_FIELD_MEMBER_END_LASTSUBSCRIPTION', GETPOST("fieldendlastsubscription"), 'chaine', 0, '', $conf->entity)) {
  120. $error++;
  121. }
  122. // Subscriptions
  123. if (!dolibarr_set_const($db, 'LDAP_FIELD_MEMBER_FIRSTSUBSCRIPTION_DATE', GETPOST("fieldfirstsubscriptiondate"), 'chaine', 0, '', $conf->entity)) {
  124. $error++;
  125. }
  126. if (!dolibarr_set_const($db, 'LDAP_FIELD_MEMBER_FIRSTSUBSCRIPTION_AMOUNT', GETPOST("fieldfirstsubscriptionamount"), 'chaine', 0, '', $conf->entity)) {
  127. $error++;
  128. }
  129. if (!dolibarr_set_const($db, 'LDAP_FIELD_MEMBER_LASTSUBSCRIPTION_DATE', GETPOST("fieldlastsubscriptiondate"), 'chaine', 0, '', $conf->entity)) {
  130. $error++;
  131. }
  132. if (!dolibarr_set_const($db, 'LDAP_FIELD_MEMBER_LASTSUBSCRIPTION_AMOUNT', GETPOST("fieldlastsubscriptionamount"), 'chaine', 0, '', $conf->entity)) {
  133. $error++;
  134. }
  135. // This one must be after the others
  136. $valkey = '';
  137. $key = GETPOST("key");
  138. if ($key) {
  139. $valkey = getDolGlobalString($key);
  140. }
  141. if (!dolibarr_set_const($db, 'LDAP_KEY_MEMBERS', $valkey, 'chaine', 0, '', $conf->entity)) {
  142. $error++;
  143. }
  144. if (!$error) {
  145. $db->commit();
  146. setEventMessages($langs->trans("SetupSaved"), null, 'mesgs');
  147. } else {
  148. $db->rollback();
  149. dol_print_error($db);
  150. }
  151. }
  152. /*
  153. * View
  154. */
  155. $form = new Form($db);
  156. llxHeader('', $langs->trans("LDAPSetup"), 'EN:Module_LDAP_En|FR:Module_LDAP|ES:M&oacute;dulo_LDAP');
  157. $linkback = '<a href="'.DOL_URL_ROOT.'/admin/modules.php?restore_lastsearch_values=1">'.$langs->trans("BackToModuleList").'</a>';
  158. print load_fiche_titre($langs->trans("LDAPSetup"), $linkback, 'title_setup');
  159. $head = ldap_prepare_head();
  160. // Test si fonction LDAP actives
  161. if (!function_exists("ldap_connect")) {
  162. setEventMessages($langs->trans("LDAPFunctionsNotAvailableOnPHP"), null, 'errors');
  163. }
  164. print '<form method="post" action="'.$_SERVER["PHP_SELF"].'?action=setvalue&token='.newToken().'">';
  165. print '<input type="hidden" name="token" value="'.newToken().'">';
  166. print dol_get_fiche_head($head, 'members', '', -1);
  167. print '<span class="opacitymedium">'.$langs->trans("LDAPDescMembers").'</span><br>';
  168. print '<br>';
  169. print '<table class="noborder centpercent">';
  170. print '<tr class="liste_titre">';
  171. print '<td colspan="4">'.$langs->trans("LDAPSynchronizeMembers").'</td>';
  172. print "</tr>\n";
  173. // DN Pour les adherents
  174. print '<!-- LDAP_MEMBER_DN -->';
  175. print '<tr class="oddeven"><td><span class="fieldrequired">'.$langs->trans("LDAPMemberDn").'</span></td><td>';
  176. print '<input size="48" type="text" name="user" value="' . getDolGlobalString('LDAP_MEMBER_DN').'">';
  177. print '</td><td>'.$langs->trans("LDAPMemberDnExample").'</td>';
  178. print '<td>&nbsp;</td>';
  179. print '</tr>';
  180. // List of object class used to define attributes in structure
  181. print '<!-- LDAP_MEMBER_OBJECT_CLASS -->';
  182. print '<tr class="oddeven"><td><span class="fieldrequired">'.$langs->trans("LDAPMemberObjectClassList").'</span></td><td>';
  183. print '<input size="48" type="text" name="objectclass" value="' . getDolGlobalString('LDAP_MEMBER_OBJECT_CLASS').'">';
  184. print '</td><td>'.$langs->trans("LDAPMemberObjectClassListExample").'</td>';
  185. print '<td>&nbsp;</td>';
  186. print '</tr>';
  187. // Filter, used to filter search
  188. print '<!-- LDAP_MEMBER_FILTER -->';
  189. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFilterConnection").'</td><td>';
  190. print '<input size="48" type="text" name="filterconnection" value="' . getDolGlobalString('LDAP_MEMBER_FILTER').'">';
  191. print '</td><td>'.$langs->trans("LDAPFilterConnectionExample").'</td>';
  192. print '<td></td>';
  193. print '</tr>';
  194. print '</table>';
  195. print '<br>';
  196. print '<table class="noborder centpercent">';
  197. print '<tr class="liste_titre">';
  198. print '<td>'.$langs->trans("LDAPDolibarrMapping").'</td>';
  199. print '<td colspan="2">'.$langs->trans("LDAPLdapMapping").'</td>';
  200. print '<td class="right">'.$langs->trans("LDAPNamingAttribute").'</td>';
  201. print "</tr>\n";
  202. // Filtre
  203. // Common name
  204. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldFullname").'</td><td>';
  205. print '<input size="25" type="text" name="fieldfullname" value="' . getDolGlobalString('LDAP_MEMBER_FIELD_FULLNAME').'">';
  206. print '</td><td>'.$langs->trans("LDAPFieldFullnameExample").'</td>';
  207. print '<td class="right"><input type="radio" name="key" value="LDAP_MEMBER_FIELD_FULLNAME"'.(($conf->global->LDAP_KEY_MEMBERS && $conf->global->LDAP_KEY_MEMBERS == $conf->global->LDAP_MEMBER_FIELD_FULLNAME) ? ' checked' : '')."></td>";
  208. print '</tr>';
  209. // Name
  210. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldName").'</td><td>';
  211. print '<input size="25" type="text" name="fieldname" value="' . getDolGlobalString('LDAP_MEMBER_FIELD_NAME').'">';
  212. print '</td><td>'.$langs->trans("LDAPFieldNameExample").'</td>';
  213. print '<td class="right"><input type="radio" name="key" value="LDAP_MEMBER_FIELD_NAME"'.(($conf->global->LDAP_KEY_MEMBERS && $conf->global->LDAP_KEY_MEMBERS == $conf->global->LDAP_MEMBER_FIELD_NAME) ? ' checked' : '')."></td>";
  214. print '</tr>';
  215. // Firstname
  216. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldFirstName").'</td><td>';
  217. print '<input size="25" type="text" name="fieldfirstname" value="' . getDolGlobalString('LDAP_MEMBER_FIELD_FIRSTNAME').'">';
  218. print '</td><td>'.$langs->trans("LDAPFieldFirstNameExample").'</td>';
  219. print '<td class="right">&nbsp;</td>';
  220. print '</tr>';
  221. // Login unix
  222. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldLoginUnix").'</td><td>';
  223. print '<input size="25" type="text" name="fieldlogin" value="' . getDolGlobalString('LDAP_MEMBER_FIELD_LOGIN').'">';
  224. print '</td><td>'.$langs->trans("LDAPFieldLoginExample").'</td>';
  225. print '<td class="right"><input type="radio" name="key" value="LDAP_MEMBER_FIELD_LOGIN"'.(($conf->global->LDAP_KEY_MEMBERS && $conf->global->LDAP_KEY_MEMBERS == $conf->global->LDAP_MEMBER_FIELD_LOGIN) ? ' checked' : '')."></td>";
  226. print '</tr>';
  227. // Login samba
  228. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldLoginSamba").'</td><td>';
  229. print '<input size="25" type="text" name="fieldloginsamba" value="' . getDolGlobalString('LDAP_MEMBER_FIELD_LOGIN_SAMBA').'">';
  230. print '</td><td>'.$langs->trans("LDAPFieldLoginSambaExample").'</td>';
  231. print '<td class="right"><input type="radio" name="key" value="LDAP_MEMBER_FIELD_LOGIN_SAMBA"'.(($conf->global->LDAP_KEY_MEMBERS && $conf->global->LDAP_KEY_MEMBERS == $conf->global->LDAP_MEMBER_FIELD_LOGIN_SAMBA) ? ' checked' : '')."></td>";
  232. print '</tr>';
  233. // Password not crypted
  234. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldPasswordNotCrypted").'</td><td>';
  235. print '<input size="25" type="text" name="fieldpassword" value="' . getDolGlobalString('LDAP_MEMBER_FIELD_PASSWORD').'">';
  236. print '</td><td>'.$langs->trans("LDAPFieldPasswordExample").'</td>';
  237. print '<td class="right">&nbsp;</td>';
  238. print '</tr>';
  239. // Password crypted
  240. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldPasswordCrypted").'</td><td>';
  241. print '<input size="25" type="text" name="fieldpasswordcrypted" value="' . getDolGlobalString('LDAP_MEMBER_FIELD_PASSWORD_CRYPTED').'">';
  242. print '</td><td>'.$langs->trans("LDAPFieldPasswordExample").'</td>';
  243. print '<td class="right">&nbsp;</td>';
  244. print '</tr>';
  245. // Mail
  246. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldMail").'</td><td>';
  247. print '<input size="25" type="text" name="fieldmail" value="' . getDolGlobalString('LDAP_MEMBER_FIELD_MAIL').'">';
  248. print '</td><td>'.$langs->trans("LDAPFieldMailExample").'</td>';
  249. print '<td class="right"><input type="radio" name="key" value="LDAP_MEMBER_FIELD_MAIL"'.(($conf->global->LDAP_KEY_MEMBERS && $conf->global->LDAP_KEY_MEMBERS == $conf->global->LDAP_MEMBER_FIELD_MAIL) ? ' checked' : '')."></td>";
  250. print '</tr>';
  251. // Phone pro
  252. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldPhone").'</td><td>';
  253. print '<input size="25" type="text" name="fieldphone" value="' . getDolGlobalString('LDAP_MEMBER_FIELD_PHONE').'">';
  254. print '</td><td>'.$langs->trans("LDAPFieldPhoneExample").'</td>';
  255. print '<td class="right">&nbsp;</td>';
  256. print '</tr>';
  257. // Phone perso
  258. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldHomePhone").'</td><td>';
  259. print '<input size="25" type="text" name="fieldphoneperso" value="' . getDolGlobalString('LDAP_MEMBER_FIELD_PHONE_PERSO').'">';
  260. print '</td><td>'.$langs->trans("LDAPFieldHomePhoneExample").'</td>';
  261. print '<td class="right">&nbsp;</td>';
  262. print '</tr>';
  263. // Mobile
  264. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldMobile").'</td><td>';
  265. print '<input size="25" type="text" name="fieldmobile" value="' . getDolGlobalString('LDAP_MEMBER_FIELD_MOBILE').'">';
  266. print '</td><td>'.$langs->trans("LDAPFieldMobileExample").'</td>';
  267. print '<td class="right">&nbsp;</td>';
  268. print '</tr>';
  269. // Fax
  270. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldFax").'</td><td>';
  271. print '<input size="25" type="text" name="fieldfax" value="' . getDolGlobalString('LDAP_MEMBER_FIELD_FAX').'">';
  272. print '</td><td>'.$langs->trans("LDAPFieldFaxExample").'</td>';
  273. print '<td class="right">&nbsp;</td>';
  274. print '</tr>';
  275. // Company
  276. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldCompany").'</td><td>';
  277. print '<input size="25" type="text" name="fieldcompany" value="' . getDolGlobalString('LDAP_MEMBER_FIELD_COMPANY').'">';
  278. print '</td><td>'.$langs->trans("LDAPFieldCompanyExample").'</td>';
  279. print '<td class="right">&nbsp;</td>';
  280. print '</tr>';
  281. // Address
  282. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldAddress").'</td><td>';
  283. print '<input size="25" type="text" name="fieldaddress" value="' . getDolGlobalString('LDAP_MEMBER_FIELD_ADDRESS').'">';
  284. print '</td><td>'.$langs->trans("LDAPFieldAddressExample").'</td>';
  285. print '<td class="right">&nbsp;</td>';
  286. print '</tr>';
  287. // ZIP
  288. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldZip").'</td><td>';
  289. print '<input size="25" type="text" name="fieldzip" value="' . getDolGlobalString('LDAP_MEMBER_FIELD_ZIP').'">';
  290. print '</td><td>'.$langs->trans("LDAPFieldZipExample").'</td>';
  291. print '<td class="right">&nbsp;</td>';
  292. print '</tr>';
  293. // TOWN
  294. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldTown").'</td><td>';
  295. print '<input size="25" type="text" name="fieldtown" value="' . getDolGlobalString('LDAP_MEMBER_FIELD_TOWN').'">';
  296. print '</td><td>'.$langs->trans("LDAPFieldTownExample").'</td>';
  297. print '<td class="right">&nbsp;</td>';
  298. print '</tr>';
  299. // COUNTRY
  300. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldCountry").'</td><td>';
  301. print '<input size="25" type="text" name="fieldcountry" value="' . getDolGlobalString('LDAP_MEMBER_FIELD_COUNTRY').'">';
  302. print '</td><td>&nbsp;</td>';
  303. print '<td class="right">&nbsp;</td>';
  304. print '</tr>';
  305. // Description
  306. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldDescription").'</td><td>';
  307. print '<input size="25" type="text" name="fielddescription" value="' . getDolGlobalString('LDAP_MEMBER_FIELD_DESCRIPTION').'">';
  308. print '</td><td>'.$langs->trans("LDAPFieldDescriptionExample").'</td>';
  309. print '<td class="right">&nbsp;</td>';
  310. print '</tr>';
  311. // Public Note
  312. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldNotePublic").'</td><td>';
  313. print '<input size="25" type="text" name="fieldnotepublic" value="' . getDolGlobalString('LDAP_MEMBER_FIELD_NOTE_PUBLIC').'">';
  314. print '</td><td>'.$langs->trans("LDAPFieldNotePublicExample").'</td>';
  315. print '<td class="right">&nbsp;</td>';
  316. print '</tr>';
  317. // Birthday
  318. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldBirthdate").'</td><td>';
  319. print '<input size="25" type="text" name="fieldbirthdate" value="' . getDolGlobalString('LDAP_MEMBER_FIELD_BIRTHDATE').'">';
  320. print '</td><td>&nbsp;</td>';
  321. print '<td class="right">&nbsp;</td>';
  322. print '</tr>';
  323. // Status
  324. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldStatus").'</td><td>';
  325. print '<input size="25" type="text" name="fieldstatus" value="' . getDolGlobalString('LDAP_FIELD_MEMBER_STATUS').'">';
  326. print '</td><td>&nbsp;</td>';
  327. print '<td class="right">&nbsp;</td>';
  328. print '</tr>';
  329. // First subscription date
  330. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldFirstSubscriptionDate").'</td><td>';
  331. print '<input size="25" type="text" name="fieldfirstsubscriptiondate" value="' . getDolGlobalString('LDAP_FIELD_MEMBER_FIRSTSUBSCRIPTION_DATE').'">';
  332. print '</td><td>&nbsp;</td>';
  333. print '<td class="right">&nbsp;</td>';
  334. print '</tr>';
  335. // First subscription amount
  336. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldFirstSubscriptionAmount").'</td><td>';
  337. print '<input size="25" type="text" name="fieldfirstsubscriptionamount" value="' . getDolGlobalString('LDAP_FIELD_MEMBER_FIRSTSUBSCRIPTION_AMOUNT').'">';
  338. print '</td><td>&nbsp;</td>';
  339. print '<td class="right">&nbsp;</td>';
  340. print '</tr>';
  341. // Last subscription date
  342. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldLastSubscriptionDate").'</td><td>';
  343. print '<input size="25" type="text" name="fieldlastsubscriptiondate" value="' . getDolGlobalString('LDAP_FIELD_MEMBER_LASTSUBSCRIPTION_DATE').'">';
  344. print '</td><td>&nbsp;</td>';
  345. print '<td class="right">&nbsp;</td>';
  346. print '</tr>';
  347. // Last subscription amount
  348. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldLastSubscriptionAmount").'</td><td>';
  349. print '<input size="25" type="text" name="fieldlastsubscriptionamount" value="' . getDolGlobalString('LDAP_FIELD_MEMBER_LASTSUBSCRIPTION_AMOUNT').'">';
  350. print '</td><td>&nbsp;</td>';
  351. print '<td class="right">&nbsp;</td>';
  352. print '</tr>';
  353. // End last subscriptions
  354. print '<tr class="oddeven"><td>'.$langs->trans("LDAPFieldEndLastSubscription").'</td><td>';
  355. print '<input size="25" type="text" name="fieldendlastsubscription" value="' . getDolGlobalString('LDAP_FIELD_MEMBER_END_LASTSUBSCRIPTION').'">';
  356. print '</td><td>&nbsp;</td>';
  357. print '<td class="right">&nbsp;</td>';
  358. print '</tr>';
  359. print '</table>';
  360. print info_admin($langs->trans("LDAPDescValues"));
  361. print dol_get_fiche_end();
  362. print $form->buttonsSaveCancel("Modify", '');
  363. print '</form>';
  364. /*
  365. * Test de la connexion
  366. */
  367. if (getDolGlobalString('LDAP_MEMBER_ACTIVE')) {
  368. $butlabel = $langs->trans("LDAPTestSynchroMember");
  369. $testlabel = 'testmember';
  370. $key = $conf->global->LDAP_KEY_MEMBERS;
  371. $dn = $conf->global->LDAP_MEMBER_DN;
  372. $objectclass = $conf->global->LDAP_MEMBER_OBJECT_CLASS;
  373. show_ldap_test_button($butlabel, $testlabel, $key, $dn, $objectclass);
  374. }
  375. if (function_exists("ldap_connect")) {
  376. if ($_GET["action"] == 'testmember') {
  377. // Creation objet
  378. $object = new Adherent($db);
  379. $object->initAsSpecimen();
  380. // Test synchro
  381. $ldap = new Ldap();
  382. $result = $ldap->connect_bind();
  383. if ($result > 0) {
  384. $info = $object->_load_ldap_info();
  385. $dn = $object->_load_ldap_dn($info);
  386. $result1 = $ldap->delete($dn); // To be sure to delete existing records
  387. $result2 = $ldap->add($dn, $info, $user); // Now the test
  388. $result3 = $ldap->delete($dn); // Clean what we did
  389. if ($result2 > 0) {
  390. print img_picto('', 'info').' ';
  391. print '<span class="ok">'.$langs->trans("LDAPSynchroOK").'</span><br>';
  392. } else {
  393. print img_picto('', 'error').' ';
  394. print '<span class="error">'.$langs->trans("LDAPSynchroKOMayBePermissions");
  395. print ': '.$ldap->error;
  396. print '</span><br>';
  397. print $langs->trans("ErrorLDAPMakeManualTest", $conf->ldap->dir_temp).'<br>';
  398. }
  399. print "<br>\n";
  400. print "LDAP input file used for test:<br><br>\n";
  401. print nl2br($ldap->dump_content($dn, $info));
  402. print "\n<br>";
  403. } else {
  404. print img_picto('', 'error').' ';
  405. print '<span class="error">'.$langs->trans("LDAPSynchroKO");
  406. print ': '.$ldap->error;
  407. print '</span><br>';
  408. print $langs->trans("ErrorLDAPMakeManualTest", $conf->ldap->dir_temp).'<br>';
  409. }
  410. }
  411. }
  412. // End of page
  413. llxFooter();
  414. $db->close();