WebSVN – Sites.tela-botanica.org – Diff – /trunk/actu/recevoir.html

 <?php
 include_once 'authentification.php' ;
-include_once '../api/pear/Mail.php' ;
+include_once PAP_CHEMIN_API_PEAR.'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>
 <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 ($AUTH->getAuth()) {
+if ($GLOBALS['identification']->getAuth()) {
-    include_once 'DB.php' ;
-    include_once 'HTML/QuickForm.php' ;
+    include_once PAP_CHEMIN_API_PEAR.'HTML/QuickForm.php' ;
-    require_once 'HTML/QuickForm/checkbox.php' ;
+    require_once PAP_CHEMIN_API_PEAR.'HTML/QuickForm/checkbox.php' ;
-    // connection à la base botanica
-    $db = DB::connect ('mysql://telabotap:@localhost/tela_prod_v4') ;
     // On recherche le mail du gars
-    $requete_mail = "select U_MAIL from annuaire_tela where U_ID=".$AUTH->getAuthData('U_ID') ;
+    $requete_mail = 'SELECT U_MAIL FROM annuaire_tela WHERE U_ID = '.$GLOBALS['identification']->getAuthData('U_ID') ;
-    $resultat_mail = $db->query ($requete_mail) ;
+    $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=".$AUTH->getAuthData('U_ID') ;
+        $requete = "update annuaire_tela set U_LETTRE = 1 where U_ID=".$GLOBALS['identification']->getAuthData('U_ID') ;
         $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=".$AUTH->getAuthData('U_ID') ;
+            $requete = "update annuaire_tela set U_LETTRE = 1 where U_ID=".$GLOBALS['identification']->getAuthData('U_ID') ;
-            $resultat = $db->query ($requete) ;
+            $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";
+        }
         $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=".$AUTH->getAuthData('U_ID') ;
+                $requete = "update annuaire_tela set U_LETTRE = 0 where U_ID=".$GLOBALS['identification']->getAuthData('U_ID') ;
-                $resultat = $db->query ($requete) ;
+                $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=".$AUTH->getAuthData('U_ID') ;
+    $requete = "select U_LETTRE from annuaire_tela where U_ID=".$GLOBALS['identification']->getAuthData('U_ID') ;
-    $resultat = $db->query ($requete) ;
+    $resultat = $GLOBALS['db']->query ($requete) ;
     if (DB::isError($resultat)) {
     //$form->addElement('submit', 'submit', 'Valider') ;
     $form->display() ;
     // Un petit message
-    if (isset ($_POST['lettre'])) echo "<div class=\"erreur\">$message</div>\n" ;
-    // on reconnecte à la base de SPIP
-    mysql_connect ('localhost', 'telabotap', '') ;
-    mysql_select_db ('tela_prod_spip_actu') ;
+    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>

Subversion Repositories Sites.tela-botanica.org

(root)/trunk/actu/recevoir.html @ 190 – Rev 174 → 190