WebSVN – Applications.papyrus – Diff – /trunk/client/projet/classes/inscription_liste.class.php

 // |                                                                                                      |
 // | You should have received a copy of the GNU General Public                                            |
 // | License along with this library; if not, write to the Free Software                                  |
 // | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
 // +------------------------------------------------------------------------------------------------------+
-// CVS : $Id: inscription_liste.class.php,v 1.1 2005-09-22 14:02:47 ddelon Exp $
+// CVS : $Id: inscription_liste.class.php,v 1.2 2005-09-27 16:36:01 alexandre_tb Exp $
 /**
 * Application projet
+*
 * La classe inscription_liste
+*
 //Auteur original :
 *@author        Alexandre Granier <alexandre@tela-botanica.org>
 //Autres auteurs :
 *@author        Aucun
 *@copyright     Tela-Botanica 2000-2004
-*@version       $Revision: 1.1 $
+*@version       $Revision: 1.2 $
 // +------------------------------------------------------------------------------------------------------+
 */
      * @return void
      * @access public
      */
     function modifierTypeInscription( $liste,  $utilisateur,  $type_inscription )
+    {
+        /*
         $requete = 'update projet_inscription_liste set '.
                     'pil_id_liste='.$liste->getId().', pil_id_statut='.$type_inscription.' where pil_id_utilisateur='.$utilisateur->getInfo('identifiant') ;
         $resultat = $this->_db->query ($requete) ;
         if (DB::isError ($resultat)) {
             echo ('Echec de la requete : '.$requete.'<br />'.$resultat->getMessage()) ;
             $resultat = $this->_db->query ($requete) ;
             if (DB::isError ($resultat)) {
                 echo ('Echec de la requete : '.$requete.'<br />'.$resultat->getMessage()) ;
+            }
+        }
+        */
         // envoie d'une demande d'inscription par email à la liste
-        include_once 'Mail.php' ;
+        //include_once 'Mail.php' ;
         switch ($type_inscription) {
+            case 0 :
-            case 0 :
+            /*
                 $commande_serveur = new commande_serveur(PROJET_CHEMIN_APPLI.'script_cron/ezmlm.sh') ;
                 if (PEAR::isError($commande_serveur)) {
                     echo $commande_serveur->getMessage() ;
+                }
                 // On désinscrit l'utilisateur de la liste
                 $commande_supressoin_utilisateur = 'sudo -u vpopmail /usr/local/bin/ezmlm/ezmlm-unsub '.
                                             '/home/vpopmail/domains/'.$liste->getDomaine().'/'.$liste->getNom().' '.
                                             $utilisateur->getInfo('mail');
+                $commande_serveur->ajouterCommande ($commande_supressoin_utilisateur) ;
+            */
+            // Ajout du modérateur en tant qu'utilisateur
+            $resultat_suppression_utilisateur = file_get_contents ('http://vpopmail.'.$liste->getDomaine().'/suppression_abonne.php?domaine='.
+                                    $liste->getDomaine().'&liste='.$liste->getNom().'&mail='.$utilisateur->getInfo('mail')) ;
                 $commande_serveur->ajouterCommande ($commande_supressoin_utilisateur) ;
             break ;
+            case 1 :
-            case 1 :
+                /*
                 $commande_serveur = new commande_serveur(PROJET_CHEMIN_APPLI.'script_cron/ezmlm.sh') ;
                 if (PEAR::isError($commande_serveur)) {
                     echo $commande->getMessage() ;
+                }
                 $entetes['To'] = $liste->getAdresseResume() ;
                 $entetes['Subject'] = '' ;
                 $objet_mail =& Mail::factory('smtp');
+                $objet_mail->send($entetes['To'], $entetes, '');
-                $objet_mail->send($entetes['To'], $entetes, '');
+            */
             break ;
+            case 2 :
-            case 2 :
+            /*
                 $commande_serveur = new commande_serveur(PROJET_CHEMIN_APPLI.'script_cron/ezmlm.sh') ;
                 if (PEAR::isError($commande_serveur)) {
                     echo $commande_serveur->getMessage() ;
+                }
                 // On désinscrit l'utilisateur de la liste
                 $commande_ajout_utilisateur = 'sudo -u vpopmail /usr/local/bin/ezmlm/ezmlm-sub '.
                                             '/home/vpopmail/domains/'.$liste->getDomaine().'/'.$liste->getNom().' '.
                                             $utilisateur->getInfo('mail');
+                $commande_serveur->ajouterCommande ($commande_ajout_utilisateur) ;
+            */
+                // Ajout d'un utilisateur
+                $resultat_ajout_utilisateur = file_get_contents ('http://vpopmail.'.$liste->getDomaine().'/ajout_abonne.php?domaine='.
-                $commande_serveur->ajouterCommande ($commande_ajout_utilisateur) ;
+                                    $liste->getDomaine().'&liste='.$liste->getNom().'&mail='.$utilisateur->getInfo('mail')) ;
             break ;
+        }
     } // end of member function modifierTypeInscription
      * @return Array
      * @access public
      */
     function getStatutsInscrit( $id_utilisateur )
+    {
         $requete = 'select pil_id_liste, pil_id_statut from projet_inscription_liste where pil_id_utilisateur='.$id_utilisateur ;
-        $resultat = $this->_db->query ($requete) ;
+        $resultat = $this->_db->query ($requete) ;echo $requete;
         if (DB::isError ($resultat)) {
             die ('Echec de la requete : '.$requete.'<br />'.$resultat->getMessage()) ;
+        }
         $tableau_resultat = array() ;
         while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
             $tableau_resultat[$ligne->pil_id_liste] = $ligne->pil_id_statut ;
+        }
         return $tableau_resultat ;
     } // end of member function getStatutsInscrit
     /**
      * Renvoie le statut d'un inscrit à une liste
+     *
      * @param int id_liste
      * @param int id_utilisateur
      * @return int
      * @access public
      */
-    function getStatutInscrit( $id_liste,  $id_utilisateur )
+    function getStatutInscrit( $id_liste,  &$auth )
+    {
         /*
         $requete = 'select pil_id_liste, pil_id_statut from projet_inscription_liste where pil_id_utilisateur='.$id_utilisateur.
                     ' and pil_id_liste='.$id_liste;
         $resultat = $this->_db->query ($requete) ;
         if (DB::isError ($resultat)) {
             die ('Echec de la requete : '.$requete.'<br />'.$resultat->getMessage()) ;
+        }
+        $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ;
+        return $ligne->pil_id_statut;
+        */
+        // Récupération de la liste des listes !!
+        $requete = 'select pl_nom_liste, pl_domaine from projet_liste where pl_id_liste='.$id_liste ;
+        $resultat = $this->_db->query ($requete) ;
+        if (DB::isError ($resultat)) {
+            die ('Echec de la requete : '.$requete.'<br />'.$resultat->getMessage()) ;
+        }
+        $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ;
+        $xml = file_get_contents('http://vpopmail.'.$ligne->pl_domaine.'/liste_abonnes.php?domaine='.
+                            $ligne->pl_domaine.'&liste='.$ligne->pl_nom_liste) ;
+        $tableau_mail = array() ;
+        $tableau_ligne = explode ('<email>', $xml) ;
+        foreach ($tableau_ligne as $ligne) array_push ($tableau_mail, strip_tags($ligne)) ;
+        array_shift($tableau_mail) ;
+        if (in_array($auth->getUsername(), $tableau_mail)) {
-        $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ;
+            return 2;       // Inscrit est le statut  2

Subversion Repositories Applications.papyrus

(root)/trunk/client/projet/classes/inscription_liste.class.php – Rev 448 → 474