Subversion Repositories Applications.papyrus

<?php

//vim: set expandtab tabstop=4 shiftwidth=4:

// +-----------------------------------------------------------------------------------------------+

// | PHP version 4.0                                                                               |

// +-----------------------------------------------------------------------------------------------+

// | Copyright (c) 1997, 1998, 1999, 2000, 2001 The PHP Group                                      |

// +-----------------------------------------------------------------------------------------------+

// | This source file is subject to version 2.0 of the PHP license,                                |

// | that is bundled with this package in the file LICENSE, and is                                 |

// | available at through the world-wide-web at                                                    |

// | http://www.php.net/license/2_02.txt.                                                          |

// | If you did not receive a copy of the PHP license and are unable to                            |

// | obtain it through the world-wide-web, please send a note to                                   |

// | license@php.net so we can mail you a copy immediately.                                        |

// +-----------------------------------------------------------------------------------------------+

/**

*

*Fichier des fonctions du bottin

*

*@package bottin

//Auteur original :

*@author                Alexandre GRANIER <alexandre@tela-botanica.org.org>

//Autres auteurs :

*@copyright         Outils-reseaux 2006-2040

*@version           05 avril 2006

// +-----------------------------------------------------------------------------------------------+

//

// $Id: bottin.class.php,v 1.6 2007-08-27 13:12:15 alexandre_tb Exp $

// FICHIER : $RCSfile: bottin.class.php,v $

// AUTEUR    : $Author: alexandre_tb $

// VERSION : $Revision: 1.6 $

// DATE        : $Date: 2007-08-27 13:12:15 $

*/

// +------------------------------------------------------------------------------------------------------+

// |                                            ENTETE du PROGRAMME                                       |

// +------------------------------------------------------------------------------------------------------+

require_once PAP_CHEMIN_API_PEAR.'PEAR.php';

// +------------------------------------------------------------------------------------------------------+

// |                                            CONSTANTE DES TEMPLATES                                   |

// +------------------------------------------------------------------------------------------------------+

// Page d'accueil

define ('INS_TEMPLATE_PAGE_ACCUEIL', 1);

//Template du formulaire

define ('INS_TEMPLATE_FORMULAIRE', 3);

// Template mail confirmation inscription

define ('INS_TEMPLATE_MAIL_CONFIRMATION_SUJET', 4);

define ('INS_TEMPLATE_MAIL_CONFIRMATION_CORPS', 2);

// Template d envoie de mot de passe perdu

define ('INS_TEMPLATE_MAIL_PASSE_SUJET', 5);

define ('INS_TEMPLATE_MAIL_PASSE_CORPS', 6);

// Template du mail apres moderation accepte

define ('INS_TEMPLATE_MAIL_APRES_MODERATION_SUJET', 7);

define ('INS_TEMPLATE_MAIL_APRES_MODERATION_CORPS', 8);

// Modele du titre du formulaire (ce qui precede le formulaire)

define ('INS_TEMPLATE_TITRE_FORMULAIRE', 9);

// Message apres demande d inscription moderee

define ('INS_TEMPLATE_MESSAGE_INSCRIPTION_MODEREE', 10);

// Modele de la page de la cartogrphie google

define ('INS_TEMPLATE_CARTO_GOOGLE_ACCUEIL', 11);

class inscription extends PEAR {

	/**

     * Constructeur

     *

     *

     * @return void

     * @access public

     */

	function inscription() {

	}

	/**

	 * Renvoie le code HTML d une liste avec les lettres

	 *

	 * @global  Un pointeur vers une connexion de base de donnee $GLOBALS['ins_url']

	 * @return array ['ic_param'] les parametres tels que dans la table inscription_config

	 * @access public

	 */

