Subversion Repositories Sites.tela-botanica.org

Rev

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