[90] | 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 | |
---|
| 22 | if (!defined("_ECRIRE_INC_VERSION")) return; |
---|
| 23 | |
---|
| 24 | include_spip('inc/presentation'); |
---|
| 25 | include_spip('inc/distant'); |
---|
| 26 | include_spip('inc/affichage'); |
---|
| 27 | include_spip('inc/meta'); |
---|
| 28 | include_spip('inc/config'); |
---|
| 29 | |
---|
| 30 | |
---|
| 31 | function 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 | |
---|
| 63 | function 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 " "; |
---|
| 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 | |
---|
| 214 | function 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 | |
---|
| 233 | if(_request('logs')=="oui"){ |
---|
| 234 | echo "<a name='logs'></a>"; |
---|
| 235 | echo debut_cadre_relief("", false, "", "Logs"); |
---|
| 236 | echo "<div style='width:98%;overflow:auto'>"; |
---|
| 237 | echo "<pre>".sl_console_lit_log("spiplistes")."</pre>"; |
---|
| 238 | echo "</div>"; |
---|
| 239 | echo fin_cadre_relief(); |
---|
| 240 | }else{ |
---|
| 241 | echo "<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 | ?> |
---|