Subversion Repositories Sites.tela-botanica.org

Rev

Rev 517 | Blame | Compare with Previous | Last modification | View Log | RSS feed 

<?php
include_once 'authentification.php' ;
include_once 'Mail.php';
?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html lang="#LANG">
        <head>
          <title>Recevoir l'information</title>
                <INCLURE(incl_link_entete.php)>
        </head>
        <body >
                <div id="recevoir">
                        <div id="reducteur">
                                <INCLURE(incl_bandeau.php)>
                                <!-- Parcours de navigation -->
                                <div id="droite">
                                        <div id="pos_recherche">Vous &ecirc;tes ici : <a href="sommaire.php3">Accueil</a> &gt; Lettre d'information</div>
                                        <INCLURE(incl_mot_recherche.php)>
                                        <div id="contenu">
                                                <h1 class="intituler_rubrique">Recevoir la lettre d'information hebdomadaire</h1>
                                                <p><strong>Pour &ecirc;tre tenu inform&eacute; des actualit&eacute;s et des &eacute;v&egrave;nements publi&eacute;s par Tela Botanica, vous pouvez vous abonner &agrave; la
                                                        lettre d'information des actualit&eacute;s.</strong> Cette lettre, envoy&eacute;e tous les jeudi, donne les titres et un court extrait des derniers articles et &eacute;v&egrave;nements publi&eacute;s dans l'actualit&eacute; du site. Un lien vous permet d'acc&eacute;der directement au texte complet des &eacute;l&eacute;ments qui vous int&eacute;ressent.</p>
                                                <p>Ainsi, avec un minimum de messages vous &ecirc;tes inform&eacute;s r&eacute;guli&egrave;rement de l'essentiel de l'actualit&eacute; de la botanique francophone...</p>
                                                <p>Pour vous abonner &agrave; la lettre d'information :<br />
                                                <ul>
                                                        <li>Inscrivez-vous au r&eacute;seau Tela Botanica (si ce n'est d&eacute;j&agrave; fait).</li>
                                                        <li>V&eacute;rifiez que vous &ecirc;tes actuellement identifi&eacute; (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>
                                                        <li>Cochez la case "oui" après "Je souhaite recevoir la lettre d'information", puis validez. Cette lettre vous sera envoy&eacute;e &agrave; l'adresse avec laquelle vous vous &ecirc;tes inscrit au r&eacute;seau Tela Botanica.</li>
                                                </ul>
                                                <p>Si vous vous d&eacute;sinscrivez du r&eacute;seau Tela Botanica, vous serez automatiquement d&eacute;sabonn&eacute; de la lettre d'information. <br />
                                                Si vous changez l'adresse e-mail de votre inscription et que vous &ecirc;tes d&eacute;j&agrave; abonn&eacute; &agrave; la lettre, vous continuerez &agrave; la recevoir &agrave; votre nouvelle adresse.</p>
<?php
if ($GLOBALS['identification']->getAuth()) {
    include_once 'HTML/QuickForm.php' ;
    require_once 'HTML/QuickForm/checkbox.php' ;
    
    // On recherche le mail du gars
    $requete_mail = 'SELECT U_MAIL FROM annuaire_tela WHERE U_ID = '.$GLOBALS['identification']->getAuthData('U_ID') ;
    $resultat_mail = $GLOBALS['db']->query($requete_mail) ;

    if (DB::isError($resultat_mail)) {
        die ("Echec de la requete<br />".$resultat_mail->getMessage()."<br />".$resultat_mail->getDebugInfo()) ;
    }

    $ligne_mail = $resultat_mail->fetchRow(DB_FETCHMODE_OBJECT) ;


    // On traite l'abonnement / désabonnement avant d'afficher le formulaire
    if (isset ($_POST['lettre'])  && $_POST['lettre'] == 'oui') {
        $requete = 'UPDATE annuaire_tela SET U_LETTRE = 1 WHERE U_ID = '.$GLOBALS['identification']->getAuthData('U_ID');
        $resultat = $GLOBALS['db']->query ($requete) ;
        if (DB::isError($resultat)) {
            die ('Echec de la requete<br />'.$resultat->getMessage().'<br />'.$resultat->getDebugInfo());
        }

        // On envoie un email de demande d'inscription à la liste actu
        $mail = & Mail::factory('smtp') ;
        $headers['Return-Path'] = $ligne_mail->U_MAIL;
        $headers['From'] = "<$ligne_mail->U_MAIL>";
        $headers['Subject'] = 'subscribe';
        $headers['Reply-To'] = $ligne_mail->U_MAIL;
        
        $mail->send('actu-subscribe@tela-botanica.org', $headers, '');
        if (PEAR::isError ($mail)) {
            echo '<div class="erreur">Le mail n\'est pas partie...</div>';
        } else {
            // Le mail est partie on indique dans annuaire_tela que le gars est inscrit U_LETTRE = 1
            $requete = 'UPDATE annuaire_tela SET U_LETTRE = 1 WHERE U_ID = '.$GLOBALS['identification']->getAuthData('U_ID');
            $resultat = $GLOBALS['db']->query ($requete);
            if (DB::isError($resultat)) {
                die ('Echec de la requete<br />'.$resultat->getMessage().'<br />'.$resultat->getDebugInfo());
            }
            $message = 'Un message confirmant votre abonnement vous a &eacute;t&eacute; envoy&eacute; par email';
        }
    } else {
        if (isset ($_POST['lettre']) && $_POST['lettre'] == 'non') {
                // On envoie un email de demande de désinscription à la liste actu
                        $mail =& Mail::factory('smtp');
                        $headers['Return-Path'] = $ligne_mail->U_MAIL;
                $headers['From'] = "<$ligne_mail->U_MAIL>";
                $headers['Subject'] = 'subscribe';
                $headers['Reply-To'] = $ligne_mail->U_MAIL;
                
                $mail -> send ('actu-unsubscribe@tela-botanica.org', $headers, '');
                if (PEAR::isError ($mail)) {
                    echo '<div class="erreur">Le mail n\'est pas partie...</div>';
                        } else {
                                // On désinscrit dans l'annuaire
                $requete = 'UPDATE annuaire_tela SET U_LETTRE = 0 WHERE U_ID = '.$GLOBALS['identification']->getAuthData('U_ID');
                $resultat = $GLOBALS['db']->query($requete);
                                if (DB::isError($resultat)) {
                    die ('Echec de la requete<br />'.$resultat->getMessage().'<br />'.$resultat->getDebugInfo());
                                }
                        }
                        $message = 'Un message confirmant votre désabonnement vous a &eacute;t&eacute; envoy&eacute; par email';
                }
        }
    $requete = 'SELECT U_LETTRE FROM annuaire_tela WHERE U_ID = '.$GLOBALS['identification']->getAuthData('U_ID');
    $resultat = $GLOBALS['db']->query($requete);
    
    if (DB::isError($resultat)) {
        die ('Echec de la requete<br />'.$resultat->getMessage().'<br />'.$resultat->getDebugInfo());
    }
    $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
    
    $form = new HTML_QuickForm('lettre', 'POST');
    $insc_lettre[] =& HTML_QuickForm::createElement('radio', 'lettre', 'Je souhaite recevoir la lettre d\'information', 'oui &nbsp;', 'oui',array ('id' => 'lettre')) ;
    $insc_lettre[] =& HTML_QuickForm::createElement('radio', 'lettre', 'Je souhaite recevoir la lettre d\'information', 'non &nbsp;', 'non',array ('id' => 'lettre')) ;
    $insc_lettre[] =& HTML_QuickForm::createElement('submit', 'submit', 'valider') ;
    $form->addGroup($insc_lettre, 'group', 'Je souhaite recevoir la lettre d\'information', '', false);

    if ($ligne->U_LETTRE == 1) {
        $form->setDefaults(array('lettre' => 'oui'));
    } else {
        $form->setDefaults(array('lettre' => 'non'));
    }
    $form->display();
    
    // Un petit message
    if (isset ($_POST['lettre'])) {
        echo '<div class="erreur">'.$message.'</div>'."\n";
    }
}
// Reconnection à la base de SPIP
$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());
mysql_select_db('tela_prod_spip_actu', $db);
?>
                                                <h1 class="intituler_rubrique">Pour ne plus recevoir la lettre d'information</h1>
                                                <ul>
                                                        <li>V&eacute;rifiez que vous &ecirc;tes actuellement identifi&eacute; (dans ce cas, votre nom figure dans le menu gauche), sinon, identifiez-vous.</li>
                                                        <li>Cochez la case "non" après "Je souhaite recevoir la lettre d'information", puis validez. Vous serez automatiquement d&eacute;sabonn&eacute; de la lettre d'information. </a></li>
                                                </ul>
                                                <p>En cas de probl&egrave;me, veuillez contacter l'adresse <a href="mailto:accueil@tela-botanica.org">accueil@tela-botanica.org</a></p>
                                        </div>
                                <INCLURE(incl_footer.php)>
                        </div>
                        <!-- Menu de navigation rubriques -->
                        <?php $selection = "recevoir"; ?>
                        <div id="nav_gauche">
                                <INCLURE(incl_logo_tela.php)>
                                <INCLURE(incl_changer_monde.php)>
                                <INCLURE(incl_menu_gauche.php)>
                                <INCLURE(incl_identification_ellipse.php)>
                        </div>
                        <INCLURE(incl_footer_print.php)>
                </div>
        </body>
</html>