Subversion Repositories Sites.tela-botanica.org

Compare Revisions

Ignore whitespace Rev 607 → Rev 608

/tags/v4.0/actu/recevoir.html
New file
0,0 → 1,148
<?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>