Subversion Repositories Sites.tela-botanica.org

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
425 jpm 1
<?php
2
include_once 'authentification.php' ;
3
include_once 'Mail.php';
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
	<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">
517 tam 20
						<h1 class="intituler_rubrique">Recevoir la lettre d'information hebdomadaire</h1>
21
						<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
22
							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>
23
						<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>
24
						<p>Pour vous abonner &agrave; la lettre d'information :<br />
425 jpm 25
						<ul>
517 tam 26
							<li>Inscrivez-vous au r&eacute;seau Tela Botanica (si ce n'est d&eacute;j&agrave; fait).</li>
27
							<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>
28
							<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>
425 jpm 29
						</ul>
517 tam 30
						<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 />
31
						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>
425 jpm 32
<?php
33
if ($GLOBALS['identification']->getAuth()) {
34
    include_once 'HTML/QuickForm.php' ;
35
    require_once 'HTML/QuickForm/checkbox.php' ;
36
 
37
    // On recherche le mail du gars
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) ;
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') {
50
        $requete = 'UPDATE annuaire_tela SET U_LETTRE = 1 WHERE U_ID = '.$GLOBALS['identification']->getAuthData('U_ID');
51
        $resultat = $GLOBALS['db']->query ($requete) ;
52
        if (DB::isError($resultat)) {
53
            die ('Echec de la requete<br />'.$resultat->getMessage().'<br />'.$resultat->getDebugInfo());
54
        }
55
 
56
        // On envoie un email de demande d'inscription à la liste actu
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;
62
 
63
        $mail->send('actu-subscribe@tela-botanica.org', $headers, '');
64
        if (PEAR::isError ($mail)) {
65
            echo '<div class="erreur">Le mail n\'est pas partie...</div>';
66
        } else {
67
            // Le mail est partie on indique dans annuaire_tela que le gars est inscrit U_LETTRE = 1
68
            $requete = 'UPDATE annuaire_tela SET U_LETTRE = 1 WHERE U_ID = '.$GLOBALS['identification']->getAuthData('U_ID');
69
            $resultat = $GLOBALS['db']->query ($requete);
70
            if (DB::isError($resultat)) {
71
                die ('Echec de la requete<br />'.$resultat->getMessage().'<br />'.$resultat->getDebugInfo());
72
            }
73
            $message = 'Un message confirmant votre abonnement vous a &eacute;t&eacute; envoy&eacute; par email';
74
        }
75
    } else {
76
        if (isset ($_POST['lettre']) && $_POST['lettre'] == 'non') {
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);
100
 
101
    if (DB::isError($resultat)) {
102
        die ('Echec de la requete<br />'.$resultat->getMessage().'<br />'.$resultat->getDebugInfo());
103
    }
104
    $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
105
 
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
 
112
    if ($ligne->U_LETTRE == 1) {
113
        $form->setDefaults(array('lettre' => 'oui'));
114
    } else {
115
        $form->setDefaults(array('lettre' => 'non'));
116
    }
117
    $form->display();
118
 
119
    // Un petit message
120
    if (isset ($_POST['lettre'])) {
121
    	echo '<div class="erreur">'.$message.'</div>'."\n";
122
    }
123
}
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);
127
?>
517 tam 128
						<h1 class="intituler_rubrique">Pour ne plus recevoir la lettre d'information</h1>
425 jpm 129
						<ul>
517 tam 130
							<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>
131
							<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>
425 jpm 132
						</ul>
517 tam 133
						<p>En cas de probl&egrave;me, veuillez contacter l'adresse <a href="mailto:accueil@tela-botanica.org">accueil@tela-botanica.org</a></p>
425 jpm 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>