Subversion Repositories Sites.tela-botanica.org

Rev

Rev 190 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
4 david 1 
<?php
2 
include_once 'authentification.php' ;
190 jpm 3 
include_once PAP_CHEMIN_API_PEAR.'Mail.php' ;
4 david 4 
?>
5 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
6 
<html lang="#LANG">
7 
<head>
8 
  <title>Recevoir l'information</title>
9 
<INCLURE(incl_link_entete.php)>
10 
</head>
11 
 
12 
<body >
166 magali 13 
<div id="recevoir">
4 david 14 
<div id="reducteur">
15 
<INCLURE(incl_bandeau.php)>
16 
 
17 
<!-- Parcours de navigation -->
166 magali 18 
<div id="droite">
4 david 19 
<div id="pos_recherche">Vous &ecirc;tes ici : <a href="sommaire.php3">Accueil</a> &gt; Lettre d'information</div>
20 
<INCLURE(incl_mot_recherche.php)>
166 magali 21 
<div id="contenu">
4 david 22 
<h2 class="titre_article">Recevoir la lettre d'information hebdomadaire</h2>
23 
<p><strong>Pour être tenu informé des actualités publiées par Tela Botanica, vous pouvez vous abonner à la
24 
lettre d'information des actualités.</strong> Cette lettre, envoyée tous les mercredi, donne les titres et un court extrait des derniers articles publiés dans l'actualité du site. Un lien vous permet d'accéder directement au texte complet des articles qui vous intéressent.</p>
25 
<p>Ainsi, avec un minimum de messages vous êtes informés régulièrement de l'essentiel de l'actualité de la botanique francophone...</p>
26 
<p>Pour vous abonner à la lettre d'information :<br />
27 
<ul>
28 
<li>Inscrivez-vous au réseau Tela Botanica (si ce n'est déjà fait).</li>
29 
<li>Vérifiez que vous êtes actuellement identifié (dans ce cas, votre nom figure dans le menu gauche), sinon, identifiez-vous en indiquant en bas du menu gauche votre identifiant (adresse e-mail) et votre mot de passe. Validez en cliquant sur "ok".</li>
30 
<li>Cochez la case "oui" après "Je souhaite recevoir la lettre d'information", puis validez. Cette lettre vous sera envoyée à l'adresse avec laquelle vous vous êtes inscrit au réseau Tela Botanica.</li>
31 
</ul>
32 
<p>Si vous vous désinscrivez du réseau Tela Botanica, vous serez automatiquement désabonné de la lettre d'information. <br />
33 
Si vous changez l'adresse e-mail de votre inscription et que vous êtes déjà abonné à la lettre, vous continuerez à la recevoir à votre nouvelle adresse.</p>
34 
<?php
190 jpm 35 
if ($GLOBALS['identification']->getAuth()) {
36 
    include_once PAP_CHEMIN_API_PEAR.'HTML/QuickForm.php' ;
37 
    require_once PAP_CHEMIN_API_PEAR.'HTML/QuickForm/checkbox.php' ;
4 david 38 
 
39 
    // On recherche le mail du gars
190 jpm 40 
    $requete_mail = 'SELECT U_MAIL FROM annuaire_tela WHERE U_ID = '.$GLOBALS['identification']->getAuthData('U_ID') ;
41 
    $resultat_mail = $GLOBALS['db']->query($requete_mail) ;
4 david 42 
 
43 
    if (DB::isError($resultat_mail)) {
44 
        die ("Echec de la requete<br />".$resultat_mail->getMessage()."<br />".$resultat_mail->getDebugInfo()) ;
45 
    }
46 
 
47 
    $ligne_mail = $resultat_mail->fetchRow(DB_FETCHMODE_OBJECT) ;
48 
 
49 
 
50 
    // On traite l'abonnement / désabonnement avant d'afficher le formulaire
51 
    if (isset ($_POST['lettre'])  && $_POST['lettre'] == 'oui') {
190 jpm 52 
        $requete = "update annuaire_tela set U_LETTRE = 1 where U_ID=".$GLOBALS['identification']->getAuthData('U_ID') ;
53 
        $resultat = $GLOBALS['db']->query ($requete) ;
4 david 54 
        if (DB::isError($resultat)) {
55 
            die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
56 
        }
57 
 
58 
        // On envoie un email de demande d'inscription à la liste actu
59 
        $mail = & Mail::factory ('smtp') ;
60 
        $headers ['Return-Path'] = $ligne_mail->U_MAIL ;
61 
        $headers ['From'] = "<$ligne_mail->U_MAIL>" ;
62 
        $headers ['Subject'] = 'subscribe' ;
63 
        $headers ['Reply-To'] = $ligne_mail->U_MAIL ;
64 
 
65 
        $mail -> send ('actu-subscribe@tela-botanica.org', $headers, "") ;
66 
        if (PEAR::isError ($mail)) {
67 
            echo '<div class="erreur">Le mail n\'est pas partie...</div>' ;
68 
        } else {
69 
            // Le mail est partie on indique dans annuaire_tela que le gars est inscrit U_LETTRE = 1
190 jpm 70 
            $requete = "update annuaire_tela set U_LETTRE = 1 where U_ID=".$GLOBALS['identification']->getAuthData('U_ID') ;
71 
            $resultat = $GLOBALS['db']->query ($requete) ;
4 david 72 
            if (DB::isError($resultat)) {
73 
                die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
74 
            }
75 
            $message="Un message confirmant votre abonnement vous a &eacute;t&eacute; envoy&eacute; par email";
76 
        }
77 
    } else {
78 
        if (isset ($_POST['lettre']) && $_POST['lettre'] == 'non') {
79 
 
80 
        // On envoie un email de demande de désinscription à la liste actu
81 
        $mail = & Mail::factory ('smtp') ;
82 
        $headers ['Return-Path'] = $ligne_mail->U_MAIL ;
83 
        $headers ['From'] = "<$ligne_mail->U_MAIL>" ;
84 
        $headers ['Subject'] = 'subscribe' ;
85 
        $headers ['Reply-To'] = $ligne_mail->U_MAIL ;
86 
 
87 
        $mail -> send ('actu-unsubscribe@tela-botanica.org', $headers, "") ;
88 
        if (PEAR::isError ($mail)) {
89 
            echo '<div class="erreur">Le mail n\'est pas partie...</div>' ;
90 
            } else {
91 
                // On désinscrit dans l'annuaire
190 jpm 92 
                $requete = "update annuaire_tela set U_LETTRE = 0 where U_ID=".$GLOBALS['identification']->getAuthData('U_ID') ;
93 
                $resultat = $GLOBALS['db']->query ($requete) ;
4 david 94 
                if (DB::isError($resultat)) {
95 
                    die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
96 
                }
97 
            }
98 
            $message="Un message confirmant votre désabonnement vous a &eacute;t&eacute; envoy&eacute; par email";
99 
        }
100 
    }
101 
 
190 jpm 102 
    $requete = "select U_LETTRE from annuaire_tela where U_ID=".$GLOBALS['identification']->getAuthData('U_ID') ;
103 
    $resultat = $GLOBALS['db']->query ($requete) ;
4 david 104 
 
105 
    if (DB::isError($resultat)) {
106 
        die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
107 
    }
108 
 
109 
    $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ;
110 
 
111 
    $form = new HTML_QuickForm ('lettre', 'POST') ;
112 
    $insc_lettre[] = & HTML_QuickForm::createElement ('radio', 'lettre', 'Je souhaite recevoir la lettre d\'information', 'oui &nbsp;', 'oui',array ('id' => 'lettre')) ;
113 
    $insc_lettre[] = & HTML_QuickForm::createElement ('radio', 'lettre', 'Je souhaite recevoir la lettre d\'information', 'non &nbsp;', 'non',array ('id' => 'lettre')) ;
114 
    $insc_lettre[] = & HTML_QuickForm::createElement ('submit', 'submit', 'valider') ;
115 
    $form->addGroup ($insc_lettre, 'group', 'Je souhaite recevoir la lettre d\'information', '', false) ;
116 
    /*
117 
    $form->addElement ('radio', 'lettre', 'Je souhaite recevoir la lettre d\'information', 'non', 'non',array ('id' => 'lettre')) ;
118 
    $form->addElement ('radio', 'lettre', '', 'oui', 'oui',array ('id' => 'lettre')) ;*/
119 
    if ($ligne->U_LETTRE == 1) {
120 
        $form->setDefaults(array ('lettre' => 'oui')) ;
121 
    } else {
122 
        $form->setDefaults(array ('lettre' => 'non')) ;
123 
    }
124 
    //$form->addElement('submit', 'submit', 'Valider') ;
125 
    $form->display() ;
126 
 
127 
    // Un petit message
128 
    if (isset ($_POST['lettre'])) echo "<div class=\"erreur\">$message</div>\n" ;
129 
}
198 jpm 130 
	// on reconnecte à la base de SPIP
131 
	$db = mysql_connect(PAP_BDD_SERVEUR, PAP_BDD_UTILISATEUR, PAP_BDD_MOT_DE_PASSE, true) or die("Impossible de se connecter à la base de données: " . mysql_error());
132 
	mysql_select_db('tela_prod_spip_actu', $db);?>
4 david 133 
</p>
134 
<h2 class="titre_article">Pour ne plus recevoir la lettre d'information</h2>
135 
<ul>
136 
<li>Vérifiez que vous êtes actuellement identifié (dans ce cas, votre nom figure dans le menu gauche), sinon, identifiez-vous.</li>
137 
<li>Cochez la case "non" après "Je souhaite recevoir la lettre d'information", puis validez. Vous serez automatiquement désabonné de la lettre d'information. </a></li>
138 
</ul>
139 
<p>En cas de problème, veuillez contacter l'adresse <a href="mailto:accueil@tela-botanica.org">accueil@tela-botanica.org</a></p>
140 
</div>
141 
 
142 
<INCLURE(incl_footer.php)>
143 
</div>
144 
<!-- Menu de navigation rubriques -->
145 
 
146 
<?php
147 
$selection = "recevoir";
148 
?>
174 magali 149 
<div id="nav_gauche">
150 
<INCLURE(incl_logo_tela.php)>
151 
<INCLURE(incl_changer_monde.php)>
4 david 152 
<INCLURE(incl_menu_gauche.php)>
153 
<INCLURE(incl_identification_ellipse.php)>
154 
</div>
155 
<INCLURE(incl_footer_print.php)>
156 
</div>
157 
</body>
158 
</html>