dolibarr  13.0.2
index.php
Go to the documentation of this file.
1 <?php
2 /* Copyright (C) 2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
3  * Copyright (C) 2005-2010 Laurent Destailleur <eldy@users.sourceforge.org>
4  * Copyright (C) 2011 Juanjo Menent <jmenent@2byte.es>
5  * Copyright (C) 2012 Regis Houssin <regis.houssin@inodbox.com>
6  *
7  * This program is free software; you can redistribute it and/or modify
8  * it under the terms of the GNU General Public License as published by
9  * the Free Software Foundation; either version 3 of the License, or
10  * (at your option) any later version.
11  *
12  * This program is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15  * GNU General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with this program. If not, see <https://www.gnu.org/licenses/>.
19  */
20 
27 require '../../main.inc.php';
28 require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php';
29 
30 $langs->load("admin");
31 
32 if (!$user->admin)
34 
35 $actionsave = GETPOST("save");
36 
37 // Sauvegardes parametres
38 if ($actionsave)
39 {
40  $i = 0;
41 
42  $db->begin();
43 
44  $i += dolibarr_set_const($db, 'WEBSERVICES_KEY', GETPOST("WEBSERVICES_KEY"), 'chaine', 0, '', $conf->entity);
45 
46  if ($i >= 1)
47  {
48  $db->commit();
49  setEventMessages($langs->trans("SetupSaved"), null, 'mesgs');
50  }
51  else {
52  $db->rollback();
53  setEventMessages($langs->trans("Error"), null, 'errors');
54  }
55 }
56 
57 
58 /*
59  * View
60  */
61 
62 llxHeader();
63 
64 $linkback = '<a href="'.DOL_URL_ROOT.'/admin/modules.php?restore_lastsearch_values=1">'.$langs->trans("BackToModuleList").'</a>';
65 
66 print load_fiche_titre($langs->trans("WebServicesSetup"), $linkback, 'title_setup');
67 
68 print '<span class="opacitymedium">'.$langs->trans("WebServicesDesc")."</span><br>\n";
69 print "<br>\n";
70 
71 print '<form name="agendasetupform" action="'.$_SERVER["PHP_SELF"].'" method="POST">';
72 print '<input type="hidden" name="token" value="'.newToken().'">';
73 print '<input type="hidden" name="action" value="save">';
74 
75 print '<table class="noborder centpercent">';
76 
77 print '<tr class="liste_titre">';
78 print "<td>".$langs->trans("Parameter")."</td>";
79 print "<td>".$langs->trans("Value")."</td>";
80 //print "<td>".$langs->trans("Examples")."</td>";
81 print "<td>&nbsp;</td>";
82 print "</tr>";
83 
84 print '<tr class="oddeven">';
85 print '<td class="fieldrequired">'.$langs->trans("KeyForWebServicesAccess").'</td>';
86 print '<td><input type="text" class="flat" id="WEBSERVICES_KEY" name="WEBSERVICES_KEY" value="'.(GETPOST('WEBSERVICES_KEY') ?GETPOST('WEBSERVICES_KEY') : (!empty($conf->global->WEBSERVICES_KEY) ? $conf->global->WEBSERVICES_KEY : '')).'" size="40">';
87 if (!empty($conf->use_javascript_ajax))
88  print '&nbsp;'.img_picto($langs->trans('Generate'), 'refresh', 'id="generate_token" class="linkobject"');
89 print '</td>';
90 print '<td>&nbsp;</td>';
91 print '</tr>';
92 
93 print '</table>';
94 
95 print '<br><div class="center">';
96 print '<input type="submit" name="save" class="button button-save" value="'.$langs->trans("Save").'">';
97 print '</div>';
98 
99 print '</form>';
100 
101 print '<br><br>';
102 
103 // Webservices list
104 $webservices = array(
105  'user' => '',
106  'thirdparty' => '!empty($conf->societe->enabled)',
107  'contact' => '!empty($conf->societe->enabled)',
108  'productorservice' => '(!empty($conf->product->enabled) || !empty($conf->service->enabled))',
109  'order' => '!empty($conf->commande->enabled)',
110  'invoice' => '!empty($conf->facture->enabled)',
111  'supplier_invoice' => '!empty($conf->fournisseur->enabled)',
112  'actioncomm' => '!empty($conf->agenda->enabled)',
113  'category' => '!empty($conf->categorie->enabled)',
114  'project' => '!empty($conf->projet->enabled)',
115  'other' => ''
116 );
117 
118 
119 // WSDL
120 print '<u>'.$langs->trans("WSDLCanBeDownloadedHere").':</u><br>';
121 foreach ($webservices as $name => $right)
122 {
123  if (!empty($right) && !verifCond($right)) continue;
124  $url = DOL_MAIN_URL_ROOT.'/webservices/server_'.$name.'.php?wsdl';
125  print img_picto('', 'globe').' <a href="'.$url.'" target="_blank">'.$url."</a><br>\n";
126 }
127 print '<br>';
128 
129 
130 // Endpoint
131 print '<u>'.$langs->trans("EndPointIs").':</u><br>';
132 foreach ($webservices as $name => $right)
133 {
134  if (!empty($right) && !verifCond($right)) continue;
135  $url = DOL_MAIN_URL_ROOT.'/webservices/server_'.$name.'.php';
136  print img_picto('', 'globe').' <a href="'.$url.'" target="_blank">'.$url."</a><br>\n";
137 }
138 print '<br>';
139 
140 
141 print '<br>';
142 print $langs->trans("OnlyActiveElementsAreShown", DOL_URL_ROOT.'/admin/modules.php');
143 
144 if (!empty($conf->use_javascript_ajax))
145 {
146  print "\n".'<script type="text/javascript">';
147  print '$(document).ready(function () {
148  $("#generate_token").click(function() {
149  $.get( "'.DOL_URL_ROOT.'/core/ajax/security.php", {
150  action: \'getrandompassword\',
151  generic: true
152  },
153  function(token) {
154  $("#WEBSERVICES_KEY").val(token);
155  });
156  });
157  });';
158  print '</script>';
159 }
160 
161 // End of page
162 llxFooter();
163 $db->close();
verifCond($strRights)
Verify if condition in string is ok or not.
GETPOST($paramname, $check= 'alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
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).
Definition: admin.lib.php:575
llxHeader()
Empty header.
Definition: wrapper.php:45
setEventMessages($mesg, $mesgs, $style= 'mesgs', $messagekey= '')
Set event messages in dol_events session object.
load_fiche_titre($titre, $morehtmlright= '', $picto= 'generic', $pictoisfullpath=0, $id= '', $morecssontable= '', $morehtmlcenter= '')
Load a title with picto.
img_picto($titlealt, $picto, $moreatt= '', $pictoisfullpath=false, $srconly=0, $notitle=0, $alt= '', $morecss= '', $marginleftonlyshort=2)
Show picto whatever it&#39;s its name (generic function)
accessforbidden($message= '', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program Calling this function terminate execution ...
print
Draft customers invoices.
Definition: index.php:89
llxFooter()
Empty footer.
Definition: wrapper.php:59