| 4 |
david |
1 |
<?php
|
|
|
2 |
/*vim: set expandtab tabstop=4 shiftwidth=4: */
|
|
|
3 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
4 |
// | PHP version 4.1 |
|
|
|
5 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
6 |
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) |
|
|
|
7 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
8 |
// | This library is free software; you can redistribute it and/or |
|
|
|
9 |
// | modify it under the terms of the GNU Lesser General Public |
|
|
|
10 |
// | License as published by the Free Software Foundation; either |
|
|
|
11 |
// | version 2.1 of the License, or (at your option) any later version. |
|
|
|
12 |
// | |
|
|
|
13 |
// | This library is distributed in the hope that it will be useful, |
|
|
|
14 |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
|
|
15 |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
|
|
|
16 |
// | Lesser General Public License for more details. |
|
|
|
17 |
// | |
|
|
|
18 |
// | You should have received a copy of the GNU Lesser General Public |
|
|
|
19 |
// | License along with this library; if not, write to the Free Software |
|
|
|
20 |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
|
|
|
21 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
22 |
// CVS : $Id: annuaire.fonct.php,v 1.1 2005/03/24 08:46:07 alex Exp $
|
|
|
23 |
/**
|
|
|
24 |
* Fonctions du module annuaire
|
|
|
25 |
*
|
|
|
26 |
* Fonctions du module annuaire
|
|
|
27 |
*
|
|
|
28 |
*@package annuaire
|
|
|
29 |
//Auteur original :
|
|
|
30 |
*@author Alexandre Granier <alexandre@tela-botanica.org>
|
|
|
31 |
//Autres auteurs :
|
|
|
32 |
*@author Aucun
|
|
|
33 |
*@copyright Tela-Botanica 2000-2004
|
|
|
34 |
*@version $Revision: 1.1 $
|
|
|
35 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
36 |
*/
|
|
|
37 |
|
|
|
38 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
39 |
// | ENTETE du PROGRAMME |
|
|
|
40 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
41 |
|
|
|
42 |
|
| 406 |
jpm |
43 |
|
| 4 |
david |
44 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
45 |
// | LISTE de FONCTIONS |
|
|
|
46 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
47 |
|
|
|
48 |
function AUTH_formulaire_login() {
|
|
|
49 |
$res = '';
|
| 406 |
jpm |
50 |
|
| 4 |
david |
51 |
$url = preg_replace ('/&/', '&', $GLOBALS['ann_url']->getURL()) ;
|
| 406 |
jpm |
52 |
|
|
|
53 |
$res .= '<p>'.ANN_IDENTIFICATION_PRESENTATION_XHTML.'</p>'."\n" ;
|
|
|
54 |
|
| 4 |
david |
55 |
$form = new HTML_QuickForm ('inscription', 'post', $url) ;
|
|
|
56 |
$form->addElement ('text', 'username', ANN_EMAIL) ;
|
|
|
57 |
$form->addElement ('password', 'password', ANN_MOT_DE_PASSE) ;
|
|
|
58 |
$form->addElement('submit', 'valider', ANN_VALIDER);
|
|
|
59 |
$res .= $form->toHTML() ;
|
|
|
60 |
|
|
|
61 |
return $res;
|
|
|
62 |
}
|
|
|
63 |
|
|
|
64 |
/** function parcourrirAnnu () Affiche l'annuaire à partir d'une lettre
|
|
|
65 |
*
|
|
|
66 |
*
|
|
|
67 |
*
|
|
|
68 |
* @return string HTML
|
|
|
69 |
*/
|
| 483 |
jpm |
70 |
function parcourrirAnnu() {
|
| 4 |
david |
71 |
|
| 406 |
jpm |
72 |
$res = '<p id="annuaire_alphabet">';
|
| 4 |
david |
73 |
|
| 406 |
jpm |
74 |
// Alphabet pour la rechercher par lettre du nom des inscrits
|
| 4 |
david |
75 |
for ($i = 65 ; $i <91 ; $i++) {
|
| 406 |
jpm |
76 |
$GLOBALS['ann_url']->addQueryString('lettre', chr($i));
|
|
|
77 |
$url_lettre = $GLOBALS['ann_url']->getURL();
|
|
|
78 |
$GLOBALS['ann_url']->removeQueryString('lettre');
|
|
|
79 |
$res .= '<a href="'.$url_lettre.'">'.chr($i).'</a> '."\n";
|
| 4 |
david |
80 |
}
|
| 406 |
jpm |
81 |
if (ANN_TOUS_BOOL) {
|
|
|
82 |
$GLOBALS['ann_url']->addQueryString('lettre', 'tous');
|
|
|
83 |
$url_lettre = $GLOBALS['ann_url']->getURL();
|
|
|
84 |
$GLOBALS['ann_url']->removeQueryString('lettre');
|
|
|
85 |
$res .= '<a href="'.$url_lettre.'">'.'Tous'.'</a>'."\n";
|
|
|
86 |
}
|
|
|
87 |
$res .= '</p>'."\n";
|
| 4 |
david |
88 |
|
| 483 |
jpm |
89 |
// Si aucune lettre n'est sélectionnée, attribution de la lettre par défaut
|
| 406 |
jpm |
90 |
if (empty($_REQUEST['lettre'])) {
|
|
|
91 |
$_REQUEST['lettre'] = ANN_LETTRE_DEFAUT;
|
|
|
92 |
}
|
| 483 |
jpm |
93 |
// Une lettre est disponible...
|
|
|
94 |
$requete = 'SELECT '.ANN_ANNUAIRE.'.*, '.ANN_TABLE_PAYS.'.* '.
|
|
|
95 |
'FROM '.ANN_ANNUAIRE.','.ANN_TABLE_PAYS.' '.
|
|
|
96 |
'WHERE '.ANN_CHAMPS_PAYS.' = '.ANN_GC_ID.' ';
|
|
|
97 |
if ($_REQUEST['lettre'] != 'tous') {
|
|
|
98 |
$requete .= ' AND '.ANN_CHAMPS_NOM.' LIKE "'.$_REQUEST['lettre'].'%" ' ;
|
|
|
99 |
}
|
|
|
100 |
$requete .= 'ORDER BY '.ANN_CHAMPS_NOM;
|
|
|
101 |
|
|
|
102 |
$res .= listes_inscrit($requete, $GLOBALS['ann_url']->getURL(), '', $GLOBALS['ann_db'], $niveau = 'pays').
|
|
|
103 |
carto_texte_cocher().
|
|
|
104 |
carto_formulaire();
|
|
|
105 |
|
| 406 |
jpm |
106 |
return $res;
|
| 4 |
david |
107 |
}
|
|
|
108 |
|
|
|
109 |
/**
|
|
|
110 |
* Renvoie le code HTML de la liste des inscrits
|
|
|
111 |
* en fonction de la requete passé en parametre
|
|
|
112 |
*
|
|
|
113 |
* @return Renvoie le code HTML de la liste des inscrits
|
|
|
114 |
*/
|
| 483 |
jpm |
115 |
function listes_inscrit($requete, $url, $argument, &$db, $niveau = 'pays') {
|
|
|
116 |
$resultat = $GLOBALS['ann_db']->query($requete);
|
|
|
117 |
(DB::isError($resultat)) ? die($resultat->getMessage().'<br />'.$resultat->getDebugInfo()) : '';
|
|
|
118 |
|
| 406 |
jpm |
119 |
if ($resultat->numRows() > 0) {
|
| 483 |
jpm |
120 |
$res = '<form action="'.$url.'?mailer=1&lettre='.$_REQUEST['lettre'].'" method="post" name="formmail">'."\n";
|
|
|
121 |
$res .= '<div id="annuaire" class="conteneur_table">
|
|
|
122 |
<table id="table_inscrit" class="table_cadre">
|
|
|
123 |
<colgroup>
|
|
|
124 |
<col />
|
|
|
125 |
<col />
|
|
|
126 |
<col />
|
|
|
127 |
<col />
|
|
|
128 |
<col />
|
|
|
129 |
<col />
|
|
|
130 |
<col />
|
|
|
131 |
</colgroup>
|
|
|
132 |
<thead class="entete_fixe">
|
|
|
133 |
<tr>
|
|
|
134 |
<th> </th>
|
|
|
135 |
<th>'.ANN_NOM.'</th>
|
|
|
136 |
<th>'.ANN_PRENOM.'</th>
|
|
|
137 |
<th>'.ANN_DATE_INS.'</th>
|
|
|
138 |
<th>'.ANN_CP.'</th>
|
|
|
139 |
<th>'.ANN_VILLE.'</th>
|
| 406 |
jpm |
140 |
<th>'.ANN_PAYS.'</th>
|
|
|
141 |
</tr>
|
| 483 |
jpm |
142 |
</thead>
|
|
|
143 |
<tbody class="contenu_deroulant">';
|
|
|
144 |
$indic = 0;
|
|
|
145 |
$i = 1;
|
|
|
146 |
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
|
|
|
147 |
if ($indic == 0) {
|
|
|
148 |
$res .= '<tr class="ligne_impaire">'."\n";
|
|
|
149 |
$indic = 1;
|
|
|
150 |
} else {
|
|
|
151 |
$res .= '<tr class="ligne_paire">'."\n";
|
|
|
152 |
$indic = 0;
|
|
|
153 |
}
|
|
|
154 |
$res.= '<td><input type="checkbox" name="select[]" value="'.$ligne[ANN_CHAMPS_MAIL].'" /></td>'."\n".
|
|
|
155 |
'<td>'.strtoupper($ligne[ANN_CHAMPS_NOM]).' </td>'."\n".
|
|
|
156 |
'<td>'.str_replace(' - ', '-', ucwords(strtolower(str_replace('-', ' - ', $ligne[ANN_CHAMPS_PRENOM])))).' </td>'."\n".
|
|
|
157 |
'<td>'.date('d m Y', strtotime($ligne[ANN_CHAMPS_DATE_INS])).' </td>'."\n".
|
|
|
158 |
'<td>'.$ligne[ANN_CHAMPS_CODE_POSTAL].' </td>'."\n".
|
|
|
159 |
'<td>'.strtoupper($ligne[ANN_CHAMPS_VILLE]).' </td>'."\n".
|
|
|
160 |
'<td>'.str_replace(' - ', '-', ucwords(strtolower(str_replace('-', ' - ', ($ligne[ANN_GC_NOM]))))).' </td>'."\n";
|
|
|
161 |
$res .= '</tr>'."\n";
|
|
|
162 |
}
|
|
|
163 |
$res .= '</tbody></table></div>'."\n";
|
| 406 |
jpm |
164 |
} else {
|
| 483 |
jpm |
165 |
$res = '<p class="information">'.'Aucun inscrit n\'a de nom commençant par '.$_REQUEST['lettre'].'</p>'."\n";
|
| 406 |
jpm |
166 |
}
|
| 483 |
jpm |
167 |
return $res;
|
| 4 |
david |
168 |
}
|
|
|
169 |
|
| 483 |
jpm |
170 |
function carto_formulaire() {
|
| 406 |
jpm |
171 |
$res = '<div id="redaction">'."\n";
|
|
|
172 |
$res .= '<div id="redaction_tete"></div>'."\n";
|
|
|
173 |
$res .= '<h2 class="chapo">'.ANN_ENVOYER_MAIL.'</h2>'."\n";
|
| 483 |
jpm |
174 |
$res .= '<table>'."\n".
|
|
|
175 |
'<tr><td class="texte">'.ANN_SUJET.' :</td>'."\n".
|
|
|
176 |
'<td><input class="forml" type="text" name="titre_mail" size="60" value="'.$_POST['titre_mail'].'"/></td>'."\n".
|
|
|
177 |
'</tr><tr><td class="texte" valign="top">'.ANN_MESSAGE.' : </td>'."\n".
|
|
|
178 |
'<td><textarea class="forml" name="corps" rows="5" cols="60">'.$_POST['corps'].'</textarea></td>'."\n".
|
|
|
179 |
'</tr><tr><td></td><td align="center">';
|
| 406 |
jpm |
180 |
$res .='<input class="spip_bouton" type="submit" value="'.ANN_ENVOYER.'" />';
|
|
|
181 |
$res .= '</td>'."\n";
|
|
|
182 |
$res .= '</tr>'."\n";
|
|
|
183 |
$res .= '</table>'."\n";
|
|
|
184 |
$res .= '</form>'."\n";
|
|
|
185 |
$res .= '<div id="redaction_pied"/></div>'."\n";
|
|
|
186 |
$res .= '</div>'."\n";
|
|
|
187 |
$res .= '<p class="attention surveillance">'.ANN_SURVEILLANCE.'</p>' ;
|
|
|
188 |
$res .= '<p class="information message_a_tous">'.sprintf(ANN_MESSAGE_A_TOUS, '<a href="'.ANN_URL_ACTUALITE.'">'.ANN_ACTUALITE.'</a>').'</p>' ;
|
| 4 |
david |
189 |
return $res ;
|
|
|
190 |
}
|
|
|
191 |
|
|
|
192 |
/** function carto_texte_cocher ()
|
|
|
193 |
*
|
|
|
194 |
*
|
|
|
195 |
* @return string HTML
|
|
|
196 |
*/
|
| 483 |
jpm |
197 |
function carto_texte_cocher() {
|
|
|
198 |
$res .= '<div class="texte">'.ANN_CHECK_UNCHECK."\n";
|
|
|
199 |
$res .= ' <input type="checkbox" name="selecttotal" onclick="javascript:setCheckboxes(\'formmail\');"/>'."\n";
|
|
|
200 |
$res .= '</div>';
|
|
|
201 |
return $res;
|
| 4 |
david |
202 |
}
|
|
|
203 |
|
|
|
204 |
/** envoie_mail()
|
|
|
205 |
*
|
|
|
206 |
*
|
|
|
207 |
* @return envoie l'email
|
|
|
208 |
*/
|
| 483 |
jpm |
209 |
function envoie_mail($selection, $titre_mail, $corps) {
|
|
|
210 |
$requete = 'SELECT '.ANN_CHAMPS_MAIL.' '.
|
|
|
211 |
'FROM '.ANN_ANNUAIRE.' '.
|
|
|
212 |
'WHERE '.ANN_CHAMPS_ID.' = "'.$GLOBALS['AUTH']->getAuthData(ANN_CHAMPS_ID).'" ';
|
|
|
213 |
$resultat = $GLOBALS['ann_db']->query($requete);
|
|
|
214 |
if (DB::isError($resultat)) {
|
|
|
215 |
die($resultat->getMessage().'<br />'.$resultat->getDebugInfo());
|
|
|
216 |
}
|
|
|
217 |
$ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC);
|
| 521 |
jpm |
218 |
|
| 4 |
david |
219 |
|
| 483 |
jpm |
220 |
$liste = '';
|
| 521 |
jpm |
221 |
$entete = '' ;
|
| 483 |
jpm |
222 |
foreach ($selection as $key => $value) {
|
| 521 |
jpm |
223 |
|
|
|
224 |
$liste .= $value."," ;
|
| 483 |
jpm |
225 |
}
|
| 521 |
jpm |
226 |
$precorps = $ligne[ANN_CHAMPS_MAIL]." ".ANN_EXPEDITEUR_ORIGINAL." \n" ;
|
|
|
227 |
$precorps .= ANN_LISTE_DESTINATAIRES." : ".$liste." \n" ;
|
|
|
228 |
$precorps .= ANN_TITRE_MAIL.' : '.$titre_mail." \n" ;
|
|
|
229 |
$precorps .= "\n------".ANN_CONTENU_MESSAGE."------\n";
|
| 483 |
jpm |
230 |
|
| 521 |
jpm |
231 |
$corps = $precorps.$corps ;
|
|
|
232 |
$corps .= "\n\n".ANN_PIED_MESSAGE."\n";
|
|
|
233 |
|
| 483 |
jpm |
234 |
$corps .= "\n----------------------------------------------------------------------------";
|
|
|
235 |
$corps .= "\n".ANN_MESSAGE_APPLI."\n" ;
|
| 521 |
jpm |
236 |
//$corps .= "\n".ANN_MESSAGE_ENVOYE_A." :\n $liste" ;
|
| 483 |
jpm |
237 |
|
| 521 |
jpm |
238 |
// Envoie du message au modérateur
|
|
|
239 |
if(!mail(MAIL_MODERATION,ANN_TITRE_MAIL_MODERATION,$corps, $entete))
|
|
|
240 |
{
|
|
|
241 |
trigger_error("Le courriel n'a pas été envoyé à : $courriel", E_USER_WARNING);
|
|
|
242 |
}
|
|
|
243 |
|
|
|
244 |
/*foreach ($GLOBALS['mail_admin'] as $courriel) {
|
| 499 |
jpm |
245 |
if (!mail($courriel, $titre_mail, $corps, $entete)) {
|
|
|
246 |
trigger_error("Le courriel n'a pas été envoyé à : $courriel", E_USER_WANRNING);
|
|
|
247 |
}
|
| 521 |
jpm |
248 |
}*/
|
| 483 |
jpm |
249 |
|
| 521 |
jpm |
250 |
return '<div class="information">'.ANN_MAIL_ATTENTE_MODERATION.'</div>' ;
|
| 4 |
david |
251 |
}
|
| 483 |
jpm |
252 |
|
|
|
253 |
/** translittererVersIso88591()
|
|
|
254 |
*
|
|
|
255 |
* Convertit les caractères CP1252 (= ANSI) non présent dans l'ISO-8859-1 par un équivalant ressemblant.
|
|
|
256 |
*
|
|
|
257 |
* @return envoie l'email
|
|
|
258 |
*/
|
|
|
259 |
function translittererCp1252VersIso88591($str, $translit = true) {
|
|
|
260 |
$cp1252_entite_map = array(
|
|
|
261 |
'\x80' => '€', /* EURO SIGN */
|
|
|
262 |
'\x82' => '‚', /* SINGLE LOW-9 QUOTATION MARK */
|
|
|
263 |
'\x83' => 'ƒ', /* LATIN SMALL LETTER F WITH HOOK */
|
|
|
264 |
'\x84' => '„', /* DOUBLE LOW-9 QUOTATION MARK */
|
|
|
265 |
'\x85' => '…', /* HORIZONTAL ELLIPSIS */
|
|
|
266 |
'\x86' => '†', /* DAGGER */
|
|
|
267 |
'\x87' => '‡', /* DOUBLE DAGGER */
|
|
|
268 |
'\x88' => 'ˆ', /* MODIFIER LETTER CIRCUMFLEX ACCENT */
|
|
|
269 |
'\x89' => '‰', /* PER MILLE SIGN */
|
|
|
270 |
'\x8a' => 'Š', /* LATIN CAPITAL LETTER S WITH CARON */
|
|
|
271 |
'\x8b' => '‹', /* SINGLE LEFT-POINTING ANGLE QUOTATION */
|
|
|
272 |
'\x8c' => 'Œ', /* LATIN CAPITAL LIGATURE OE */
|
|
|
273 |
'\x8e' => 'Ž', /* LATIN CAPITAL LETTER Z WITH CARON */
|
|
|
274 |
'\x91' => '‘', /* LEFT SINGLE QUOTATION MARK */
|
|
|
275 |
'\x92' => '’', /* RIGHT SINGLE QUOTATION MARK */
|
|
|
276 |
'\x93' => '“', /* LEFT DOUBLE QUOTATION MARK */
|
|
|
277 |
'\x94' => '”', /* RIGHT DOUBLE QUOTATION MARK */
|
|
|
278 |
'\x95' => '•', /* BULLET */
|
|
|
279 |
'\x96' => '–', /* EN DASH */
|
|
|
280 |
'\x97' => '—', /* EM DASH */
|
|
|
281 |
'\x98' => '˜', /* SMALL TILDE */
|
|
|
282 |
'\x99' => '™', /* TRADE MARK SIGN */
|
|
|
283 |
'\x9a' => 'š', /* LATIN SMALL LETTER S WITH CARON */
|
|
|
284 |
'\x9b' => '›', /* SINGLE RIGHT-POINTING ANGLE QUOTATION*/
|
|
|
285 |
'\x9c' => 'œ', /* LATIN SMALL LIGATURE OE */
|
|
|
286 |
'\x9e' => 'ž', /* LATIN SMALL LETTER Z WITH CARON */
|
|
|
287 |
'\x9f' => 'Ÿ' /* LATIN CAPITAL LETTER Y WITH DIAERESIS*/
|
|
|
288 |
);
|
|
|
289 |
$translit_map = array(
|
|
|
290 |
'€' => 'Euro', /* EURO SIGN */
|
|
|
291 |
'‚' => ',', /* SINGLE LOW-9 QUOTATION MARK */
|
|
|
292 |
'ƒ' => 'f', /* LATIN SMALL LETTER F WITH HOOK */
|
|
|
293 |
'„' => ',,', /* DOUBLE LOW-9 QUOTATION MARK */
|
|
|
294 |
'…' => '...', /* HORIZONTAL ELLIPSIS */
|
|
|
295 |
'†' => '+', /* DAGGER */
|
|
|
296 |
'‡' => '++', /* DOUBLE DAGGER */
|
|
|
297 |
'ˆ' => '^', /* MODIFIER LETTER CIRCUMFLEX ACCENT */
|
|
|
298 |
'‰' => '0/00', /* PER MILLE SIGN */
|
|
|
299 |
'Š' => 'S', /* LATIN CAPITAL LETTER S WITH CARON */
|
|
|
300 |
'‹' => '<', /* SINGLE LEFT-POINTING ANGLE QUOTATION */
|
|
|
301 |
'Œ' => 'OE', /* LATIN CAPITAL LIGATURE OE */
|
|
|
302 |
'Ž' => 'Z', /* LATIN CAPITAL LETTER Z WITH CARON */
|
|
|
303 |
'‘' => "'", /* LEFT SINGLE QUOTATION MARK */
|
|
|
304 |
'’' => "'", /* RIGHT SINGLE QUOTATION MARK */
|
|
|
305 |
'“' => '"', /* LEFT DOUBLE QUOTATION MARK */
|
|
|
306 |
'”' => '"', /* RIGHT DOUBLE QUOTATION MARK */
|
|
|
307 |
'•' => '*', /* BULLET */
|
|
|
308 |
'–' => '-', /* EN DASH */
|
|
|
309 |
'—' => '--', /* EM DASH */
|
|
|
310 |
'˜' => '~', /* SMALL TILDE */
|
|
|
311 |
'™' => '(TM)', /* TRADE MARK SIGN */
|
|
|
312 |
'š' => 's', /* LATIN SMALL LETTER S WITH CARON */
|
|
|
313 |
'›' => '>', /* SINGLE RIGHT-POINTING ANGLE QUOTATION*/
|
|
|
314 |
'œ' => 'oe', /* LATIN SMALL LIGATURE OE */
|
|
|
315 |
'ž' => 'z', /* LATIN SMALL LETTER Z WITH CARON */
|
|
|
316 |
'Ÿ' => 'Y' /* LATIN CAPITAL LETTER Y WITH DIAERESIS*/
|
|
|
317 |
);
|
|
|
318 |
$str = strtr($str, $cp1252_entite_map);
|
|
|
319 |
if ($translit) {
|
|
|
320 |
$str = strtr($str, $translit_map);
|
|
|
321 |
}
|
|
|
322 |
return $str;
|
|
|
323 |
}
|
| 4 |
david |
324 |
?>
|