Subversion Repositories Sites.obs-saisons.fr

<?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 Lesser 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                                    |

// | Lesser General Public License for more details.                                                      |

// |                                                                                                      |

// | You should have received a copy of the GNU Lesser 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: annuaire.fonct.php,v 1.1 2005/03/24 08:46:07 alex Exp $

/**

* Fonctions du module annuaire

*

* Fonctions du module annuaire

*

*@package annuaire

//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                                       |

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

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

// |                                           LISTE de FONCTIONS                                         |

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

define("LATIN1_UC_CHARS", "ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝ");

define("LATIN1_LC_CHARS", "àáâãäåæçèéêëìíîïðñòóôõöøùúûüý");

if (!function_exists("uc_latin1")) {

	function uc_latin1 ($str) {

    	$str = strtoupper(strtr($str, LATIN1_LC_CHARS, LATIN1_UC_CHARS));

    	return strtr($str, array("ß" => "SS"));

	}

}

/** function parcourrirAnnu ()  Affiche l'annuaire à partir d'une lettre

*

*

*

*	@return string HTML

*/

function parcourrirAnnu() {

    $res = '<p id="annuaire_alphabet">';

    // Alphabet pour la rechercher par lettre du nom des inscrits

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

       $GLOBALS['car_url']->addQueryString('lettre', chr($i));

        $url_lettre =$GLOBALS['car_url']->getURL();

       $GLOBALS['car_url']->removeQueryString('lettre');

        $res .= '<a href="'.$url_lettre.'">'.chr($i).'</a>&nbsp;'."\n";

    }

    if (CAR_TOUS_BOOL) {

    	$GLOBALS['car_url']->addQueryString('lettre', 'tous');

    	$url_lettre =$GLOBALS['car_url']->getURL();

		$GLOBALS['car_url']->removeQueryString('lettre');

    	$res .= '<a href="'.$url_lettre.'">'.'Tous'.'</a>'."\n";

    }

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

	// Si aucune lettre n'est sélectionnée, attribution de la lettre par défaut

    if (empty($_REQUEST['lettre'])) {

    	$_REQUEST['lettre'] = CAR_LETTRE_DEFAUT;

    }

	// Une lettre est disponible...

	$requete = 	'SELECT '.CAR_ANNUAIRE.'.*, '.CAR_TABLE_PAYS.'.* '.

				'FROM '.CAR_ANNUAIRE.','.CAR_TABLE_PAYS.' '.

				'WHERE '.CAR_CHAMPS_CE_PAYS.' = '.CAR_CHAMPS_ID_PAYS.' ';

	if ($_REQUEST['lettre'] != 'tous') {

		$requete .= ' AND '.CAR_CHAMPS_NOM.' LIKE "'.$_REQUEST['lettre'].'%" ' ;

	}

	if (defined('SQL_SUPPLEMENTAIRE') && SQL_SUPPLEMENTAIRE != '') {

		$requete .= ' AND '.SQL_SUPPLEMENTAIRE.' ';

	}

	$requete .= 'ORDER BY '.CAR_CHAMPS_NOM;

    $res .= listes_inscrit($requete,$GLOBALS['car_url']->getURL(), '',$GLOBALS['car_db'], $niveau = 'pays');

    return $res;

}

/**

 *  Renvoie le code HTML de la liste des inscrits

 *  en fonction de la requete passé en parametre

 *

 * @return  Renvoie le code HTML de la liste des inscrits

 */

function listes_inscrit($requete, $url, $argument, &$db, $niveau = 'pays') {

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

	(DB::isError($resultat)) ? die($resultat->getMessage().'<br />'.$resultat->getDebugInfo()) : '';

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

		$res = '<form action="'.$url.'&amp;mailer=1&amp;lettre='.$_REQUEST['lettre'].'" method="post" name="formmail">'."\n";

		$res .= '<div id="annuaire" class="conteneur_table">

					<table id="table_inscrit" class="table_cadre">

							<thead class="entete_fixe">

								<tr>

									<th>&nbsp;</th>

									<th>'.CAR_NOM.'</th>

									<th>'.CAR_DATE_INS.'</th>

									<th>'.CAR_CP.'</th>

									<th>'.CAR_VILLE.'</th>

									<th>'.CAR_PAYS.'</th>

								</tr>

							</thead>

							<tbody class="contenu_deroulant">';

		$indic = 0;

		$i = 1;

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

			if ($indic == 0) {

				$res .= '<tr class="ligne_impaire">'."\n";

				$indic = 1;

			} else {

				$res .= '<tr class="ligne_paire">'."\n";

				$indic = 0;

			}

			$res .= 	'<td>'.

					'<input type="checkbox" name="select[]" value="'.$ligne[CAR_CHAMPS_MAIL].'" />'.

						'</td>'."\n".

							'<td>'."\n";

						// On affiche nom et prenom, puisque c'est reservé à l'administration

						//	if ($ligne['PARTICIPANT_NOM_PRENOM_VISIBLE']) {

                            	$res .= uc_latin1($ligne[CAR_CHAMPS_NOM])." ".

                            str_replace(' - ', '-', ucwords(strtolower(str_replace('-', ' - ', $ligne[CAR_CHAMPS_PRENOM]))));

                          //  } else {

                           // 	$res .= $ligne['PARTICIPANT_PSEUDO'];

                           // }

                            $res .= "&nbsp;</td>\n".

							'<td>'.date('d.m.Y', strtotime($ligne[CAR_CHAMPS_DATE_INS])).'&nbsp;</td>'."\n".

							'<td>'.$ligne[CAR_CHAMPS_CODE_POSTAL].'&nbsp;</td>'."\n".

							'<td>'.uc_latin1($ligne[CAR_CHAMPS_VILLE]).'&nbsp;</td>'."\n".

							'<td>'.str_replace(' - ', '-', ucwords(strtolower(str_replace('-', ' - ', ($ligne[CAR_CHAMPS_NOM_PAYS]))))).'&nbsp;</td>'."\n";

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

		}

		$res .= '</tbody></table></div>'."\n";

	} else {

		$res = '<p class="information">'.'Aucun inscrit n\'a de nom commençant par '.$_REQUEST['lettre'].'</p>'."\n";

	}

	return $res;

}

