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

 <?php
 /*vim: set expandtab tabstop=4 shiftwidth=4: */
 // +------------------------------------------------------------------------------------------------------+
 // | PHP version 4.1                                                                                      |
 // +------------------------------------------------------------------------------------------------------+
 // | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                         |
 // +------------------------------------------------------------------------------------------------------+
 // | This library is free software; you can redistribute it and/or                                        |
 // | modify it under the terms of the GNU General Public                                                  |
 // | License as published by the Free Software Foundation; either                                         |
 // | version 2.1 of the License, or (at your option) any later version.                                   |
 // |                                                                                                      |
 // | This library is distributed in the hope that it will be useful,                                      |
 // | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |
 // | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU                                    |
 // | General Public License for more details.                                                             |
 // |                                                                                                      |
 // | 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.2 2005-09-27 16:36:01 alexandre_tb Exp $
+// CVS : $Id: inscription_liste.class.php,v 1.3 2005-10-04 10:12:16 alexandre_tb Exp $
 /**
 * Application projet
+*
 * La classe inscription_liste
+*
 *@package projet
 //Auteur original :
 *@author        Alexandre Granier <alexandre@tela-botanica.org>
 //Autres auteurs :
 *@author        Aucun
 *@copyright     Tela-Botanica 2000-2004
-*@version       $Revision: 1.2 $
+*@version       $Revision: 1.3 $
 // +------------------------------------------------------------------------------------------------------+
 */
 // +------------------------------------------------------------------------------------------------------+
 // |                                            ENTETE du PROGRAMME                                       |
 // +------------------------------------------------------------------------------------------------------+
 /**
  * class isncription_liste
+ *
  */
 class inscription_liste
+{
      /*** Attributes: ***/
     /**
      * Identifiant de la liste
      * @access private
      */
     var $_id_liste;
     /**
      * Identifiant de l'utilisateur
      * @access private
      */
     var $_id_utilisateur;
     /**
      * Une ressource PEAR::DB
      * @access private
      */
     var $_db;
     /**
      * Le type d'inscription indique : - 0 : pas d'email - 1 : normale - 2 : résumé
      * @access private
      */
     var $_type_inscription;
     /**
      * Constructeur
+     *
      * @param DB objetDB Une ressource PEAR::DB
      * @return void
      * @access public
      */
     function inscription_liste( &$objetDB )
+    {
         $this->_db = $objetDB ;
     } // end of member function inscription_liste
     /**
      * Renvoie un tableau avec la liste des inscrit à une liste.
+     *
      * @param int id_liste L'identifiant de la liste
      * @return Array
      * @access public
      */
     function getInscritsListe( $id_liste )
+    {
     } // end of member function getInscritsListe
     /**
+     *
+     *
      * @param annire utilisateur
      * @param liste_discussion id_liste
      * @param int type_inscription
      * @return void
      * @access public
      */
     function inscrireUtilisateur( &$utilisateur,  &$liste,  $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)) {
             die ('Echec de la requete : '.$requete.'<br />'.$resultat->getMessage()) ;
+        }
         if ($this->_db->affectedRows() == 0) {
             $requete = 'insert into projet_inscription_liste set pil_id_utilisateur='.$utilisateur->getInfo('identifiant').
                         ', pil_id_liste='.$liste->getId().', pil_id_statut='.$type_inscription ;
             $resultat = $this->_db->query ($requete) ;
             if (DB::isError ($resultat)) {
                 die ('Echec de la requete : '.$requete.'<br />'.$resultat->getMessage()) ;
+            }
+        }
         // Ajout dans la liste des commandes au serveur
         // On inscrit le créateur de la liste
         // On lance une commande pour ezmlm.sh
         $commande = new commande_serveur (PROJET_CHEMIN_APPLI.'script_cron/ezmlm.sh') ;
         if (PEAR::isError($commande)) {
             echo $commande->getMessage() ;
+        }
         $commande_ajout_utilisateur = 'sudo -u vpopmail /usr/local/bin/ezmlm/ezmlm-sub '.
                                     '/home/vpopmail/domains/'.$liste->getDomaine().'/'.$liste->getNom().' '.
                                     $utilisateur->getInfo('mail');
         $commande->ajouterCommande($commande_ajout_utilisateur) ;
     } // end of member function inscrireUtilisateur
     /**
+     *
+     *
      * @param int id_utilisateur
      * @param int id_liste
      * @return void
      * @access public
      */
     function desinscrireUtilisateur( &$utilisateur, &$liste )
+    {
         $requete = 'delete from projet_inscription_liste where pil_id_utilisateur='.$utilisateur->getInfo('identifiant').' and pil_id_liste='.$liste->getId() ;
         $resultat = $this->_db->query ($requete) ;
         $commande_serveur = new commande_serveur(PROJET_CHEMIN_APPLI.'script_cron/ezmlm.sh') ;
         // 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) ;
     } // end of member function desinscrireUtilisateur
     /**
+     *
+     *
      * @param int id_liste
      * @param int id_utilisateur
      * @param int type_inscription
      * @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()) ;
-        }
-        if ($this->_db->affectedRows() == 0) {
-            $requete = 'insert into projet_inscription_liste set '.
-                        'pil_id_liste='.$liste->getId().', pil_id_statut='.$type_inscription.', pil_id_utilisateur='.$utilisateur->getInfo('identifiant') ;
-            $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' ;
         switch ($type_inscription) {
             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='.
+            $resultat_suppression_utilisateur = file_get_contents (PROJET_SERVEUR_VPOPMAIL.'/suppression_abonne.php?domaine='.
                                     $liste->getDomaine().'&liste='.$liste->getNom().'&mail='.$utilisateur->getInfo('mail')) ;
             break ;
             case 1 :
-                /*
-                $commande_serveur = new commande_serveur(PROJET_CHEMIN_APPLI.'script_cron/ezmlm.sh') ;
-                if (PEAR::isError($commande_serveur)) {
-                    echo $commande->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) ;
-                // envoie d'une demande d'inscription par email à la liste
-                include_once 'Mail.php' ;
-                // Pour envoyer le mail on utilise la classe Mail de PEAR
-                // on a besoin du mail de l'inscrit
-                $entetes['From'] = $utilisateur->getInfo('mail');
-                $entetes['To'] = $liste->getAdresseResume() ;
-                $entetes['Subject'] = '' ;
-                $objet_mail =& Mail::factory('smtp');
-                $objet_mail->send($entetes['To'], $entetes, '');
-            */
             break ;
             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='.
+                $resultat_ajout_utilisateur = file_get_contents (PROJET_SERVEUR_VPOPMAIL.'/ajout_abonne.php?domaine='.
                                     $liste->getDomaine().'&liste='.$liste->getNom().'&mail='.$utilisateur->getInfo('mail')) ;
             break ;
+        }
     } // end of member function modifierTypeInscription
     /**
      * Renvoie la liste des statuts d'un utilisateur
+     *
      * @param int id_utilisateur
      * @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) ;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,  &$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='.
+        $xml = file_get_contents(PROJET_SERVEUR_VPOPMAIL.'/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)) {
             return 2;       // Inscrit est le statut  2
+        }
         return 0 ;
     } // end of member function getStatutInscrit
 } // end of isncription_liste
 ?>

Subversion Repositories Applications.papyrus

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