Subversion Repositories Applications.papyrus

<?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.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.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 )

    {

        // envoie d'une demande d'inscription par email à la liste

        //include_once 'Mail.php' ;

        switch ($type_inscription) {

            case 0 :

            // Ajout du modérateur en tant qu'utilisateur

            $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 :

            break ;

            case 2 :

                // Ajout d'un utilisateur

                $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(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

?>