function carto_formulaire() {

    $res = '<div id="redaction">'."\n";

    $res .= '<div id="redaction_tete"></div>'."\n";

    $res .= '<h2 class="chapo">'.CAR_ENVOYER_MAIL.'</h2>'."\n";

	$res .= '<table>'."\n".

			'<tr><td class="texte">'.CAR_SUJET.' :</td>'."\n".

			'<td><input class="forml" type="text" name="titre_mail" size="60" value="'.$_POST['titre_mail'].'"/></td>'."\n".

			'</tr><tr><td class="texte" valign="top">'.CAR_MESSAGE.'&nbsp;:&nbsp;</td>'."\n".

			'<td><textarea class="forml" name="corps" rows="5" cols="60">'.$_POST['corps'].'</textarea></td>'."\n".

			'</tr><tr><td></td><td align="center">';

    $res .='<input class="spip_bouton" type="submit" value="'.CAR_ENVOYER.'" />';

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

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

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

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

	$res .= '<div id="redaction_pied"/></div>'."\n";

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

    $res .= '<p class="attention surveillance">'.CAR_SURVEILLANCE.'</p>' ;

    $res .= '<p class="information message_a_tous">'.sprintf(CAR_MESSAGE_A_TOUS, '<a href="'.CAR_URL_ACTUALITE.'">'.CAR_ACTUALITE.'</a>').'</p>' ;

    return $res ;

}

/** function carto_texte_cocher ()

*

*

*	@return string  HTML

*/

function carto_texte_cocher() {

	$res .= '<div class="texte">'.CAR_CHECK_UNCHECK."\n";

	$res .= '&nbsp;<input type="checkbox" name="selecttotal" onclick="javascript:setCheckboxes(\'formmail\');"/>'."\n";

	$res .= '</div>';

	return $res;

}

/** envoie_mail()

 *

 *

 * @return  envoie l'email

 */

function envoie_mail($selection, $titre_mail, $corps) {

	$requete = 	'SELECT '.CAR_CHAMPS_MAIL.' '.

				'FROM '.CAR_ANNUAIRE.' '.

				'WHERE '.CAR_CHAMPS_ID.' = "'.$GLOBALS['car_auth']->getAuthData(CAR_CHAMPS_ID).'" ';

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

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

		die($resultat->getMessage().'<br />'.$resultat->getDebugInfo());

	}

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

	$entete = 'From: <'.$ligne[CAR_CHAMPS_MAIL].">\n";

	$corps .= "\n".CAR_TEXTE_FIN_MAIL;

	$liste = '';

	foreach ($selection as $key => $value) {

		mail($value, CAR_PREFIXE_MAIL.$titre_mail, $corps, $entete);

		$liste .= $value."\n";

	}

	$corps .= "\n----------------------------------------------------------------------------";

	$corps .= "\n".CAR_MESSAGE_APPLI_ANNUAIRE."\n" ;

	$corps .= "\n".CAR_MESSAGE_ENVOYE_A." :\n $liste" ;

	// Envoie du message aux administrateurs

	foreach ($GLOBALS['mail_admin'] as $courriel) {

		if (!mail($courriel, CAR_PREFIXE_MAIL.'[Administration] '.$titre_mail, $corps, $entete)) {

			trigger_error("Le courriel n'a pas été envoyé à : $courriel", E_USER_WARNING);

		}

	}

	return '<div class="information">'.CAR_MAIL_ENVOYER.'</div>' ;

}

