dolibarr  9.0.0
proxy.php
Go to the documentation of this file.
1 <?php
2 /* Copyright (C) 2011-2013 Laurent Destailleur <eldy@users.sourceforge.net>
3  * Copyright (C) 2013 Juanjo Menent <jmenent@2byte.es>
4  *
5  * This program is free software; you can redistribute it and/or modify
6  * it under the terms of the GNU General Public License as published by
7  * the Free Software Foundation; either version 3 of the License, or
8  * (at your option) any later version.
9  *
10  * This program is distributed in the hope that it will be useful,
11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13  * GNU General Public License for more details.
14  *
15  * You should have received a copy of the GNU General Public License
16  * along with this program. If not, see <http://www.gnu.org/licenses/>.
17  */
18 
25 require '../main.inc.php';
26 require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php';
27 require_once DOL_DOCUMENT_ROOT.'/core/class/html.formfile.class.php';
28 
29 // Load translation files required by the page
30 $langs->loadLangs(array("other", "users", "admin"));
31 
32 if (!$user->admin) accessforbidden();
33 
34 $upload_dir=$conf->admin->dir_temp;
35 
36 
37 /*
38  * Actions
39  */
40 
41 if (GETPOST('action','aZ09') == 'set_proxy')
42 {
43  if (GETPOST("MAIN_USE_CONNECT_TIMEOUT") && ! is_numeric(GETPOST("MAIN_USE_CONNECT_TIMEOUT")))
44  {
45  setEventMessages($langs->trans("ErrorValueMustBeInteger"), null, 'errors');
46  $error++;
47  }
48  if (GETPOST("MAIN_USE_RESPONSE_TIMEOUT") && ! is_numeric(GETPOST("MAIN_USE_RESPONSE_TIMEOUT")))
49  {
50  setEventMessages($langs->trans("ErrorValueMustBeInteger"), null, 'errors');
51  $error++;
52  }
53 
54  if (! $error)
55  {
56  $result=0;
57  $result+=dolibarr_set_const($db, 'MAIN_USE_CONNECT_TIMEOUT', GETPOST("MAIN_USE_CONNECT_TIMEOUT"), 'chaine',0,'',$conf->entity);
58  $result+=dolibarr_set_const($db, 'MAIN_USE_RESPONSE_TIMEOUT', GETPOST("MAIN_USE_RESPONSE_TIMEOUT"), 'chaine',0,'',$conf->entity);
59  $result+=dolibarr_set_const($db, 'MAIN_PROXY_USE', GETPOST("MAIN_PROXY_USE"), 'chaine',0,'',$conf->entity);
60  $result+=dolibarr_set_const($db, 'MAIN_PROXY_HOST',GETPOST("MAIN_PROXY_HOST"),'chaine',0,'',$conf->entity);
61  $result+=dolibarr_set_const($db, 'MAIN_PROXY_PORT',GETPOST("MAIN_PROXY_PORT"),'chaine',0,'',$conf->entity);
62  $result+=dolibarr_set_const($db, 'MAIN_PROXY_USER',GETPOST("MAIN_PROXY_USER"),'chaine',0,'',$conf->entity);
63  $result+=dolibarr_set_const($db, 'MAIN_PROXY_PASS',GETPOST("MAIN_PROXY_PASS"),'chaine',0,'',$conf->entity);
64  if ($result < 5) dol_print_error($db);
65  }
66 
67  if (! $error)
68  {
69  setEventMessages($langs->trans("RecordModifiedSuccessfully"), null, 'mesgs');
70  }
71 }
72 
73 
74 /*
75  * View
76  */
77 
78 $form = new Form($db);
79 
80 $wikihelp='EN:Setup_Security|FR:Paramétrage_Sécurité|ES:Configuración_Seguridad';
81 llxHeader('',$langs->trans("Proxy"), $wikihelp);
82 
83 print load_fiche_titre($langs->trans("SecuritySetup"),'','title_setup');
84 
85 print $langs->trans("ProxyDesc")."<br>\n";
86 print "<br>\n";
87 
88 
89 
90 print '<form action="'.$_SERVER["PHP_SELF"].'" method="POST">';
91 print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
92 print '<input type="hidden" name="action" value="set_proxy">';
93 
94 
95 $head=security_prepare_head();
96 
97 dol_fiche_head($head, 'proxy', $langs->trans("Security"), -1);
98 
99 
100 if ($conf->use_javascript_ajax)
101 {
102  print "\n".'<script type="text/javascript" language="javascript">';
103  print 'jQuery(document).ready(function () {
104  function initfields()
105  {
106  if (jQuery("#MAIN_PROXY_USE").val()==\'1\')
107  {
108  jQuery(".drag").show();
109  }
110  if (jQuery("#MAIN_PROXY_USE").val()==\'0\')
111  {
112  jQuery(".drag").hide();
113  }
114  }
115  initfields();
116  jQuery("#MAIN_PROXY_USE").change(function() {
117  initfields();
118  });
119  })';
120  print '</script>'."\n";
121 }
122 
123 
124 // Timeout
125 
126 print '<table width="100%" class="noborder">';
127 
128 print '<tr class="liste_titre">';
129 print '<td colspan="2">'.$langs->trans("Parameters").'</td>';
130 print '<td width="200">'.$langs->trans("Value").'</td>';
131 print "</tr>\n";
132 
133 
134 print '<tr class="oddeven">';
135 print '<td>'.$langs->trans("ConnectionTimeout").'</td><td align="right">';
136 print '</td>';
137 print '<td class="nowrap">';
138 print '<input class="flat" name="MAIN_USE_CONNECT_TIMEOUT" type="text" size="4" value="'.(isset($_POST["MAIN_USE_CONNECT_TIMEOUT"])?GETPOST("MAIN_USE_CONNECT_TIMEOUT"):$conf->global->MAIN_USE_CONNECT_TIMEOUT).'">';
139 print ' '.strtolower($langs->trans("Seconds"));
140 print '</td>';
141 print '</tr>';
142 
143 
144 print '<tr class="oddeven">';
145 print '<td>'.$langs->trans("ResponseTimeout").'</td><td align="right">';
146 print '</td>';
147 print '<td class="nowrap">';
148 print '<input class="flat" name="MAIN_USE_RESPONSE_TIMEOUT" type="text" size="4" value="'.$conf->global->MAIN_USE_RESPONSE_TIMEOUT.'">';
149 print ' '.strtolower($langs->trans("Seconds"));
150 print '</td>';
151 print '</tr>';
152 
153 
154 print '<tr class="oddeven">';
155 print '<td>'.$langs->trans("MAIN_PROXY_USE").'</td><td align="right">';
156 print '</td>';
157 print '<td class="nowrap">';
158 print $form->selectyesno('MAIN_PROXY_USE',$conf->global->MAIN_PROXY_USE,1);
159 print '</td>';
160 print '</tr>';
161 
162 
163 print '<tr class="oddeven">';
164 print '<td>'.$langs->trans("MAIN_PROXY_HOST").'</td><td align="right">';
165 print '</td>';
166 print '<td class="nowrap">';
167 print '<input class="flat" name="MAIN_PROXY_HOST" type="text" size="16" value="'.$conf->global->MAIN_PROXY_HOST.'">';
168 print '</td>';
169 print '</tr>';
170 
171 
172 print '<tr class="oddeven">';
173 print '<td>'.$langs->trans("MAIN_PROXY_PORT").'</td><td align="right">';
174 print '</td>';
175 print '<td class="nowrap">';
176 print '<input class="flat" name="MAIN_PROXY_PORT" type="text" size="4" value="'.$conf->global->MAIN_PROXY_PORT.'">';
177 print '</td>';
178 print '</tr>';
179 
180 
181 print '<tr class="oddeven">';
182 print '<td>'.$langs->trans("MAIN_PROXY_USER").'</td><td align="right">';
183 print '</td>';
184 print '<td class="nowrap">';
185 print '<input class="flat" name="MAIN_PROXY_USER" type="text" size="16" value="'.$conf->global->MAIN_PROXY_USER.'">';
186 print '</td>';
187 print '</tr>';
188 
189 
190 print '<tr class="oddeven">';
191 print '<td>'.$langs->trans("MAIN_PROXY_PASS").'</td><td align="right">';
192 print '</td>';
193 print '<td class="nowrap">';
194 print '<input class="flat" name="MAIN_PROXY_PASS" type="text" size="16" value="'.$conf->global->MAIN_PROXY_PASS.'">';
195 print '</td>';
196 print '</tr>';
197 
198 print '</table>';
199 
200 dol_fiche_end();
201 
202 print '<div class="center">';
203 print '<input type="submit" class="button" name="button" value="'.$langs->trans("Modify").'">';
204 print '</div>';
205 
206 print '</form>';
207 
208 // End of page
209 llxFooter();
210 $db->close();
llxFooter()
Empty footer.
Definition: wrapper.php:56
load_fiche_titre($titre, $morehtmlright='', $picto='title_generic.png', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
GETPOST($paramname, $check='none', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
print
Draft customers invoices.
Definition: index.php:91
setEventMessages($mesg, $mesgs, $style='mesgs')
Set event messages in dol_events session 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).
Definition: admin.lib.php:510
dol_print_error($db='', $error='', $errors=null)
Affiche message erreur system avec toutes les informations pour faciliter le diagnostic et la remonte...
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0)
Show a message to say access is forbidden and stop program Calling this function terminate execution ...
Class to manage generation of HTML components Only common components must be here.
dol_fiche_end($notab=0)
Show tab footer of a card.
llxHeader()
Empty header.
Definition: wrapper.php:44
security_prepare_head()
Prepare array with list of tabs.
Definition: admin.lib.php:606
dol_fiche_head($links=array(), $active='0', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='')
Show tab header of a card.
if(GETPOST('button_removefilter_x', 'alpha')||GETPOST('button_removefilter.x', 'alpha')||GETPOST('button_removefilter', 'alpha')) if(GETPOST('button_search_x', 'alpha')||GETPOST('button_search.x', 'alpha')||GETPOST('button_search', 'alpha')) if($action=="save" &&empty($cancel)) $wikihelp
View.
Definition: agenda.php:120