Go to most recent revision | Blame | Last modification | View Log | RSS feed
<?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 inscritsfor ($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> '."\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éfautif (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.'&mailer=1&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> </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 .= " </td>\n".'<td>'.date('d.m.Y', strtotime($ligne[CAR_CHAMPS_DATE_INS])).' </td>'."\n".'<td>'.$ligne[CAR_CHAMPS_CODE_POSTAL].' </td>'."\n".'<td>'.uc_latin1($ligne[CAR_CHAMPS_VILLE]).' </td>'."\n".'<td>'.str_replace(' - ', '-', ucwords(strtolower(str_replace('-', ' - ', ($ligne[CAR_CHAMPS_NOM_PAYS]))))).' </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.' : </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 .= ' <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 administrateursforeach ($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 */'‹' => '<', /* 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;}?>