dolibarr 18.0.6
blockedlog.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2017 ATM Consulting <contact@atm-consulting.fr>
3 * Copyright (C) 2017-2018 Laurent Destailleur <eldy@destailleur.fr>
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 <https://www.gnu.org/licenses/>.
17 */
18
26// Load Dolibarr environment
27require '../../main.inc.php';
28require_once DOL_DOCUMENT_ROOT.'/blockedlog/lib/blockedlog.lib.php';
29require_once DOL_DOCUMENT_ROOT.'/blockedlog/class/blockedlog.class.php';
30require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php';
31
32// Load translation files required by the page
33$langs->loadLangs(array('admin', 'blockedlog', 'other'));
34
35// Access Control
36if (!$user->admin || empty($conf->blockedlog->enabled)) {
38}
39
40// Get Parameters
41$action = GETPOST('action', 'aZ09');
42$backtopage = GETPOST('backtopage', 'alpha');
43$withtab = GETPOST('withtab', 'int');
44
45
46/*
47 * Actions
48 */
49
50$reg = array();
51if (preg_match('/set_(.*)/', $action, $reg)) {
52 $code = $reg[1];
53 $values = GETPOST($code);
54 if (is_array($values)) {
55 $values = implode(',', $values);
56 }
57
58 if (dolibarr_set_const($db, $code, $values, 'chaine', 0, '', $conf->entity) > 0) {
59 header("Location: ".$_SERVER["PHP_SELF"].($withtab ? '?withtab='.$withtab : ''));
60 exit;
61 } else {
62 dol_print_error($db);
63 }
64}
65
66if (preg_match('/del_(.*)/', $action, $reg)) {
67 $code = $reg[1];
68 if (dolibarr_del_const($db, $code, 0) > 0) {
69 Header("Location: ".$_SERVER["PHP_SELF"].($withtab ? '?withtab='.$withtab : ''));
70 exit;
71 } else {
72 dol_print_error($db);
73 }
74}
75
76
77/*
78 * View
79 */
80
81$form = new Form($db);
82$block_static = new BlockedLog($db);
83$block_static->loadTrackedEvents();
84
85$title = $langs->trans("BlockedLogSetup");
86$help_url="EN:Module_Unalterable_Archives_-_Logs|FR:Module_Archives_-_Logs_Inaltérable";
87
88llxHeader('', $title, $help_url);
89
90$linkback = '';
91if ($withtab) {
92 $linkback = '<a href="'.($backtopage ? $backtopage : DOL_URL_ROOT.'/admin/modules.php').'">'.$langs->trans("BackToModuleList").'</a>';
93}
94
95print load_fiche_titre($langs->trans("ModuleSetup").' '.$langs->trans('BlockedLog'), $linkback);
96
97if ($withtab) {
99 print dol_get_fiche_head($head, 'blockedlog', '', -1);
100}
101
102
103print '<span class="opacitymedium">'.$langs->trans("BlockedLogDesc")."</span><br>\n";
104
105print '<br>';
106
107print '<table class="noborder centpercent">';
108print '<tr class="liste_titre">';
109print '<td>'.$langs->trans("Key").'</td>';
110print '<td>'.$langs->trans("Value").'</td>';
111print "</tr>\n";
112
113print '<tr class="oddeven">';
114print '<td class="titlefield">';
115print $langs->trans("CompanyInitialKey").'</td><td>';
116print $block_static->getSignature();
117print '</td></tr>';
118
119if (!empty($conf->global->BLOCKEDLOG_USE_REMOTE_AUTHORITY)) {
120 // Example with a yes / no select
121 print '<tr class="oddeven">';
122 print '<td>'.$langs->trans("BlockedLogAuthorityUrl").img_info($langs->trans('BlockedLogAuthorityNeededToStoreYouFingerprintsInNonAlterableRemote')).'</td>';
123 print '<td class="right" width="300">';
124
125 print '<form method="POST" action="'.$_SERVER['PHP_SELF'].'">';
126 print '<input type="hidden" name="token" value="'.newToken().'">';
127 print '<input type="hidden" name="action" value="set_BLOCKEDLOG_AUTHORITY_URL">';
128 print '<input type="hidden" name="withtab" value="'.$withtab.'">';
129 print '<input type="text" name="BLOCKEDLOG_AUTHORITY_URL" value="'.$conf->global->BLOCKEDLOG_AUTHORITY_URL.'" size="40" />';
130 print '<input type="submit" class="button button-edit" value="'.$langs->trans("Modify").'">';
131 print '</form>';
132
133 print '</td></tr>';
134}
135
136print '<tr class="oddeven">';
137print '<td>'.$langs->trans("BlockedLogDisableNotAllowedForCountry").'</td>';
138print '<td>';
139
140print '<form method="POST" action="'.$_SERVER['PHP_SELF'].'">';
141print '<input type="hidden" name="token" value="'.newToken().'">';
142print '<input type="hidden" name="action" value="set_BLOCKEDLOG_DISABLE_NOT_ALLOWED_FOR_COUNTRY">';
143print '<input type="hidden" name="withtab" value="'.$withtab.'">';
144
145$sql = "SELECT rowid, code as code_iso, code_iso as code_iso3, label, favorite";
146$sql .= " FROM ".MAIN_DB_PREFIX."c_country";
147$sql .= " WHERE active > 0";
148
149$countryArray = array();
150$resql = $db->query($sql);
151if ($resql) {
152 while ($obj = $db->fetch_object($resql)) {
153 $countryArray[$obj->code_iso] = ($obj->code_iso && $langs->transnoentitiesnoconv("Country".$obj->code_iso) != "Country".$obj->code_iso ? $langs->transnoentitiesnoconv("Country".$obj->code_iso) : ($obj->label != '-' ? $obj->label : ''));
154 }
155}
156
157$seledted = empty($conf->global->BLOCKEDLOG_DISABLE_NOT_ALLOWED_FOR_COUNTRY) ? array() : explode(',', $conf->global->BLOCKEDLOG_DISABLE_NOT_ALLOWED_FOR_COUNTRY);
158
159print $form->multiselectarray('BLOCKEDLOG_DISABLE_NOT_ALLOWED_FOR_COUNTRY', $countryArray, $seledted);
160print '<input type="submit" class="button button-edit" value="'.$langs->trans("Modify").'">';
161print '</form>';
162
163print '</td>';
164
165
166print '<tr class="oddeven">';
167print '<td class="titlefield">';
168print $langs->trans("ListOfTrackedEvents").'</td><td>';
169$arrayoftrackedevents = $block_static->trackedevents;
170foreach ($arrayoftrackedevents as $key => $val) {
171 print $key.' - '.$langs->trans($val).'<br>';
172}
173
174print '</td></tr>';
175
176print '</tr>';
177
178print '</table>';
179
180if ($withtab) {
181 print dol_get_fiche_end();
182}
183
184print '<br><br>';
185
186// End of page
187llxFooter();
188$db->close();
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.
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader()
Empty header.
Definition wrapper.php:56
llxFooter()
Empty footer.
Definition wrapper.php:70
blockedlogadmin_prepare_head()
Define head array for tabs of blockedlog tools setup pages.
Class to manage Blocked Log.
Class to manage generation of HTML components Only common components must be here.
load_fiche_titre($titre, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
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_print_error($db='', $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
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.
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.