28require
'../main.inc.php';
29require_once DOL_DOCUMENT_ROOT.
'/core/lib/admin.lib.php';
30require_once DOL_DOCUMENT_ROOT.
'/core/lib/oauth.lib.php';
45$urlwithouturlroot = preg_replace(
'/'.preg_quote(DOL_URL_ROOT,
'/').
'$/i',
'', trim($dolibarr_main_url_root));
46$urlwithroot = $urlwithouturlroot.DOL_URL_ROOT;
50$langs->loadLangs(array(
'admin',
'oauth',
'modulebuilder'));
57$action =
GETPOST(
'action',
'aZ09');
58$provider =
GETPOST(
'provider',
'aZ09');
59$label =
GETPOST(
'label',
'aZ09');
61$servicetoeditname =
GETPOST(
'servicetoeditname',
'aZ09');
70if ($action ==
'add') {
71 if ($provider && $provider !=
'-1') {
72 $constname = strtoupper($provider).($label ?
'-'.$label :
'').
'_ID';
75 setEventMessages($langs->trans(
"AOAuthEntryForThisProviderAndLabelAlreadyHasAKey"),
null,
'errors');
83if ($action ==
'update') {
84 foreach (
$conf->global as $key => $val) {
85 if (!empty($val) && preg_match(
'/^OAUTH_.+_ID$/', $key)) {
86 $constvalue = str_replace(
'_ID',
'', $key);
87 $newconstvalue = $constvalue;
88 if (GETPOSTISSET($constvalue.
'_NAME')) {
89 $newconstvalue = preg_replace(
'/-.*$/',
'', $constvalue).
'-'.
GETPOST($constvalue.
'_NAME');
92 if (GETPOSTISSET($constvalue.
'_ID')) {
98 if (GETPOSTISSET($constvalue.
'_SECRET')) {
103 if (GETPOSTISSET($constvalue.
'_URL')) {
108 if (GETPOSTISSET($constvalue.
'_URLAUTHORIZE')) {
113 if (GETPOSTISSET($constvalue.
'_TENANT')) {
118 if (GETPOSTISSET($constvalue.
'_SCOPE')) {
119 if (is_array(
GETPOST($constvalue.
'_SCOPE'))) {
120 $scopestring = implode(
',',
GETPOST($constvalue.
'_SCOPE'));
122 $scopestring =
GETPOST($constvalue.
'_SCOPE');
127 } elseif ($newconstvalue !== $constvalue) {
134 if ($constvalue !== $newconstvalue) {
142 $oldname = preg_replace(
'/^OAUTH_/',
'', $constvalue);
143 $oldprovider = ucfirst(strtolower(preg_replace(
'/-.*$/',
'', $oldname)));
144 $oldlabel = preg_replace(
'/^.*-/',
'', $oldname);
145 $newlabel = preg_replace(
'/^.*-/',
'', $newconstvalue);
148 $sql =
"UPDATE ".MAIN_DB_PREFIX.
"oauth_token";
149 $sql.=
" SET service = '".$db->escape($oldprovider.
"-".$newlabel).
"'";
150 $sql.=
" WHERE service = '".$db->escape($oldprovider.
"-".$oldlabel).
"'";
153 $resql = $db->query($sql);
160 if (!
dolibarr_set_const($db,
'MAIN_MAIL_SMTPS_OAUTH_SERVICE', strtoupper($oldprovider).
'-'.$newlabel,
'chaine', 0,
'',
$conf->entity)) {
176if ($action ==
'confirm_delete') {
177 $provider =
GETPOST(
'provider',
'aZ09');
180 $globalkey = empty($provider) ? $label : $label.
'-'.$provider;
183 $backtourl = DOL_URL_ROOT.
'/admin/oauth.php?action=delete_entry&provider='.$provider.
'&label='.$label.
'&token='.
newToken();
184 $urlwithouturlroot = preg_replace(
'/'.preg_quote(DOL_URL_ROOT,
'/').
'$/i',
'', trim($dolibarr_main_url_root));
185 $urlwithroot = $urlwithouturlroot.DOL_URL_ROOT;
186 $callbacktodel = $urlwithroot;
187 if ($label ==
'OAUTH_GOOGLE') {
188 $callbacktodel .=
'/core/modules/oauth/google_oauthcallback.php?action=delete&keyforprovider='.$provider.
'&token='.
newToken().
'&backtourl='.urlencode($backtourl);
189 } elseif ($label ==
'OAUTH_GITHUB') {
190 $callbacktodel .=
'/core/modules/oauth/github_oauthcallback.php?action=delete&keyforprovider='.$provider.
'&token='.
newToken().
'&backtourl='.urlencode($backtourl);
191 } elseif ($label ==
'OAUTH_STRIPELIVE') {
192 $callbacktodel .=
'/core/modules/oauth/stripelive_oauthcallback.php?action=delete&keyforprovider='.$provider.
'&token='.
newToken().
'&backtourl='.urlencode($backtourl);
193 } elseif ($label ==
'OAUTH_STRIPETEST') {
194 $callbacktodel .=
'/core/modules/oauth/stripetest_oauthcallback.php?action=delete&keyforprovider='.$provider.
'&token='.
newToken().
'&backtourl='.urlencode($backtourl);
195 } elseif ($label ==
'OAUTH_MICROSOFT') {
196 $callbacktodel .=
'/core/modules/oauth/microsoft_oauthcallback.php?action=delete&keyforprovider='.$provider.
'&token='.
newToken().
'&backtourl='.urlencode($backtourl);
197 } elseif ($label ==
'OAUTH_MICROSOFT2') {
198 $callbacktodel .=
'/core/modules/oauth/microsoft2_oauthcallback.php?action=delete&keyforprovider='.$provider.
'&token='.
newToken().
'&backtourl='.urlencode($backtourl);
199 } elseif ($label ==
'OAUTH_GENERIC') {
200 $callbacktodel .=
'/core/modules/oauth/generic_oauthcallback.php?action=delete&keyforprovider='.$provider.
'&token='.
newToken().
'&backtourl='.urlencode($backtourl);
202 header(
"Location: ".$callbacktodel);
205 $action =
'delete_entry';
209if ($action ==
'delete_entry') {
210 $provider =
GETPOST(
'provider',
'aZ09');
213 $globalkey = empty($provider) ? $label : $label.
'-'.$provider;
232$form =
new Form($db);
234$title = $langs->trans(
'ConfigOAuth');
235$help_url =
'EN:Module_OAuth|FR:Module_OAuth_FR|ES:Módulo_OAuth_ES';
237llxHeader(
'', $title, $help_url,
'', 0, 0,
'',
'',
'',
'mod-admin page-oauth');
240if ($action ==
'delete') {
241 $formquestion = array();
242 $formconfirm = $form->formconfirm($_SERVER[
"PHP_SELF"].
'?provider='.
GETPOST(
'provider').
'&label='.
GETPOST(
'label'), $langs->trans(
'OAuthServiceConfirmDeleteTitle'), $langs->trans(
'OAuthServiceConfirmDeleteMessage'),
'confirm_delete', $formquestion, 0, 1, 220);
247$linkback =
'<a href="'.DOL_URL_ROOT.
'/admin/modules.php?restore_lastsearch_values=1">'.$langs->trans(
"BackToModuleList").
'</a>';
250print
'<form action="'.$_SERVER[
"PHP_SELF"].
'" method="POST">';
251print
'<input type="hidden" name="token" value="'.newToken().
'">';
252print
'<input type="hidden" name="action" value="add">';
259print
'<span class="opacitymedium">'.$langs->trans(
"ListOfSupportedOauthProviders").
'</span><br><br>';
265print
'<select name="provider" id="provider" class="minwidth150">';
266print
'<option name="-1" value="-1">'.$langs->trans(
"OAuthProvider").
'</option>';
268foreach ($list as $key) {
270 $keyforsupportedoauth2array = $key[0];
272 if (in_array($keyforsupportedoauth2array, array_keys($supportedoauth2array))) {
279 print
'<option name="'.$keyforsupportedoauth2array.
'" value="'.str_replace(
'_NAME',
'', $keyforsupportedoauth2array).
'">';
281 $keyforsupportedoauth2array = preg_replace(
'/^OAUTH_/',
'', $keyforsupportedoauth2array);
282 $keyforsupportedoauth2array = preg_replace(
'/_NAME$/',
'', $keyforsupportedoauth2array);
283 $keyforsupportedoauth2array = preg_replace(
'/-.*$/',
'', $keyforsupportedoauth2array);
284 $keyforsupportedoauth2array =
'OAUTH_'.$keyforsupportedoauth2array.
'_NAME';
286 $label = $langs->trans($keyforsupportedoauth2array);
287 if ($label == $keyforsupportedoauth2array) {
288 print $supportedoauth2array[$keyforsupportedoauth2array][
'name'];
292 print
'</option>'.
"\n";
296print
' <input type="text" name="label" value="" placeholder="'.$langs->trans(
"Label").
'" pattern="^\S+$" title="'.$langs->trans(
"SpaceOrSpecialCharAreNotAllowed").
'">';
297print
' <input type="submit" class="button small" name="add" value="'.$langs->trans(
"Add").
'">';
308foreach (
$conf->global as $key => $val) {
309 if (!empty($val) && preg_match(
'/^OAUTH_.*_ID$/', $key)) {
310 $provider = preg_replace(
'/_ID$/',
'', $key);
311 $listinsetup[] = array(
322if (count($listinsetup) > 0) {
323 print
'<form action="'.$_SERVER[
"PHP_SELF"].
'" method="POST">';
324 print
'<input type="hidden" name="token" value="'.newToken().
'">';
325 print
'<input type="hidden" name="action" value="update">';
327 print
'<div class="div-table-responsive-no-min">';
332 foreach ($listinsetup as $key) {
334 $keyforsupportedoauth2array = $key[0];
335 $keyforsupportedoauth2array = preg_replace(
'/^OAUTH_/',
'', $keyforsupportedoauth2array);
336 $keyforsupportedoauth2array = preg_replace(
'/_NAME$/',
'', $keyforsupportedoauth2array);
337 if (preg_match(
'/^.*-/', $keyforsupportedoauth2array)) {
338 $keybeforeprovider = preg_replace(
'/-.*$/',
'', $keyforsupportedoauth2array);
339 $keyforprovider = preg_replace(
'/^.*-/',
'', $keyforsupportedoauth2array);
341 $keybeforeprovider = $keyforsupportedoauth2array;
342 $keyforprovider =
'';
344 $keyforsupportedoauth2array = preg_replace(
'/-.*$/',
'', $keyforsupportedoauth2array);
345 $keyforsupportedoauth2array =
'OAUTH_'.$keyforsupportedoauth2array.
'_NAME';
347 if (in_array($keyforsupportedoauth2array, array_keys($supportedoauth2array))) {
356 print
'<table class="noborder centpercent">';
359 $label = $langs->trans($keyforsupportedoauth2array);
360 print
'<tr class="liste_titre'.($i > 1 ?
' liste_titre_add' :
'').
'">';
361 print
'<td class="titlefieldcreate">';
362 print
img_picto(
'', $supportedoauth2array[$keyforsupportedoauth2array][
'picto'],
'class="pictofixedwidth"');
363 if ($label == $keyforsupportedoauth2array) {
364 print $supportedoauth2array[$keyforsupportedoauth2array][
'name'];
368 if ($servicetoeditname == $key[0]) {
369 print
' (<input style="width: 20%" type="text" name="'.$key[0].
'" value="'.$keyforprovider.
'" >)';
370 } elseif ($keyforprovider) {
371 print
' (<b>'.$keyforprovider.
'</b>)';
373 print
' (<b>'.$langs->trans(
"NoName").
'</b>)';
375 if (!($servicetoeditname == $key[0])) {
376 print
'<a class="editfielda reposition" href="'.$_SERVER[
"PHP_SELF"].
'?token='.
newToken().
'&servicetoeditname='.urlencode($key[0]).
'">'.
img_edit($langs->transnoentitiesnoconv(
'Edit'), 1).
'</a>';
380 if (!empty($supportedoauth2array[$keyforsupportedoauth2array][
'urlforcredentials'])) {
381 print $langs->trans(
"OAUTH_URL_FOR_CREDENTIAL", $supportedoauth2array[$keyforsupportedoauth2array][
'urlforcredentials']);
387 $label = preg_replace(
'/_NAME$/',
'', $keyforsupportedoauth2array);
388 print
'<a href="'.$_SERVER[
"PHP_SELF"].
'?action=delete&token='.
newToken().
'&provider='.urlencode($keyforprovider).
'&label='.urlencode($label).
'">';
398 $redirect_uri = $urlwithroot.
'/core/modules/oauth/'.$supportedoauth2array[$keyforsupportedoauth2array][
'callbackfile'].
'_oauthcallback.php';
399 print
'<tr class="oddeven value">';
400 print
'<td>'.$form->textwithpicto($langs->trans(
"RedirectURL"), $langs->trans(
"UseTheFollowingUrlAsRedirectURI")).
'</td>';
401 print
'<td><input style="width: 80%" type="text" name="uri'.$keyforsupportedoauth2array.
'" id="uri'.$keyforsupportedoauth2array.$keyforprovider.
'" value="'.$redirect_uri.
'" disabled>';
402 print
ajax_autoselect(
'uri'.$keyforsupportedoauth2array.$keyforprovider);
407 if ($keyforsupportedoauth2array ==
'OAUTH_GENERIC_NAME') {
408 print
'<tr class="oddeven value">';
410 $tooltiphelp = $langs->trans(
"Example").
'<br>https://mastodon.example.com<br>https://mastodon.social';
411 print $form->textwithpicto($langs->trans(
"URLOfOAuthServiceEndpoints"), $tooltiphelp);
413 print
'<td><input style="width: 80%" type="text" name="'.$key[3].
'" value="'.
getDolGlobalString($key[3]).
'" >';
419 print
'<tr class="oddeven value">';
420 print
'<td>'.$langs->trans(
"UseTheFollowingUrlAsRedirectURI").
'</td>';
421 print
'<td>'.$langs->trans(
"FeatureNotYetSupported").
'</td>';
428 print
'<tr class="oddeven value">';
429 print
'<td><label for="'.$key[1].
'">'.$langs->trans(
"OAUTH_ID").
'</label></td>';
430 print
'<td><input type="text" size="100" id="'.$key[1].
'" name="'.$key[1].
'" value="'.
getDolGlobalString($key[1]).
'">';
436 print
'<tr class="oddeven value">';
437 print
'<td><label for="'.$key[2].
'">'.$langs->trans(
"OAUTH_SECRET").
'</label></td>';
438 print
'<td><input type="password" size="100" id="'.$key[2].
'" name="'.$key[2].
'" value="'.
getDolGlobalString($key[2]).
'">';
444 if ($keybeforeprovider ==
'MICROSOFT' || $keybeforeprovider ==
'MICROSOFT2') {
445 print
'<tr class="oddeven value">';
446 print
'<td><label for="'.$key[2].
'">'.$langs->trans(
"OAUTH_TENANT").
'</label></td>';
447 print
'<td><input type="text" size="100" id="OAUTH_'.$keybeforeprovider.($keyforprovider ?
'-'.$keyforprovider :
'').
'_TENANT" name="OAUTH_'.$keybeforeprovider.($keyforprovider ?
'-'.$keyforprovider :
'').
'_TENANT" value="'.
getDolGlobalString(
'OAUTH_'.$keybeforeprovider.($keyforprovider ?
'-'.$keyforprovider :
'').
'_TENANT').
'">';
455 if ($keyforsupportedoauth2array ==
'OAUTH_GENERIC_NAME') {
456 print
'<tr class="oddeven value">';
458 print $form->textwithpicto($langs->trans(
"Scopes"), $langs->trans(
"ScopesDesc"));
461 print
'<input style="width: 80%" type"text" name="'.$key[4].
'" value="'.
getDolGlobalString($key[4]).
'" >';
466 $availablescopes = array_flip(explode(
',', $supportedoauth2array[$keyforsupportedoauth2array][
'availablescopes']));
468 $scopestodispay = array();
469 foreach ($availablescopes as $keyscope => $valscope) {
470 if (in_array($keyscope, $currentscopes)) {
471 $scopestodispay[$keyscope] = 1;
473 $scopestodispay[$keyscope] = 0;
477 print
'<tr class="oddeven value">';
478 print
'<td>'.$langs->trans(
"Scopes").
'</td>';
480 foreach ($scopestodispay as $scope => $val) {
481 print
'<input type="checkbox" id="'.$keyforprovider.$scope.
'" name="'.$key[4].
'[]" value="'.$scope.
'"'.($val ?
' checked' :
'').
'>';
482 print
'<label style="margin-right: 10px" for="'.$keyforprovider.$scope.
'">'.$scope.
'</label>';
489 print
'<tr class="oddeven value">';
490 print
'<td>'.$langs->trans(
"UseTheFollowingUrlAsRedirectURI").
'</td>';
491 print
'<td>'.$langs->trans(
"FeatureNotYetSupported").
'</td>';
497 print
'</table>'.
"\n";
504 print $form->buttonsSaveCancel(
"Save",
'');
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).
dolibarr_del_const($db, $name, $entity=1)
Delete a constant.
ajax_combobox($htmlname, $events=array(), $minLengthToAutocomplete=0, $forcefocus=0, $widthTypeOfAutocomplete='resolve', $idforemptyvalue='-1', $morecss='')
Convert a html select field into an ajax combobox.
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.
load_fiche_titre($title, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
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)
Show picto whatever it's its name (generic function)
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='', $dragdropfile=0)
Show tabs of a record.
dol_get_fiche_end($notab=0)
Return tab footer of a card.
ajax_autoselect($htmlname, $addlink='', $textonlink='Link')
Make content of an input box selected when we click into input field.
newToken()
Return the value of token currently saved into session with name 'newtoken'.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
getDolGlobalString($key, $default='')
Return a Dolibarr global constant string value.
img_edit($titlealt='default', $float=0, $other='')
Show logo edit/modify fiche.
global $conf
The following vars must be defined: $type2label $form $conf, $lang, The following vars may also be de...
getAllOauth2Array()
Return array of possible OAUTH2 services.
getSupportedOauth2Array()
Return array of tabs to use on pages to setup cron module.
oauthadmin_prepare_head()
Return array of tabs to used on pages to setup cron module.
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.