Subversion Repositories Sites.tela-botanica.org

Rev

Rev 165 | 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' ;
20 alex 3 
include_once '../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
35 
if ($AUTH->getAuth()) {
36 
    include_once 'DB.php' ;
37 
    include_once 'HTML/QuickForm.php' ;
38 
    require_once 'HTML/QuickForm/checkbox.php' ;
39 
    // connection à la base botanica
40 
    $db = DB::connect ('mysql://telabotap:@localhost/tela_prod_v4') ;
41 
 
42 
    // On recherche le mail du gars
43 
    $requete_mail = "select U_MAIL from annuaire_tela where U_ID=".$AUTH->getAuthData('U_ID') ;
44 
    $resultat_mail = $db->query ($requete_mail) ;
45 
 
46 
    if (DB::isError($resultat_mail)) {
47 
        die ("Echec de la requete<br />".$resultat_mail->getMessage()."<br />".$resultat_mail->getDebugInfo()) ;
48 
    }
49 
 
50 
    $ligne_mail = $resultat_mail->fetchRow(DB_FETCHMODE_OBJECT) ;
51 
 
52 
 
53 
    // On traite l'abonnement / désabonnement avant d'afficher le formulaire
54 
    if (isset ($_POST['lettre'])  && $_POST['lettre'] == 'oui') {
55 
        $requete = "update annuaire_tela set U_LETTRE = 1 where U_ID=".$AUTH->getAuthData('U_ID') ;
56 
        $resultat = $db->query ($requete) ;
57 
        if (DB::isError($resultat)) {
58 
            die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
59 
        }
60 
 
61 
        // On envoie un email de demande d'inscription à la liste actu
62 
        $mail = & Mail::factory ('smtp') ;
63 
        $headers ['Return-Path'] = $ligne_mail->U_MAIL ;
64 
        $headers ['From'] = "<$ligne_mail->U_MAIL>" ;
65 
        $headers ['Subject'] = 'subscribe' ;
66 
        $headers ['Reply-To'] = $ligne_mail->U_MAIL ;
67 
 
68 
        $mail -> send ('actu-subscribe@tela-botanica.org', $headers, "") ;
69 
        if (PEAR::isError ($mail)) {
70 
            echo '<div class="erreur">Le mail n\'est pas partie...</div>' ;
71 
        } else {
72 
            // Le mail est partie on indique dans annuaire_tela que le gars est inscrit U_LETTRE = 1
73 
            $requete = "update annuaire_tela set U_LETTRE = 1 where U_ID=".$AUTH->getAuthData('U_ID') ;
74 
            $resultat = $db->query ($requete) ;
75 
            if (DB::isError($resultat)) {
76 
                die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
77 
            }
78 
            $message="Un message confirmant votre abonnement vous a &eacute;t&eacute; envoy&eacute; par email";
79 
        }
80 
    } else {
81 
        if (isset ($_POST['lettre']) && $_POST['lettre'] == 'non') {
82 
 
83 
        // On envoie un email de demande de désinscription à la liste actu
84 
        $mail = & Mail::factory ('smtp') ;
85 
        $headers ['Return-Path'] = $ligne_mail->U_MAIL ;
86 
        $headers ['From'] = "<$ligne_mail->U_MAIL>" ;
87 
        $headers ['Subject'] = 'subscribe' ;
88 
        $headers ['Reply-To'] = $ligne_mail->U_MAIL ;
89 
 
90 
        $mail -> send ('actu-unsubscribe@tela-botanica.org', $headers, "") ;
91 
        if (PEAR::isError ($mail)) {
92 
            echo '<div class="erreur">Le mail n\'est pas partie...</div>' ;
93 
            } else {
94 
                // On désinscrit dans l'annuaire
95 
                $requete = "update annuaire_tela set U_LETTRE = 0 where U_ID=".$AUTH->getAuthData('U_ID') ;
96 
                $resultat = $db->query ($requete) ;
97 
                if (DB::isError($resultat)) {
98 
                    die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
99 
                }
100 
            }
101 
            $message="Un message confirmant votre désabonnement vous a &eacute;t&eacute; envoy&eacute; par email";
102 
        }
103 
    }
104 
 
105 
    $requete = "select U_LETTRE from annuaire_tela where U_ID=".$AUTH->getAuthData('U_ID') ;
106 
    $resultat = $db->query ($requete) ;
107 
 
108 
    if (DB::isError($resultat)) {
109 
        die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
110 
    }
111 
 
112 
    $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ;
113 
 
114 
    $form = new HTML_QuickForm ('lettre', 'POST') ;
115 
    $insc_lettre[] = & HTML_QuickForm::createElement ('radio', 'lettre', 'Je souhaite recevoir la lettre d\'information', 'oui &nbsp;', 'oui',array ('id' => 'lettre')) ;
116 
    $insc_lettre[] = & HTML_QuickForm::createElement ('radio', 'lettre', 'Je souhaite recevoir la lettre d\'information', 'non &nbsp;', 'non',array ('id' => 'lettre')) ;
117 
    $insc_lettre[] = & HTML_QuickForm::createElement ('submit', 'submit', 'valider') ;
118 
    $form->addGroup ($insc_lettre, 'group', 'Je souhaite recevoir la lettre d\'information', '', false) ;
119 
    /*
120 
    $form->addElement ('radio', 'lettre', 'Je souhaite recevoir la lettre d\'information', 'non', 'non',array ('id' => 'lettre')) ;
121 
    $form->addElement ('radio', 'lettre', '', 'oui', 'oui',array ('id' => 'lettre')) ;*/
122 
    if ($ligne->U_LETTRE == 1) {
123 
        $form->setDefaults(array ('lettre' => 'oui')) ;
124 
    } else {
125 
        $form->setDefaults(array ('lettre' => 'non')) ;
126 
    }
127 
    //$form->addElement('submit', 'submit', 'Valider') ;
128 
    $form->display() ;
129 
 
130 
    // Un petit message
131 
    if (isset ($_POST['lettre'])) echo "<div class=\"erreur\">$message</div>\n" ;
132 
 
133 
    // on reconnecte à la base de SPIP
134 
    mysql_connect ('localhost', 'telabotap', '') ;
135 
    mysql_select_db ('tela_prod_spip_actu') ;
136 
}
137 
?>
138 
</p>
139 
<h2 class="titre_article">Pour ne plus recevoir la lettre d'information</h2>
140 
<ul>
141 
<li>Vérifiez que vous êtes actuellement identifié (dans ce cas, votre nom figure dans le menu gauche), sinon, identifiez-vous.</li>
142 
<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>
143 
</ul>
144 
<p>En cas de problème, veuillez contacter l'adresse <a href="mailto:accueil@tela-botanica.org">accueil@tela-botanica.org</a></p>
145 
</div>
146 
 
147 
<INCLURE(incl_footer.php)>
148 
</div>
149 
<!-- Menu de navigation rubriques -->
150 
 
151 
<div id="nav_gauche">
152 
<INCLURE(incl_logo_tela.php)>
153 
<INCLURE(incl_changer_monde.php)>
154 
<?php
155 
$selection = "recevoir";
156 
?>
157 
<INCLURE(incl_menu_gauche.php)>
158 
<INCLURE(incl_identification_ellipse.php)>
159 
 
160 
</div>
161 
<INCLURE(incl_footer_print.php)>
162 
</div>
166 magali 163 
</div>
4 david 164 
</body>
165 
</html>