laposte.net , http://bloog.net */
/* */
/* Ce programme est libre, vous pouvez le redistribuer et/ou le modifier selon les termes */
/* de la Licence Publique Générale GNU publiée par la Free Software Foundation */
/* (version 2). */
/* */
/* Ce programme est distribué car potentiellement utile, mais SANS AUCUNE GARANTIE, */
/* ni explicite ni implicite, y compris les garanties de commercialisation ou */
/* d'adaptation dans un but spécifique. Reportez-vous à la Licence Publique Générale GNU */
/* pour plus de détails. */
/* */
/* Vous devez avoir reçu une copie de la Licence Publique Générale GNU */
/* en même temps que ce programme ; si ce n'est pas le cas, écrivez à la */
/* Free Software Foundation, */
/* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, États-Unis. */
/******************************************************************************************/
if (!defined("_ECRIRE_INC_VERSION")) return;
include_spip('inc/presentation');
include_spip('inc/affichage');
function exec_abonne_edit(){
global $connect_statut;
global $connect_toutes_rubriques;
global $connect_id_auteur;
$id_auteur = _request('id_auteur');
$confirm = _request('confirm');
$suppr_auteur = _request('suppr_auteur');
$id_liste = _request('id_liste');
$effacer_definitif = _request('effacer_definitif');
$nom = _request('nom');
$email = _request('email');
$nomsite=lire_meta("nom_site");
$urlsite=lire_meta("adresse_site");
// Admin SPIP-Listes
echo debut_page(_T('spiplistes:spip_listes'), "redacteurs", "spiplistes");
if ($connect_statut != "0minirezo" ) {
echo ""._T('spiplistes:acces_a_la_page')."
";
echo fin_page();
exit;
}
if (($connect_statut == "0minirezo") OR ($connect_id_auteur == $id_auteur)) {
$statut_auteur=$statut;
spip_listes_onglets("messagerie", _T('spiplistes:spip_listes'));
}
debut_gauche();
spip_listes_raccourcis();
creer_colonne_droite();
debut_droite("messagerie");
// MODE ABONNE: gestion d'un abonne---------------------------------------------
if($confirm == 'oui'){
$type_abo = _request('suppl_abo');
if($type_abo=='non') spiplistes_desabonner($id_auteur);
spip_query("UPDATE `spip_auteurs_elargis` SET `spip_listes_format`="._q($type_abo)." WHERE `id_auteur` ="._q($id_auteur));
}
$result = spip_query("SELECT * FROM spip_auteurs WHERE id_auteur="._q($id_auteur));
if ($row = spip_fetch_array($result)) {
$id_auteur=$row['id_auteur'];
$nom=$row['nom'];
$bio=$row['bio'];
$email=$row['email'];
$nom_site_auteur=$row['nom_site'];
$url_site=$row['url_site'];
$login=$row['login'];
$pass=$row['pass'];
$statut=$row['statut'];
$pgp=$row["pgp"];
$messagerie=$row["messagerie"];
$imessage=$row["imessage"];
$low_sec = $row["low_sec"];
echo "";
gros_titre($nom);
echo "
";
if ($statut == "0minirezo")
$logo = "redacteurs-admin-24.gif";
elseif ($statut == "5poubelle")
$logo = "redacteurs-poubelle-24.gif";
else
$logo = "redacteurs-24.gif";
if (strlen($email) > 2 OR strlen($bio) > 0 OR strlen($nom_site_auteur) > 0 OR ($champs_extra AND $extra)) {
echo debut_cadre_relief("$logo");
echo "";
if (strlen($email) > 2)
echo _T('email_2')." $email
";
if (strlen($nom_site_auteur) > 2)
echo _T('info_site_2')." $nom_site_auteur";
echo "".propre($bio)."
";
echo "";
echo fin_cadre_relief();
echo debut_cadre_relief("$logo");
echo"";
echo fin_cadre_relief();
}
echo "";
if ($connect_statut == "0minirezo") $aff_art = "'prepa','prop','publie','refuse'";
else if ($connect_id_auteur == $id_auteur) $aff_art = "'prepa','prop','publie'";
else $aff_art = "'prop','publie'";
}
echo spiplistes_afficher_en_liste(_T('spiplistes:abonne_listes'), _DIR_PLUGIN_SPIPLISTES.'img_pack/stock_mail.gif', 'abonnements', '', '', 'position') ;
if ($statut == '6forum'){
$retour = generer_url_ecrire('abonnes_tous');
$action = generer_action_auteur('spiplistes_supprimer_abonne',$id_auteur,$retour);
echo debut_cadre_relief("$logo");
echo "
"._T('spiplistes:supprime_contact')."
";
echo "";
echo fin_cadre_relief();
}
//MODE ABONNE FIN abonne -------------------------------------------------------
echo "".$GLOBALS['spiplistes_version']."
" ;
echo fin_gauche(), fin_page();
}
/******************************************************************************************/
/* SPIP-listes est un système de gestion de listes d'abonnés et d'envoi d'information */
/* par email pour SPIP. */
/* Copyright (C) 2004 Vincent CARON v.caronlaposte.net , http://bloog.net */
/* */
/* Ce programme est libre, vous pouvez le redistribuer et/ou le modifier selon les termes */
/* de la Licence Publique Générale GNU publiée par la Free Software Foundation */
/* (version 2). */
/* */
/* Ce programme est distribué car potentiellement utile, mais SANS AUCUNE GARANTIE, */
/* ni explicite ni implicite, y compris les garanties de commercialisation ou */
/* d'adaptation dans un but spécifique. Reportez-vous à la Licence Publique Générale GNU */
/* pour plus de détails. */
/* */
/* Vous devez avoir reçu une copie de la Licence Publique Générale GNU */
/* en même temps que ce programme ; si ce n'est pas le cas, écrivez à la */
/* Free Software Foundation, */
/* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, États-Unis. */
/******************************************************************************************/
?>