Subversion Repositories Sites.tela-botanica.org

Rev

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