| New file |
|---|
| 0,0 → 1,283 |
|---|
| <?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.1 2005-09-22 14:02:47 ddelon 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.1 $ |
| // +------------------------------------------------------------------------------------------------------+ |
| */ |
| |
| |
| // +------------------------------------------------------------------------------------------------------+ |
| // | 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) ; |
| 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) ; |
| 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) ; |
| 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 ) |
| { |
| $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; |
| } // end of member function getStatutInscrit |
| |
| |
| |
| |
| |
| |
| |
| } // end of isncription_liste |
| ?> |