	function getConfig($id_inscription = '') {

		// Recuperation de la configuration

	    $requete = 'select * from inscription_configuration';

	    if ($id_inscription != '') $requete .= ' where ic_id_inscription="'.$id_inscription.'"';

	    $resultat = $GLOBALS['ins_db']->query($requete);

	    if (DB::isError($resultat)) return "Echec de la requete : $requete<br />".$resultat->getMessage() ;

		    if ($resultat->numRows() != 0) {

		    $ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC);

		    return $ligne;

	    } else {

	    	return PEAR::raiseError('La table inscription_configuration est vide...');

	    }

	}

	/**

	 * Renvoi un tableau avec les informations de inscription_attente

	 *

	 * @global  Un pointeur vers une connexion de base de donnee $GLOBALS['ins_db']

	 * @return array Un tableau ['id'], ['nom'], ['prenom'] ... ou la chaine vide si il n'y a personne en attente

	 * @access public

	 */

	function getInscritEnAttenteModeration() {

		$requete = 'select * from inscription_attente';

		$resultat = $GLOBALS['ins_db']->query($requete);

		$tableau_inscrit = array();

		if (DB::isError($resultat)) return "Echec de la requete : $requete<br />".$resultat->getMessage() ;

		    if ($resultat->numRows() != 0) {

			    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {

				    $donnees = unserialize (stripslashes($ligne->ia_donnees)) ;

				    array_push ($tableau_inscrit, array_merge (array('id' => $ligne->ia_id_inscription, 'date' => $ligne->ia_date), $donnees));

			    }

			    return $tableau_inscrit;

		    } else {

	    		return '';

	    	}

	}

	/** Renvoi le tableau HTML des inscrits en attente

	 *

	 * @global	$GLOBALS['ins_url'] un objet Net_URL avec l url courante

	 * @param array Un tableau de tableau d inscrit avec ['id'],['nom'],['prenom'],['email'],['ville'],['date']

	 * @return string Un tableau HTML

	 */

	 function getTableauEnAttente($tableau) {

	 	$html = '';

	 	if (empty ($tableau)) {

	 		return INS_PAS_D_INSCRIT_EN_ATTENTE;

	 	}

	 	$table = new HTML_Table();

	 	$table->addRow(array (INS_NOM, INS_EMAIL, INS_VILLE, INS_DATE_INS, INS_ACTION), '', 'TH');

	 	$action = '<a href="'.$GLOBALS['ins_url']->getURL().'">'.'</a>';

	 	foreach ($tableau as $demandeur) {

	 		// L identifiant du demandeur dans l url

	 		$GLOBALS['ins_url']->addQueryString (INS_VARIABLE_ID_DEMANDEUR, $demandeur['id']) ;

	 		$GLOBALS['ins_url']->addQueryString(ANN_VARIABLE_ACTION, ANN_ACTION_VALIDER_INSCRIPTION);

	 		$valide = '<a href="'.$GLOBALS['ins_url']->getURL().'">'.INS_VALIDER.'</a> / ';

	 		$GLOBALS['ins_url']->addQueryString(ANN_VARIABLE_ACTION, ANN_ACTION_SUPPRIMER_DEMANDE_INSCRIPTION);

	 		$valide .= '<a href="'.$GLOBALS['ins_url']->getURL().

					'" onclick="javascript:return confirm(\''.INS_SUPPRIMER.' ?\')">'.INS_SUPPRIMER.'</a>';

	 		$table->addRow(array($demandeur['a_nom'].' '.(isset($demandeur['a_prenom']) ? $demandeur['a_prenom']: ''), $demandeur['a_mail'],

	 							$demandeur['a_ville'], $demandeur['date'], $valide));

	 	}

	 	return $table->toHTML();

	 }

	/**

	 * Renvoie un tableau avec les moderateurs de l inscription

	 * ceux du champs ic_mail_moderateur

	 *

	 * @return array Un tableau de mail de moderateur

	 */

	function getModerateurs() {

	}

	/**

	 * Insere une demande d inscription dans la table inscription_attente et

	 * envoi un mail aux moderateurs

	 *

	 * @param	string	Un identifiant de session, soit genere aleatoirement soit venu de la tablea inscription_demande

	 * @global array la globale $GLOBALS['ins_config']

	 * @global mixed un pointeur vers une base de donnees $GLOBALS['ins_db']

	 * @return string Un message a renvoye a l utilisateur indiquant que sa demande a ete prise en compte

	 */

	function demandeInscriptionModere($valeurs) {

	// On stocke les informations dans un variable de session

	    // On coupe l'identifiant de session pour ne prendre que les 8 premiers caractères

	    // afin d'eviter d'obtenir une url trop longue

	    $chaine = substr (session_id(), 0, 8) ;

	    $requete_verif = 'select * from inscription_attente where ia_id_inscription="'.$chaine.'"' ;

	    $resultat_verif = $GLOBALS['ins_db']->query ($requete_verif) ;

	    if ($resultat_verif->numRows() != 0) {

	        $requete_suppression = 'delete from inscription_attente where ia_id_inscription="'.$chaine.'"' ;

	        $GLOBALS['ins_db']->query ($requete_suppression) ;

	    }

	    $requete = 'insert into inscription_attente set ia_id_inscription="'.$chaine.'", ia_donnees="'.

	                addslashes(serialize($valeurs)).'", ia_date=NOW()' ;

	    $resultat = $GLOBALS['ins_db']->query ($requete) ;

	    if (DB::isError ($resultat)) {

	        echo ("Echec de la requete : $requete<br />".$resultat->getMessage()) ;

	    }

	    // On envoie un email aux moderateurs

	    require_once PAP_CHEMIN_RACINE.'api/pear/HTML/Template/IT.php';

	    $tpl = new HTML_Template_IT() ;

	    // Le gabarit du mail est dans un template

	    // template 3

	    $url = $GLOBALS['ins_url']->getURL();

	    $requete = 'select it_template from inscription_template where it_id_template=3'.

	    			' and it_i18n like "%'.INS_LANGUE_DEFAUT.'"' ;

	    if (!$tpl -> setTemplate($GLOBALS['ins_db']->getOne ($requete))) {

	    	echo 'erreur' ;

	    }

		$tpl->setVariable('URL_INSCRIPTION', $url) ;

		$mails_moderateur = split ('/\n/', $GLOBALS['ins_config']['ic_mail_moderateur']);

		foreach ($mails_moderateur as $mail) {

			mail ($mail, INS_MODERATION_SUJET,

				html_entity_decode(INS_NOUVELLE_INSCRIPTION_A_MODERE),

					'From: '.$GLOBALS['ins_config']['ic_from_mail_confirmation']) ;

		}

	    return true ;

	}

	/**

	 * 	Valide une demande d inscription

	 * 	Transfere les donnees de la table inscription_attente vers annuaire

	 *

	 * 	Envoie un email d avertissement a l inscrit

	 *

	 * @global array la globale ins_config

	 */

	function validerInscription() {

		$requete = 'SELECT ia_donnees FROM inscription_attente WHERE ia_id_inscription="'.$_GET[INS_VARIABLE_ID_DEMANDEUR].'"' ;

	    $resultat = $GLOBALS['ins_db']->query($requete) ;

	    if (DB::isError ($resultat)) {

		    return ("Echec de la requete : $requete<br />".$resultat->getMessage()) ;

	    }

	    $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ;

	    $donnees = unserialize (stripslashes($ligne->ia_donnees)) ;

	    // dans les donnees serialisees, on recupere l identifiant de l inscription

	    // pour charger la globale ins_config

	    $GLOBALS['ins_config'] = inscription::getConfig($donnees['id_inscription']);

	    // Template du formulaire

   		$GLOBALS['ins_config']['ic_inscription_template'] = inscription::getTemplate(INS_TEMPLATE_FORMULAIRE,

    									$GLOBALS['ins_config']['ic_id_inscription']);

	    $id_utilisateur = inscription_insertion($donnees) ;

	    // Envoie du mail

	    $destinataire = $donnees['a_mail'];

	    $sujet = inscription::getTemplate(INS_TEMPLATE_MAIL_APRES_MODERATION_SUJET, $GLOBALS['ins_config']['ic_id_inscription']);

	    $corps = inscription::getTemplate(INS_TEMPLATE_MAIL_APRES_MODERATION_CORPS, $GLOBALS['ins_config']['ic_id_inscription']);

	    // Appel des actions desinscriptions des applications clientes

        $d = dir(GEN_CHEMIN_CLIENT);

		while (false !== ($repertoire = $d->read())) {

			if (file_exists(GEN_CHEMIN_CLIENT.$repertoire.GEN_SEP.$repertoire.'.inscription.inc.php'))

			include_once GEN_CHEMIN_CLIENT.$repertoire.GEN_SEP.$repertoire.'.inscription.inc.php' ;

		}

		$d->close();

		if (INS_CHAMPS_LETTRE != '' && isset ($donnees['a_lettre'])) {

			inscription_lettre($GLOBALS['ins_config']['ic_mail_inscription_news']) ;

		}

	    if (!mail ($destinataire, $sujet, $corps, 'From: '.$GLOBALS['ins_config']['ic_from_mail_confirmation'])) return 'erreur dans l\'envoi du mail';

	    inscription::supprimerDemandeInscription();

	}

	/**

	 * 	Supprime une demande d inscription dans la table inscription_attente

	 *

	 * @global	string	l indentifiant de la demande

	 * @global mixed la globale ins_db

	 */

	function supprimerDemandeInscription() {

		// Suppression de la ligne dans inscription_attente

	    $req_sup = 'delete from inscription_attente where ia_id_inscription="'.$_GET[INS_VARIABLE_ID_DEMANDEUR].'"';

	    $res_sup = $GLOBALS['ins_db']->query ($req_sup);

	    if (DB::isError ($res_sup)) {

		    return ("Echec de la requete : $req_sup<br />".$res_sup->getMessage()) ;

	    }

	}

	/**

	 * 	Supprimer un inscrit de l annuaire et appelle les fichiers

	 * 	client appli.desinscription.inc.php

	 *

	 * @static

	 * @global int l identifiant de l inscrit

	 * @global mixed la globale ins_db

	 */

	function supprimerInscription() {

	    $queryLogin = 'select '.INS_CHAMPS_MAIL.' from '.INS_ANNUAIRE.' where '.INS_CHAMPS_ID.'='.$_GET[INS_VARIABLE_ID_INSCRIT] ;

	    $resultLogin = $GLOBALS['ins_db']->query($queryLogin) ;

	    $rowLogin = $resultLogin->fetchRow(DB_FETCHMODE_ASSOC) ;

	    $mail = $rowLogin[INS_CHAMPS_MAIL];

	    // suppression

	    $query = 'delete from '.INS_ANNUAIRE.' where '.INS_CHAMPS_ID.'='.$_GET[INS_VARIABLE_ID_INSCRIT] ;

	    $resultat = $GLOBALS['ins_db']->query($query);

	    if (DB::isError ($resultat)) {

		    return ("Echec de la requete : $req_sup<br />".$res_sup->getMessage()) ;

	    }

	     // Appel des actions desinscriptions des applications clientes

	    $d = dir(GEN_CHEMIN_CLIENT);

		$id_utilisateur = $_GET[INS_VARIABLE_ID_INSCRIT];

		while (false !== ($repertoire = $d->read())) {

			if (file_exists(GEN_CHEMIN_CLIENT.$repertoire.GEN_SEP.$repertoire.'.desinscription.inc.php'))

			include_once GEN_CHEMIN_CLIENT.$repertoire.GEN_SEP.$repertoire.'.desinscription.inc.php' ;

		}

		$d->close();

	}

	function getTemplate($id_template, $id_inscription, $langue = INS_LANGUE_DEFAUT) {

	    $requete = 'select it_template from inscription_template where it_id_template="'.$id_template.'"'.

	    			' and it_i18n like "'.$langue.'%" and it_ce_inscription="'.$id_inscription.'"' ;

	    $resultat = $GLOBALS['ins_db']->query($requete);

	    if (DB::isError ($resultat)) {

		    $this->raiseError();

		}

		$ligne = $resultat->fetchRow (DB_FETCHMODE_OBJECT);

		return $ligne->it_template;

	}

}

