dolibarr  9.0.0
spip.php
Go to the documentation of this file.
1 <?php
2 /* Copyright (C) 2003 Rodolphe Quiedeville <rodolphe@quiedeville.org>
3  * Copyright (C) 2003 Jean-Louis Bergamo <jlb@j1b.org>
4  * Copyright (C) 2004-2012 Laurent Destailleur <eldy@users.sourceforge.net>
5  * Copyright (C) 2004 Sebastien Di Cintio <sdicintio@ressource-toi.org>
6  * Copyright (C) 2004 Benoit Mortier <benoit.mortier@opensides.be>
7  * Copyright (C) 2005-2011 Regis Houssin <regis.houssin@inodbox.com>
8  * Copyright (C) 2011-2013 Juanjo Menent <jmenent@2byte.es>
9  *
10  * This program is free software; you can redistribute it and/or modify
11  * it under the terms of the GNU General Public License as published by
12  * the Free Software Foundation; either version 3 of the License, or
13  * (at your option) any later version.
14  *
15  * This program is distributed in the hope that it will be useful,
16  * but WITHOUT ANY WARRANTY; without even the implied warranty of
17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18  * GNU General Public License for more details.
19  *
20  * You should have received a copy of the GNU General Public License
21  * along with this program. If not, see <http://www.gnu.org/licenses/>.
22  */
23 
30 require '../main.inc.php';
31 require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php';
32 require_once DOL_DOCUMENT_ROOT.'/core/lib/mailmanspip.lib.php';
33 require_once DOL_DOCUMENT_ROOT.'/categories/class/categorie.class.php';
34 
35 // Load translation files required by the page
36 $langs->loadLangs(array("admin", "members", "mailmanspip"));
37 
38 if (! $user->admin) accessforbidden();
39 
40 
41 $type=array('yesno','texte','chaine');
42 
43 $action = GETPOST('action','aZ09');
44 
45 
46 /*
47  * Actions
48  */
49 
50 // Action mise a jour ou ajout d'une constante
51 if ($action == 'update' || $action == 'add')
52 {
53  $constname=GETPOST("constname");
54  $constvalue=GETPOST("constvalue");
55 
56  // Action mise a jour ou ajout d'une constante
57  if ($action == 'update' || $action == 'add')
58  {
59  foreach($_POST['constname'] as $key => $val)
60  {
61  $constname=$_POST["constname"][$key];
62  $constvalue=$_POST["constvalue"][$key];
63  $consttype=$_POST["consttype"][$key];
64  $constnote=$_POST["constnote"][$key];
65 
66  $res=dolibarr_set_const($db,$constname,$constvalue,$type[$consttype],0,$constnote,$conf->entity);
67 
68  if (! $res > 0) $error++;
69  }
70 
71  if (! $error)
72  {
73  setEventMessages($langs->trans("SetupSaved"), null, 'mesgs');
74  }
75  else
76  {
77  setEventMessages($langs->trans("Error"), null, 'errors');
78  }
79  }
80 }
81 
82 // Action activation d'un sous module du module adherent
83 if ($action == 'set')
84 {
85  $result=dolibarr_set_const($db, $_GET["name"],$_GET["value"],'',0,'',$conf->entity);
86  if ($result < 0)
87  {
88  dol_print_error($db);
89  }
90 }
91 
92 // Action desactivation d'un sous module du module adherent
93 if ($action == 'unset')
94 {
95  $result=dolibarr_del_const($db,$_GET["name"],$conf->entity);
96  if ($result < 0)
97  {
98  dol_print_error($db);
99  }
100 }
101 
102 
103 
104 /*
105  * View
106  */
107 
108 $help_url='';
109 
110 llxHeader('',$langs->trans("MailmanSpipSetup"),$help_url);
111 
112 
113 $linkback='<a href="'.DOL_URL_ROOT.'/admin/modules.php?restore_lastsearch_values=1">'.$langs->trans("BackToModuleList").'</a>';
114 print load_fiche_titre($langs->trans("MailmanSpipSetup"),$linkback,'title_setup');
115 
116 
117 $head = mailmanspip_admin_prepare_head();
118 
119 
120 /*
121  * Spip
122  */
123 if (! empty($conf->global->ADHERENT_USE_SPIP))
124 {
125  print '<form action="'.$_SERVER["PHP_SELF"].'" method="POST">';
126 
127  dol_fiche_head($head, 'spip', $langs->trans("Setup"), 0, 'user');
128 
129  //$link=img_picto($langs->trans("Active"),'tick').' ';
130  $link='<a href="'.$_SERVER["PHP_SELF"].'?action=unset&value=0&name=ADHERENT_USE_SPIP">';
131  //$link.=$langs->trans("Disable");
132  $link.=img_picto($langs->trans("Activated"),'switch_on');
133  $link.='</a>';
134  // Edition des varibales globales
135  $constantes=array(
136  'ADHERENT_SPIP_SERVEUR',
137  'ADHERENT_SPIP_DB',
138  'ADHERENT_SPIP_USER',
139  'ADHERENT_SPIP_PASS'
140  );
141 
142  print load_fiche_titre($langs->trans('SPIPTitle'), $link, '');
143  print '<br>';
144 
145  form_constantes($constantes,2);
146 
147  dol_fiche_end();
148 
149  print '<div class="center"><input type="submit" class="button" value="'.$langs->trans("Update").'" name="update"></div>';
150 
151  print '</form>';
152 }
153 else
154 {
155  dol_fiche_head($head, 'spip', $langs->trans("Setup"), 0, 'user');
156 
157  $link='<a href="'.$_SERVER["PHP_SELF"].'?action=set&value=1&name=ADHERENT_USE_SPIP">';
158  //$link.=$langs->trans("Activate");
159  $link.=img_picto($langs->trans("Disabled"),'switch_off');
160  $link.='</a>';
161  print load_fiche_titre($langs->trans('SPIPTitle'), $link, '');
162 
163  dol_fiche_end();
164 }
165 
166 // End of page
167 llxFooter();
168 $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...
form_constantes($tableau, $strictw3c=0, $helptext='')
Show array with constants to edit.
Definition: admin.lib.php:1365
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0)
Show a message to say access is forbidden and stop program Calling this function terminate execution ...
dolibarr_del_const($db, $name, $entity=1)
Effacement d&#39;une constante dans la base de donnees.
Definition: admin.lib.php:435
dol_fiche_end($notab=0)
Show tab footer of a card.
llxHeader()
Empty header.
Definition: wrapper.php:44
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=false, $srconly=0, $notitle=0, $alt='', $morecss='')
Show picto whatever it&#39;s its name (generic function)
dol_fiche_head($links=array(), $active='0', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='')
Show tab header of a card.