source: trunk/spip/esqueleto-redcta/plugins/spip-listes_1_9_2/exec/config.php @ 90

Last change on this file since 90 was 90, checked in by guille, 15 years ago

importacion de spip-listes-1_9_2

File size: 11.7 KB
Line 
1<?php
2
3/******************************************************************************************/
4/* SPIP-listes est un systï¿œe de gestion de listes d'information par email pour SPIP      */
5/* Copyright (C) 2004 Vincent CARON  v.caron<at>laposte.net , http://bloog.net            */
6/*                                                                                        */
7/* Ce programme est libre, vous pouvez le redistribuer et/ou le modifier selon les termes */
8/* de la Licence Publique Gᅵᅵale GNU publiï¿œ par la Free Software Foundation            */
9/* (version 2).                                                                           */
10/*                                                                                        */
11/* Ce programme est distribuï¿œcar potentiellement utile, mais SANS AUCUNE GARANTIE,       */
12/* ni explicite ni implicite, y compris les garanties de commercialisation ou             */
13/* d'adaptation dans un but spï¿œifique. Reportez-vous ï¿œla Licence Publique Gᅵᅵale GNU  */
14/* pour plus de dï¿œails.                                                                  */
15/*                                                                                        */
16/* Vous devez avoir reï¿œ une copie de la Licence Publique Gᅵᅵale GNU                    */
17/* en mï¿œe temps que ce programme ; si ce n'est pas le cas, ï¿œrivez ï¿œla                  */
18/* Free Software Foundation,                                                              */
19/* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, ï¿œats-Unis.                   */
20/******************************************************************************************/
21
22if (!defined("_ECRIRE_INC_VERSION")) return;
23
24include_spip('inc/presentation');
25include_spip('inc/distant');
26include_spip('inc/affichage');
27include_spip('inc/meta');
28include_spip('inc/config');
29
30
31function spiplistes_configurer() {
32        if ($abonnement_config = _request('abonnement_config'))
33                ecrire_meta('abonnement_config', $abonnement_config);
34       
35        if ($adresse_defaut = _request('email_defaut') AND email_valide($adresse_defaut)) {
36                ecrire_meta('email_defaut', $adresse_defaut);
37        }
38       
39        if ($smtp_server = _request('smtp_server'))
40                ecrire_meta('smtp_server', $smtp_server);
41
42        if ($smtp_login = _request('smtp_login'))
43                ecrire_meta('smtp_login', $smtp_login);
44       
45        if ($smtp_pass = _request('smtp_pass'))
46                ecrire_meta('smtp_pass', $smtp_pass);
47       
48        if ($smtp_port = _request('smtp_port'))
49                ecrire_meta('smtp_port', $smtp_port);
50       
51        if ($mailer_smtp = _request('mailer_smtp'))
52                ecrire_meta('mailer_smtp', $mailer_smtp);
53       
54        if ($smtp_identification = _request('smtp_identification'))
55                ecrire_meta('smtp_identification', $smtp_identification);
56       
57        if ($smtp_sender = _request('smtp_sender'))
58                ecrire_meta('smtp_sender', $smtp_sender);
59
60        ecrire_metas();
61}
62
63function exec_config(){
64
65        global $connect_statut;
66        global $connect_toutes_rubriques;
67        global $connect_id_auteur,$couleur_foncee;
68       
69        $reinitialiser_config = _request('reinitialiser_config');
70        $Valider_reinit = _request('Valider_reinit');
71
72        $nomsite=$GLOBALS['meta']['nom_site']; 
73        $urlsite=$GLOBALS['meta']['adresse_site']; 
74
75
76        // Admin SPIP-Listes
77        echo debut_page(_T('spiplistes:spip_listes'), "redacteurs", "spiplistes");
78
79        if ($connect_statut != "0minirezo" ) {
80                echo "<p><b>"._T('spiplistes:acces_a_la_page')."</b></p>";
81                echo fin_page();
82                exit;
83        }
84
85        if (($connect_statut == "0minirezo") OR ($connect_id_auteur == $id_auteur)) {
86                $statut_auteur=$statut;
87                spip_listes_onglets("messagerie", _T('spiplistes:spip_listes'));
88        }
89
90        debut_gauche();
91
92        spip_listes_raccourcis();
93        creer_colonne_droite();
94        debut_droite("messagerie");
95
96        // MODE CONFIG: Configuration de spip-listes -----------------------------------
97
98        spiplistes_configurer();
99
100        $config = $GLOBALS['meta']['abonnement_config'] ;
101
102        echo debut_cadre_relief("redacteurs-24.gif", false, "", _T('spiplistes:mode_inscription'));
103        echo "<form action='".generer_url_ecrire('config')."' method='post'>";
104        echo "<input type='hidden' name='changer_config' value='oui' />";
105       
106        echo "<table border=0 cellspacing=1 cellpadding=3 width=\"100%\">";
107       
108        echo "<tr><td background='img_pack/rien.gif' class='verdana2'>";
109
110        $texte1 = '' ;
111        $texte2 = '' ;
112        ($config == 'simple' ) ? $texte1 = "checked"  : $texte2 = "checked" ;
113
114        echo "<input type='radio' name='abonnement_config' value='simple' $texte1 id='statut_simple' />";
115        echo "<label for='statut_simple'>"._T('spiplistes:abonnement_simple')."</label> ";
116        echo "<p><input type='radio' name='abonnement_config' value='membre' $texte2 id='statut_membre' />";
117        echo "<label for='statut_membre'>"._T('spiplistes:abonnement_code_acces')."</label> ";
118        echo "</td></tr>";
119        echo "<tr><td style='text-align:$spip_lang_right;'>";
120        echo "<input type='submit' name='Valider' value='"._T('bouton_valider')."' class='fondo' />";
121        echo "</td></tr>";
122        echo "</table>\n";
123       
124        echo "</form>";
125        echo fin_cadre_relief();
126
127        echo "<form action='".generer_url_ecrire('config')."' method='post'>";
128
129        echo '<br />';
130        echo debut_cadre_relief("", false, "", _T('spiplistes:email_envoi'));
131
132        echo debut_cadre_trait_couleur("", false, "", _T('spiplistes:adresse_envoi'));
133        $adresse_defaut = (email_valide($GLOBALS['meta']['email_defaut'])) ? $GLOBALS['meta']['email_defaut'] : $GLOBALS['meta']['email_webmaster'];
134        echo "<input type='text' name='email_defaut' value='".$adresse_defaut."' size='30' CLASS='formo' />";
135       
136        echo fin_cadre_trait_couleur();
137
138        echo debut_cadre_trait_couleur("", false, "", _T('spiplistes:methode_envoi'));
139
140        echo _T('spiplistes:pas_sur');
141
142        $mailer_smtp = $GLOBALS['meta']['mailer_smtp'];
143
144        echo bouton_radio("mailer_smtp", "non", _T('spiplistes:php_mail'), $mailer_smtp == "non", "changeVisible(this.checked, 'smtp', 'none', 'block');");
145        echo "<br />";
146        echo bouton_radio("mailer_smtp", "oui", _T('spiplistes:smtp'), $mailer_smtp == "oui", "changeVisible(this.checked, 'smtp', 'block', 'none');");
147
148        if ($mailer_smtp == "oui") $style = "display: block;";
149        else $style = "display: none;";
150        echo "<div id='smtp' style='$style'>";
151        echo "<ul>";
152        echo "<li>"._T('spiplistes:smtp_hote')." <input type='text' name='smtp_server' value='".$GLOBALS['meta']['smtp_server']."' size='30' class='formo' />";
153        echo "<li>"._T('spiplistes:smtp_port')." <input type='text' name='smtp_port' value='".$GLOBALS['meta']['smtp_port']."' size='4' class='fondl' />";
154        echo "<li>"._T('spiplistes:spip_ident');
155
156        $smtp_identification = $GLOBALS['meta']['smtp_identification'];
157
158        echo bouton_radio("smtp_identification", "oui", _T('item_oui'), $smtp_identification == "oui", "changeVisible(this.checked, 'smtp-auth', 'block', 'none');");
159        echo "&nbsp;";
160        echo bouton_radio("smtp_identification", "non", _T('item_non'), $smtp_identification == "non", "changeVisible(this.checked, 'smtp-auth', 'none', 'block');");
161
162        if ($smtp_identification == "oui") $style = "display: block;";
163        else $style = "display: none;";
164        echo "<div id='smtp-auth' style='$style'>";
165        echo "<ul>";
166        echo "<li>"._T('item_login')." <input type='text' name='smtp_login' value='".$GLOBALS['meta']['smtp_login']."' size='30' CLASS='formo' />";
167        echo "<li>"._T('entree_passe_ldap')." <input type='password' name='smtp_pass' value='".$GLOBALS['meta']['smtp_pass']."' size='30' CLASS='formo' />";
168        echo "</ul>";
169        echo "</div>";
170
171        echo "</ul>";
172        echo "</div>";
173
174        echo "<br />";
175        echo fin_cadre_trait_couleur();
176
177        if ($mailer_smtp == "oui") $style = "display: block;";
178        else $style = "display: none;" ;
179        echo "<div style='$style'>";
180        echo debut_cadre_relief("", false, "", _T('spiplistes:adresse_smtp'));
181        echo "<p style='margin:10px'>"._T('spiplistes:adresse_smtp')."</p>";
182        echo "<input type='text' name='smtp_sender' value=\"".$GLOBALS['meta']['smtp_sender']."\" class='formo' />";
183        echo fin_cadre_relief();
184        echo "</div>\n";
185
186        echo "<input type='submit' name='valid_smtp' value='"._T('bouton_valider')."' class='fondo' style='float:right' />";
187        echo "<hr style='clear:both;visibility:hidden' />";
188
189        echo "</form>"; 
190
191        echo fin_cadre_relief();
192       
193        if (($reinitialiser_config == 'oui' AND $Valider_reinit)) {
194                ecrire_meta('spiplistes_lots' , _request('spiplistes_lots')) ;
195                ecrire_meta('spiplistes_charset_envoi' , _request('spiplistes_charset_envoi')) ;
196                ecrire_metas();
197        }
198
199        echo debut_cadre_relief("redacteurs-24.gif", false, "", _T('spiplistes:tableau_bord'));
200        echo "<form action='".generer_url_ecrire('config')."' method='post'>";
201        echo "<input type='hidden' name='reinitialiser_config' value='oui' />";
202        echo "<label for='spiplistes_lots'>"._T('spiplistes:nombre_lot')."</label>" ;
203        echo "<input type='text' name='spiplistes_lots' value=\"".$GLOBALS['meta']['spiplistes_lots']."\" class='formo' />";
204        echo "<label for='spiplistes_charset_envoi'>"._T('spiplistes:envoi_charset')."</label>" ;
205        echo "<input type='text' name='spiplistes_charset_envoi' value=\"".$GLOBALS['meta']['spiplistes_charset_envoi']."\" class='formo' />";
206
207        echo "<input type='submit' name='Valider_reinit' value='"._T('spiplistes:reinitialiser')."' class='fondo' style='float:right' />";
208        echo "<hr style='clear:both;visibility:hidden' />";
209        echo "</form>";
210        echo fin_cadre_relief();
211
212
213       
214function sl_console_lit_log($logname){
215        $files = preg_files(defined('_DIR_TMP')?_DIR_TMP:_DIR_SESSION ,"$logname\.log(\.[0-9])?");
216        krsort($files);
217
218        $log = "";
219        foreach($files as $nom){
220                if (lire_fichier($nom,$contenu))
221                        $log.=$contenu;
222        }
223        $contenu = explode("<br />",nl2br($contenu));
224       
225        $out = "";
226        $maxlines = 40;
227        while ($contenu && $maxlines--){
228                $out .= array_pop($contenu)."\n";
229        }
230        return $out;
231}
232
233if(_request('logs')=="oui"){
234echo "<a name='logs'></a>";
235echo debut_cadre_relief("", false, "", "Logs");
236echo "<div style='width:98%;overflow:auto'>";
237echo "<pre>".sl_console_lit_log("spiplistes")."</pre>";
238echo "</div>";
239echo fin_cadre_relief();
240}else{
241echo "<a href='".generer_url_ecrire('config','logs=oui#logs')."'>Logs</a>";
242}
243
244        // MODE CONFIG FIN -------------------------------------------------------------
245
246        //$spiplistes_version = "SPIP-listes 1.9b2";
247        echo "<p style='font-family: Arial, Verdana,sans-serif;font-size:10px;font-weight:bold'>".$GLOBALS['spiplistes_version']."</p>" ;
248
249        echo fin_gauche(), fin_page();
250}
251
252/******************************************************************************************/
253/* SPIP-listes est un systï¿œe de gestion de listes d'abonnï¿œ et d'envoi d'information     */
254/* par email  pour SPIP.                                                                  */
255/* Copyright (C) 2004 Vincent CARON  v.caron<at>laposte.net , http://bloog.net            */
256/*                                                                                        */
257/* Ce programme est libre, vous pouvez le redistribuer et/ou le modifier selon les termes */
258/* de la Licence Publique Gᅵᅵale GNU publiï¿œ par la Free Software Foundation            */
259/* (version 2).                                                                           */
260/*                                                                                        */
261/* Ce programme est distribuï¿œcar potentiellement utile, mais SANS AUCUNE GARANTIE,       */
262/* ni explicite ni implicite, y compris les garanties de commercialisation ou             */
263/* d'adaptation dans un but spï¿œifique. Reportez-vous ï¿œla Licence Publique Gᅵᅵale GNU  */
264/* pour plus de dï¿œails.                                                                  */
265/*                                                                                        */
266/* Vous devez avoir reï¿œ une copie de la Licence Publique Gᅵᅵale GNU                    */
267/* en mï¿œe temps que ce programme ; si ce n'est pas le cas, ï¿œrivez ï¿œla                  */
268/* Free Software Foundation,                                                              */
269/* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, ï¿œats-Unis.                   */
270/******************************************************************************************/
271?>
Note: See TracBrowser for help on using the repository browser.