New file |
0,0 → 1,308 |
<?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 | |
// +------------------------------------------------------------------------------------------------------+ |
|
function AUTH_formulaire_login() { |
$res = ''; |
|
$url = preg_replace ('/&/', '&', $GLOBALS['ann_url']->getURL()) ; |
|
$res .= '<p>'.ANN_IDENTIFICATION_PRESENTATION_XHTML.'</p>'."\n" ; |
|
$form = new HTML_QuickForm ('inscription', 'post', $url) ; |
$form->addElement ('text', 'username', ANN_EMAIL) ; |
$form->addElement ('password', 'password', ANN_MOT_DE_PASSE) ; |
$form->addElement('submit', 'valider', ANN_VALIDER); |
$res .= $form->toHTML() ; |
|
return $res; |
} |
|
/** 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['ann_url']->addQueryString('lettre', chr($i)); |
$url_lettre = $GLOBALS['ann_url']->getURL(); |
$GLOBALS['ann_url']->removeQueryString('lettre'); |
$res .= '<a href="'.$url_lettre.'">'.chr($i).'</a> '."\n"; |
} |
if (ANN_TOUS_BOOL) { |
$GLOBALS['ann_url']->addQueryString('lettre', 'tous'); |
$url_lettre = $GLOBALS['ann_url']->getURL(); |
$GLOBALS['ann_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'] = ANN_LETTRE_DEFAUT; |
} |
// Une lettre est disponible... |
$requete = 'SELECT '.ANN_ANNUAIRE.'.*, '.ANN_TABLE_PAYS.'.* '. |
'FROM '.ANN_ANNUAIRE.','.ANN_TABLE_PAYS.' '. |
'WHERE '.ANN_CHAMPS_PAYS.' = '.ANN_GC_ID.' '; |
if ($_REQUEST['lettre'] != 'tous') { |
$requete .= ' AND '.ANN_CHAMPS_NOM.' LIKE "'.$_REQUEST['lettre'].'%" ' ; |
} |
$requete .= 'ORDER BY '.ANN_CHAMPS_NOM; |
|
$res .= listes_inscrit($requete, $GLOBALS['ann_url']->getURL(), '', $GLOBALS['ann_db'], $niveau = 'pays'). |
carto_texte_cocher(). |
carto_formulaire(); |
|
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['ann_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"> |
<colgroup> |
<col /> |
<col /> |
<col /> |
<col /> |
<col /> |
<col /> |
<col /> |
</colgroup> |
<thead class="entete_fixe"> |
<tr> |
<th> </th> |
<th>'.ANN_NOM.'</th> |
<th>'.ANN_PRENOM.'</th> |
<th>'.ANN_DATE_INS.'</th> |
<th>'.ANN_CP.'</th> |
<th>'.ANN_VILLE.'</th> |
<th>'.ANN_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[ANN_CHAMPS_MAIL].'" /></td>'."\n". |
'<td>'.strtoupper($ligne[ANN_CHAMPS_NOM]).' </td>'."\n". |
'<td>'.str_replace(' - ', '-', ucwords(strtolower(str_replace('-', ' - ', $ligne[ANN_CHAMPS_PRENOM])))).' </td>'."\n". |
'<td>'.date('d m Y', strtotime($ligne[ANN_CHAMPS_DATE_INS])).' </td>'."\n". |
'<td>'.$ligne[ANN_CHAMPS_CODE_POSTAL].' </td>'."\n". |
'<td>'.strtoupper($ligne[ANN_CHAMPS_VILLE]).' </td>'."\n". |
'<td>'.str_replace(' - ', '-', ucwords(strtolower(str_replace('-', ' - ', ($ligne[ANN_GC_NOM]))))).' </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">'.ANN_ENVOYER_MAIL.'</h2>'."\n"; |
$res .= '<table>'."\n". |
'<tr><td class="texte">'.ANN_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">'.ANN_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="'.ANN_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">'.ANN_SURVEILLANCE.'</p>' ; |
$res .= '<p class="information message_a_tous">'.sprintf(ANN_MESSAGE_A_TOUS, '<a href="'.ANN_URL_ACTUALITE.'">'.ANN_ACTUALITE.'</a>').'</p>' ; |
return $res ; |
} |
|
/** function carto_texte_cocher () |
* |
* |
* @return string HTML |
*/ |
function carto_texte_cocher() { |
$res .= '<div class="texte">'.ANN_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 '.ANN_CHAMPS_MAIL.' '. |
'FROM '.ANN_ANNUAIRE.' '. |
'WHERE '.ANN_CHAMPS_ID.' = "'.$GLOBALS['AUTH']->getAuthData(ANN_CHAMPS_ID).'" '; |
$resultat = $GLOBALS['ann_db']->query($requete); |
if (DB::isError($resultat)) { |
die($resultat->getMessage().'<br />'.$resultat->getDebugInfo()); |
} |
$ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC); |
$entete = 'From: <'.$ligne[ANN_CHAMPS_MAIL].">\n"; |
|
$corps .= "\n".ANN_PIED_MESSAGE; |
|
$liste = ''; |
foreach ($selection as $key => $value) { |
mail($value, $titre_mail, $corps, $entete); |
$liste .= $value."\n"; |
} |
|
$corps .= "\n----------------------------------------------------------------------------"; |
$corps .= "\n".ANN_MESSAGE_APPLI."\n" ; |
$corps .= "\n".ANN_MESSAGE_ENVOYE_A." :\n $liste" ; |
|
mail(ANN_MAIL_ADMIN, $titre_mail, $corps, $entete); |
|
return '<div class="information">'.ANN_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; |
} |
?> |