Subversion Repositories Sites.tela-botanica.org

Compare Revisions

Ignore whitespace Rev 370 → Rev 371

/trunk/actu/incl_changer_monde.html
1,10 → 1,5
<div id="selecteur_site">
<?php
/** Inclusion du fichier de config général de Papyrus.*/
require_once '../papyrus/configuration/pap_config_avancee.inc.php';
/** Inclusion du fichier de config de Papyrus propre à l'installation courante.*/
require_once '../papyrus/configuration/pap_config.inc.php';
$_GEN_commun['pear_db'] = DB::connect(PAP_DSN);
// ATTENTION : si cela est changé dans Papyrus, il faut le changer ici!
// Définition du code numérique et alphanumérique du site
16,7 → 11,7
// Définition de l'id de langue courant
$_GEN_commun['url_i18n'] = 'fr';// devrait être remplacé par la valeur fournie par Spip
/** Inclusion du fichier de l'applette "Sélecteur de site".*/
require_once '../papyrus/applettes/selecteur_sites/selecteur_sites.php';
require_once 'papyrus/applettes/selecteur_sites/selecteur_sites.php';
echo afficherSelecteurSite(array('', 'XHTML'), $_GEN_commun);// Mettre array('', 'XHTML', 'SANS_1') pour ne pas afficher le site d'admin
$_GEN_commun['pear_db']->disconnect() ;
/trunk/actu/recevoir.html
4,37 → 4,35
?>
<!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">
<h2 class="titre_article">Recevoir la lettre d'information hebdomadaire</h2>
<p><strong>Pour être tenu informé des actualités publiées par Tela Botanica, vous pouvez vous abonner à la
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>
<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>
<p>Pour vous abonner à la lettre d'information :<br />
<ul>
<li>Inscrivez-vous au réseau Tela Botanica (si ce n'est déjà fait).</li>
<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>
<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>
</ul>
<p>Si vous vous désinscrivez du réseau Tela Botanica, vous serez automatiquement désabonné de la lettre d'information. <br />
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>
<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">
<h2 class="titre_article">Recevoir la lettre d'information hebdomadaire</h2>
<p><strong>Pour être tenu informé des actualités publiées par Tela Botanica, vous pouvez vous abonner à la
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>
<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>
<p>Pour vous abonner à la lettre d'information :<br />
<ul>
<li>Inscrivez-vous au réseau Tela Botanica (si ce n'est déjà fait).</li>
<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>
<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>
</ul>
<p>Si vous vous désinscrivez du réseau Tela Botanica, vous serez automatiquement désabonné de la lettre d'information. <br />
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>
<?php
if ($GLOBALS['identification']->getAuth()) {
include_once PAP_CHEMIN_API_PEAR.'HTML/QuickForm.php' ;
require_once PAP_CHEMIN_API_PEAR.'HTML/QuickForm/checkbox.php' ;
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') ;
49,110 → 47,102
 
// 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') ;
$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()) ;
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 = & 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, "") ;
$mail->send('actu-subscribe@tela-botanica.org', $headers, '');
if (PEAR::isError ($mail)) {
echo '<div class="erreur">Le mail n\'est pas partie...</div>' ;
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) ;
$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()) ;
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";
$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) ;
// 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()) ;
die ('Echec de la requete<br />'.$resultat->getMessage().'<br />'.$resultat->getDebugInfo());
}
$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
$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) ;
/*
$form->addElement ('radio', 'lettre', 'Je souhaite recevoir la lettre d\'information', 'non', 'non',array ('id' => 'lettre')) ;
$form->addElement ('radio', 'lettre', '', 'oui', 'oui',array ('id' => 'lettre')) ;*/
$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')) ;
$form->setDefaults(array('lettre' => 'oui'));
} else {
$form->setDefaults(array ('lettre' => 'non')) ;
$form->setDefaults(array('lettre' => 'non'));
}
//$form->addElement('submit', 'submit', 'Valider') ;
$form->display() ;
$form->display();
// Un petit message
if (isset ($_POST['lettre'])) echo "<div class=\"erreur\">$message</div>\n" ;
if (isset ($_POST['lettre'])) {
echo '<div class="erreur">'.$message.'</div>'."\n";
}
}
// on reconnecte à 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);?>
</p>
<h2 class="titre_article">Pour ne plus recevoir la lettre d'information</h2>
<ul>
<li>Vérifiez que vous êtes actuellement identifié (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ésabonné de la lettre d'information. </a></li>
</ul>
<p>En cas de problè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";
// 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);
?>
<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>
<h2 class="titre_article">Pour ne plus recevoir la lettre d'information</h2>
<ul>
<li>Vérifiez que vous êtes actuellement identifié (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ésabonné de la lettre d'information. </a></li>
</ul>
<p>En cas de problè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>
/trunk/actu/authentification.php
38,11 → 38,14
// +------------------------------------------------------------------------------------------------------+
// | ENTETE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
set_include_path(get_include_path().PATH_SEPARATOR.$_SERVER['DOCUMENT_ROOT']);
// Le fichier authentification.php est appelé systématiquement, il peut donc contenir les inclusions de fichiers génériques.
include_once dirname(realpath(__FILE__)).'/../papyrus/configuration/pap_config_avancee.inc.php' ;
include_once dirname(realpath(__FILE__)).'/../papyrus/configuration/pap_config.inc.php' ;
include_once '../'.PAP_CHEMIN_API_PEAR.'Auth.php' ;
include_once '../'.PAP_CHEMIN_API_PEAR.'DB.php' ;
// ATTENTION : bien inclure la racine du site /home/telabotap/www/ et le chemin de l'api PEAR /home/telabotap/www/api/pear/ dans l'include path.
// ATTENTION : l'ancien include_path ajouté grace à get_include_path() doit être impérativement ajouté APRÉS le chemin de l'api Pear de Papyrus!
set_include_path($_SERVER['DOCUMENT_ROOT'].PATH_SEPARATOR.$_SERVER['DOCUMENT_ROOT'].DIRECTORY_SEPARATOR.PAP_CHEMIN_API_PEAR.PATH_SEPARATOR.get_include_path());
include_once 'Auth.php' ;
include_once 'DB.php' ;
include_once 'Net/URL.php' ;
 
$NetUrl = new Net_URL();
/trunk/actu/incl_link_entete.html
9,12 → 9,14
<meta name="keywords" content="botanique, botaniste, flore, monde v�g�tal, v�g�taux, actualit�s, articles, colloques, expositions, conf�rences, stages, sorties de terrain, revues, livres, emploi, nature, environnement, science, agronomie, protection, plante, plantes prot�g�es, biologie v�g�tale, syst�matique, taxinomie, taxonomie, taxons, floristique, ethnobotanique, phytosociologie, phytog�ographie, chorologie, �cologie, herbiers, herbier, nomenclature, noms vernaculaires, description, r�glementation, bibliographie, bibliographiques, reportage, �les juan Fernandez, pteridophytes, bryophytes, orchid�es, d�couvrir, apprentissage, classification, familles, genres, racines, tiges, feuilles, fleurs, fruits, Tela Botanica, association, fran�aise, fran�ais, langue fran�aise, France, r�seau, connaissances, connaissance, travail coop�ratif, fils d'information, RSS" />
 
<link rel="stylesheet" type="text/css" media="screen" href="/sites/commun/fr/styles/commun_simple.css" />
<script type="text/javascript" src="/sites/commun/fr/scripts/commun.js"></script>
<style type="text/css" media="screen">
<!-- @import "/sites/commun/fr/styles/commun_complexe.css";
@import "/actu/css/actu.css";-->
</style>
<link rel="stylesheet" type="text/css" media="print" href="/sites/commun/fr/styles/impression.css" />
<link rel="shortcut icon" type="image/x-icon" href="/sites/commun/generique/images/favicones/tela_botanica.ico" />
<link rel="icon" type="image/png" href="/sites/commun/generique/images/favicones/tela_botanica.png" />
<link rel="alternate" type="application/xml" title="R&eacute;cents articles en XML (RSS)" href="/articles/xml/" />
<script type="text/javascript" src="/sites/commun/fr/scripts/commun.js"></script>
<style type="text/css" media="screen">
<!-- @import "/sites/commun/fr/styles/commun_complexe.css";
@import "/actu/css/actu.css";-->
</style>
<link rel="stylesheet" type="text/css" media="print" href="/sites/commun/fr/styles/impression.css" />
<link rel="shortcut icon" type="image/x-icon" href="/sites/commun/generique/images/favicones/tela_botanica.ico" />
<link rel="icon" type="image/png" href="/sites/commun/generique/images/favicones/tela_botanica.png" />
<link rel="alternate" type="application/xml" title="R&eacute;cents articles en XML (RSS)" href="/articles/xml/" />
<link rel="alternate" type="application/rss+xml" href="http://www.tela-botanica.org/actu/backend.php3" title="Actualité de la botanique - Articles">
<link rel="alternate" type="application/rss+xml" href="http://www.tela-botanica.org/actu/spip_rss.php?op=forums&args=page-public&id=2951&cle=62349f28&lang=fr" title="Actualité de la botanique - Commentaires">
/trunk/actu/incl_mot_recherche.html
1,21 → 1,13
<!-- Formulaire de recherche du moteur de recherche de Papyrus (compatible spip) -->
<div id="moteur_recheche">
<?php
 
/** Inclusion de la classe PEAR gérant les URL.*/
require_once 'Net/URL.php';
/** Inclusion du fichier des fonctions meta.*/
include_once '../papyrus/bibliotheque/fonctions/pap_meta.fonct.php' ;
include_once 'papyrus/bibliotheque/fonctions/pap_meta.fonct.php' ;
/** Inclusion du fichier des fonctions menu.*/
include_once '../papyrus/bibliotheque/fonctions/pap_menu.fonct.php' ;
include_once 'papyrus/bibliotheque/fonctions/pap_menu.fonct.php' ;
/** Inclusion du fichier de classe Pap_Url.*/
include_once '../papyrus/bibliotheque/classes/pap_url.class.php' ;
/** Inclusion du fichier de config général de Papyrus.*/
include_once '../papyrus/configuration/pap_config_avancee.inc.php' ;
/** Inclusion du fichier de config de Papyrus propre à l'installation courante.*/
include_once '../papyrus/configuration/pap_config.inc.php' ;
include_once 'papyrus/bibliotheque/classes/pap_url.class.php' ;
$_GEN_commun['pear_db'] = DB::connect(PAP_DSN);
// Définition de l'id de langue courant
$GLOBALS['_GEN_commun']['i18n'] = 'fr';// devrait être remplacé par la valeur fournie par Spip
23,7 → 15,7
$GLOBALS['_GEN_commun']['url']->setPermalienBool(false);
/** Inclusion du fichier de l'applette "Moteur de Recherche".*/
require_once '../papyrus/applettes/moteur_recherche/moteur_recherche.php';
require_once 'papyrus/applettes/moteur_recherche/moteur_recherche.php';
echo afficherMoteurRecherche(array(), $GLOBALS['_GEN_commun']);
//$_GEN_commun['pear_db']->disconnect() ;
/trunk/actu/incl_identification_ellipse.html
1,5 → 1,4
<?php
include_once 'papyrus/configuration/pap_config_avancee.inc.php' ;
include_once 'papyrus/applettes/identification/identification.php';
include_once 'api/debogage/BOG_sql.fonct.php';
include_once 'papyrus/bibliotheque/fonctions/pap_identification.fonct.php';