source: trunk/spip/esqueleto-redcta/plugins/spip-listes_1_9_2/exec/abonne_edit.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: 8.2 KB
Line 
1<?php
2
3/******************************************************************************************/
4/* SPIP-listes est un système 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énérale GNU publiée 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écifique. Reportez-vous à la Licence Publique Générale GNU  */
14/* pour plus de détails.                                                                  */
15/*                                                                                        */
16/* Vous devez avoir reçu une copie de la Licence Publique Générale GNU                    */
17/* en même temps que ce programme ; si ce n'est pas le cas, écrivez à la                  */
18/* Free Software Foundation,                                                              */
19/* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, États-Unis.                   */
20/******************************************************************************************/
21
22
23if (!defined("_ECRIRE_INC_VERSION")) return;
24
25include_spip('inc/presentation');
26include_spip('inc/affichage');
27
28function exec_abonne_edit(){
29        global $connect_statut;
30        global $connect_toutes_rubriques;
31        global $connect_id_auteur;
32       
33        $id_auteur = _request('id_auteur');
34        $confirm = _request('confirm');
35        $suppr_auteur = _request('suppr_auteur');
36        $id_liste = _request('id_liste');
37        $effacer_definitif = _request('effacer_definitif');
38        $nom = _request('nom');
39        $email = _request('email');
40       
41        $nomsite=lire_meta("nom_site"); 
42        $urlsite=lire_meta("adresse_site"); 
43               
44        // Admin SPIP-Listes
45        echo debut_page(_T('spiplistes:spip_listes'), "redacteurs", "spiplistes");
46       
47        if ($connect_statut != "0minirezo" ) {
48                echo "<p><b>"._T('spiplistes:acces_a_la_page')."</b></p>";
49                echo fin_page();
50                exit;
51        }
52       
53        if (($connect_statut == "0minirezo") OR ($connect_id_auteur == $id_auteur)) {
54                $statut_auteur=$statut;
55                spip_listes_onglets("messagerie", _T('spiplistes:spip_listes'));
56        }
57       
58        debut_gauche();
59        spip_listes_raccourcis();
60        creer_colonne_droite();
61        debut_droite("messagerie");
62       
63        // MODE ABONNE: gestion d'un abonne---------------------------------------------
64       
65        if($confirm == 'oui'){
66                $type_abo = _request('suppl_abo');
67                if($type_abo=='non') spiplistes_desabonner($id_auteur);
68               
69                 spip_query("UPDATE `spip_auteurs_elargis` SET `spip_listes_format`="._q($type_abo)." WHERE `id_auteur` ="._q($id_auteur));     
70        }
71       
72        $result = spip_query("SELECT * FROM spip_auteurs WHERE id_auteur="._q($id_auteur));
73       
74        if ($row = spip_fetch_array($result)) {
75                $id_auteur=$row['id_auteur'];
76                $nom=$row['nom'];
77                $bio=$row['bio'];
78                $email=$row['email'];
79                $nom_site_auteur=$row['nom_site'];
80                $url_site=$row['url_site'];
81                $login=$row['login'];
82                $pass=$row['pass'];
83                $statut=$row['statut'];
84                $pgp=$row["pgp"];
85                $messagerie=$row["messagerie"];
86                $imessage=$row["imessage"];
87                $low_sec = $row["low_sec"];
88               
89                echo "<div align='center'>";
90                gros_titre($nom);
91                echo "</div>";
92               
93                if ($statut == "0minirezo")
94                        $logo = "redacteurs-admin-24.gif";
95                elseif ($statut == "5poubelle")
96                        $logo = "redacteurs-poubelle-24.gif";
97                else
98                        $logo = "redacteurs-24.gif";
99               
100                if (strlen($email) > 2 OR strlen($bio) > 0 OR strlen($nom_site_auteur) > 0 OR ($champs_extra AND $extra)) {
101                        echo debut_cadre_relief("$logo");
102                        echo "<font face='Verdana,Arial,Sans,sans-serif'>";
103                        if (strlen($email) > 2) 
104                                echo _T('email_2')." <b><a href='mailto:$email'>$email</a></b><br /> ";
105                        if (strlen($nom_site_auteur) > 2)
106                                echo _T('info_site_2')." <b><a href='$url_site'>$nom_site_auteur</a></b>";
107                        echo "<p>".propre($bio)."</p>";
108                        echo "</font>";
109                        echo fin_cadre_relief();
110                       
111                                echo debut_cadre_relief("$logo");
112                               
113                                echo"<form action='?exec=abonne_edit' method='post'>";
114                               
115                                $abo = spip_fetch_array(spip_query("SELECT `spip_listes_format` FROM `spip_auteurs_elargis` WHERE `id_auteur`=$id_auteur")) ;           
116                //var_dump($abo);die("coucou");
117                $abo = $abo["spip_listes_format"];
118                                $c1 = ( $abo == 'html')? 'checked=checked)': '';
119                                $c2 = ( $abo == 'texte')? 'checked=checked': '';
120                                $c3 = ( $abo == 'non')? 'checked=checked': '';
121                                echo'<div style="text-align: left;">';
122                                echo'<strong>Format :</strong><br>';
123                                echo'<input name="suppl_abo" value="html" '.$c1.'  type="radio">'._T('spiplistes:html').'<br>';
124                                echo'<input name="suppl_abo" value="texte" '.$c2.' type="radio">'._T('spiplistes:texte').'<br>';
125                                echo'<input name="suppl_abo" '.$c3.' value="non" type="radio">'._T('spiplistes:desabonnement').'<br>';
126                                echo'</div>';
127                                echo"<p>";
128                                echo"<input type='submit' name='Valider' value='"._T('spiplistes:modifier')."'>";
129                                echo"<input type='hidden' name='id_auteur'  value=$id_auteur >";
130                                echo"<input type='hidden' name='confirm'  value='oui' >";
131                                echo"</p>";
132                                echo"</form>";
133                                echo fin_cadre_relief();
134                       
135                }
136               
137               
138                echo "<p>";
139                if ($connect_statut == "0minirezo") $aff_art = "'prepa','prop','publie','refuse'";
140                else if ($connect_id_auteur == $id_auteur) $aff_art = "'prepa','prop','publie'";
141                else $aff_art = "'prop','publie'";
142        }
143       
144        echo spiplistes_afficher_en_liste(_T('spiplistes:abonne_listes'), _DIR_PLUGIN_SPIPLISTES.'img_pack/stock_mail.gif', 'abonnements', '', '', 'position') ;
145
146        if ($statut == '6forum'){
147                $retour = generer_url_ecrire('abonnes_tous');
148                $action = generer_action_auteur('spiplistes_supprimer_abonne',$id_auteur,$retour);
149                echo debut_cadre_relief("$logo");
150                echo "<h3>"._T('spiplistes:supprime_contact')."</h3>";
151                echo "<form action='$action' method='post'>";
152                echo form_hidden($action);
153                echo "<p align='center'>";
154                echo "<input type='submit' name='Valider' value='"._T('spiplistes:supprime_contact_base')."'>";
155                echo "</p>";
156                echo "</form>";
157                echo fin_cadre_relief();
158        }
159       
160       
161        //MODE ABONNE FIN abonne -------------------------------------------------------
162       
163        echo "<p style='font-family: Arial, Verdana,sans-serif;font-size:10px;font-weight:bold'>".$GLOBALS['spiplistes_version']."<p>" ;
164        echo fin_gauche(), fin_page();
165}
166
167/******************************************************************************************/
168/* SPIP-listes est un système de gestion de listes d'abonnés et d'envoi d'information     */
169/* par email  pour SPIP.                                                                  */
170/* Copyright (C) 2004 Vincent CARON  v.caron<at>laposte.net , http://bloog.net            */
171/*                                                                                        */
172/* Ce programme est libre, vous pouvez le redistribuer et/ou le modifier selon les termes */
173/* de la Licence Publique Générale GNU publiée par la Free Software Foundation            */
174/* (version 2).                                                                           */
175/*                                                                                        */
176/* Ce programme est distribué car potentiellement utile, mais SANS AUCUNE GARANTIE,       */
177/* ni explicite ni implicite, y compris les garanties de commercialisation ou             */
178/* d'adaptation dans un but spécifique. Reportez-vous à la Licence Publique Générale GNU  */
179/* pour plus de détails.                                                                  */
180/*                                                                                        */
181/* Vous devez avoir reçu une copie de la Licence Publique Générale GNU                    */
182/* en même temps que ce programme ; si ce n'est pas le cas, écrivez à la                  */
183/* Free Software Foundation,                                                              */
184/* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, États-Unis.                   */
185/******************************************************************************************/
186?>
Note: See TracBrowser for help on using the repository browser.