/** translittererVersIso88591()

 *

 * Convertit les caractères CP1252 (= ANSI) non présent dans l'ISO-8859-1 par un équivalant ressemblant.

 *

 * @return  envoie l'email

 */

function translittererCp1252VersIso88591($str, $translit = true) {

	$cp1252_entite_map = array(

	   '\x80' => '€', /* EURO SIGN */

	   '\x82' => '‚', /* SINGLE LOW-9 QUOTATION MARK */

	   '\x83' => 'ƒ',  /* LATIN SMALL LETTER F WITH HOOK */

	   '\x84' => '„', /* DOUBLE LOW-9 QUOTATION MARK */

	   '\x85' => '…', /* HORIZONTAL ELLIPSIS */

	   '\x86' => '†', /* DAGGER */

	   '\x87' => '‡', /* DOUBLE DAGGER */

	   '\x88' => 'ˆ',  /* MODIFIER LETTER CIRCUMFLEX ACCENT */

	   '\x89' => '‰', /* PER MILLE SIGN */

	   '\x8a' => 'Š',  /* LATIN CAPITAL LETTER S WITH CARON */

	   '\x8b' => '‹', /* SINGLE LEFT-POINTING ANGLE QUOTATION */

	   '\x8c' => 'Œ',  /* LATIN CAPITAL LIGATURE OE */

	   '\x8e' => 'Ž',  /* LATIN CAPITAL LETTER Z WITH CARON */

	   '\x91' => '‘', /* LEFT SINGLE QUOTATION MARK */

	   '\x92' => '’', /* RIGHT SINGLE QUOTATION MARK */

	   '\x93' => '“', /* LEFT DOUBLE QUOTATION MARK */

	   '\x94' => '”', /* RIGHT DOUBLE QUOTATION MARK */

	   '\x95' => '•', /* BULLET */

	   '\x96' => '–', /* EN DASH */

	   '\x97' => '—', /* EM DASH */

	   '\x98' => '˜',  /* SMALL TILDE */

	   '\x99' => '™', /* TRADE MARK SIGN */

	   '\x9a' => 'š',  /* LATIN SMALL LETTER S WITH CARON */

	   '\x9b' => '›', /* SINGLE RIGHT-POINTING ANGLE QUOTATION*/

	   '\x9c' => 'œ',  /* LATIN SMALL LIGATURE OE */

	   '\x9e' => 'ž',  /* LATIN SMALL LETTER Z WITH CARON */

	   '\x9f' => 'Ÿ'   /* LATIN CAPITAL LETTER Y WITH DIAERESIS*/

	);

	$translit_map = array(

	   '€' => 'Euro', /* EURO SIGN */

	   '‚' => ',',    /* SINGLE LOW-9 QUOTATION MARK */

	   'ƒ' => 'f',     /* LATIN SMALL LETTER F WITH HOOK */

	   '„' => ',,',   /* DOUBLE LOW-9 QUOTATION MARK */

	   '…' => '...',  /* HORIZONTAL ELLIPSIS */

	   '†' => '+',    /* DAGGER */

	   '‡' => '++',   /* DOUBLE DAGGER */

	   'ˆ' => '^',     /* MODIFIER LETTER CIRCUMFLEX ACCENT */

	   '‰' => '0/00', /* PER MILLE SIGN */

	   'Š' => 'S',     /* LATIN CAPITAL LETTER S WITH CARON */

	   '&#8249;' => '<',    /* SINGLE LEFT-POINTING ANGLE QUOTATION */

	   'Œ' => 'OE',    /* LATIN CAPITAL LIGATURE OE */

	   'Ž' => 'Z',     /* LATIN CAPITAL LETTER Z WITH CARON */

	   '‘' => "'",    /* LEFT SINGLE QUOTATION MARK */

	   '’' => "'",    /* RIGHT SINGLE QUOTATION MARK */

	   '“' => '"',    /* LEFT DOUBLE QUOTATION MARK */

	   '”' => '"',    /* RIGHT DOUBLE QUOTATION MARK */

	   '•' => '*',    /* BULLET */

	   '–' => '-',    /* EN DASH */

	   '—' => '--',   /* EM DASH */

	   '˜' => '~',     /* SMALL TILDE */

	   '™' => '(TM)', /* TRADE MARK SIGN */

	   'š' => 's',     /* LATIN SMALL LETTER S WITH CARON */

	   '›' => '>',    /* SINGLE RIGHT-POINTING ANGLE QUOTATION*/

	   'œ' => 'oe',    /* LATIN SMALL LIGATURE OE */

	   'ž' => 'z',     /* LATIN SMALL LETTER Z WITH CARON */

	   'Ÿ' => 'Y'      /* LATIN CAPITAL LETTER Y WITH DIAERESIS*/

	);

	$str = strtr($str, $cp1252_entite_map);

	if ($translit) {

		$str = strtr($str, $translit_map);

	}

	return $str;

}

?>