class lettresAlphabet extends PEAR {

	var $url;

	var $variable_lettre ;

	/**

     * Constructeur

     *

     * @param Net_URL un objet Net_URL

     * @param string $variable_lettre le nom de la variable $_GET qui sera place dans l URL

     * @return void

     * @access public

     */

	function lettresAlphabet($url, $variable_lettre = 'lettre') {

		$this->url = $url ;

		$this->variable_lettre = $variable_lettre ;

	}

	/**

	 * Renvoie le code HTML d une liste avec les lettres

	 *

	 * @return string HTML

	 * @access public

	 */

	function toHMTL() {

		$res = '<ul class="liste_lettre">'."\n" ;

		for ($i = 65 ; $i <91 ; $i++) {

			$this->url->addQueryString($this->variable_lettre, chr($i)) ;

			$res .= "\t".'<li class="liste_lettre"><a class="lien_alphabet" '.

					'href="'.

					$this->url->getURL().'">';

			$res .= chr($i) ;

			$res .= '</a></li>'."\n";

		}

		$res .= '</ul>';

		return $res ;

	}

}

//-- Fin du code source    ------------------------------------------------------------

/*

* $Log: not supported by cvs2svn $

* Revision 1.5  2007-06-25 15:02:50  alexandre_tb

* correction bug

*

* Revision 1.4  2007-06-25 09:59:03  alexandre_tb

* ajout de carte_google, mise en place des templates avec api/formulaire, configuration de multiples inscriptions, ajout de modele pour les mails

*

* Revision 1.3  2007-06-01 13:47:47  alexandre_tb

* nouvelles methodes

*

* Revision 1.2  2007-05-25 14:31:24  alexandre_tb

* en cours

*

* Revision 1.1  2006/12/13 13:26:52  alexandre_tb

* version initiale

*

*/

?>