Subversion Repositories Sites.tela-botanica.org

Rev

Rev 294 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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