Subversion Repositories Applications.papyrus

Rev

Rev 2081 | Rev 2094 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1165 jp_milcent 1
<?php
2
/*vim: set expandtab tabstop=4 shiftwidth=4: */
3
// +------------------------------------------------------------------------------------------------------+
4
// | PHP version 5.1                                                                                      |
5
// +------------------------------------------------------------------------------------------------------+
6
// | Copyright (C) 1999-2006 Tela Botanica (accueil@tela-botanica.org)                                    |
7
// +------------------------------------------------------------------------------------------------------+
1283 florian 8
// | This file is part of papyrus_bp.                                                                     |
1165 jp_milcent 9
// |                                                                                                      |
10
// | Foobar is free software; you can redistribute it and/or modify                                       |
11
// | it under the terms of the GNU General Public License as published by                                 |
12
// | the Free Software Foundation; either version 2 of the License, or                                    |
13
// | (at your option) any later version.                                                                  |
14
// |                                                                                                      |
15
// | Foobar is distributed in the hope that it will be useful,                                            |
16
// | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |
17
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the                                        |
18
// | GNU General Public License for more details.                                                         |
19
// |                                                                                                      |
20
// | You should have received a copy of the GNU General Public License                                    |
21
// | along with Foobar; if not, write to the Free Software                                                |
22
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
23
// +------------------------------------------------------------------------------------------------------+
1961 alexandre_ 24
// CVS : $Id: syndication.php,v 1.11 2008-10-29 15:55:56 alexandre_tb Exp $
1165 jp_milcent 25
/**
26
* papyrus_bp - syndication.php
27
*
28
* Description :
29
*
30
*@package papyrus_bp
31
//Auteur original :
32
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
33
//Autres auteurs :
34
*@author        Aucun
35
*@copyright     Tela-Botanica 1999-2006
1961 alexandre_ 36
*@version       $Revision: 1.11 $ $Date: 2008-10-29 15:55:56 $
1165 jp_milcent 37
// +------------------------------------------------------------------------------------------------------+
38
*/
39
 
40
// +------------------------------------------------------------------------------------------------------+
41
// |                                            ENTÊTE du PROGRAMME                                       |
42
// +------------------------------------------------------------------------------------------------------+
43
$GLOBALS['_GEN_commun']['info_applette_nom_fonction'] = 'afficherSyndication';
44
$GLOBALS['_GEN_commun']['info_applette_balise'] = 	'\{\{[Ss]yndication'.
45
													'(?:\s*'.
46
														'(?:'.
47
															'(url="[^"]*")|'.
48
															'(titre="[^"]*")|'.
1471 alexandre_ 49
															'(nb="?\d+"?)|'.
2081 gduche 50
															'(tailledesc="?\d+"?)|'.
51
															'(voirsuite="[^"]*")|'.
52
															'(dureecache="?\d+"?)|'.
53
															'(id="[^"]*")|'.
2059 aurelien 54
															'(nbmax="?\d+"?)|'.
1471 alexandre_ 55
															'(nouvellefenetre="?(?:0|1)"?)|'.
1165 jp_milcent 56
															'(formatdate="[^"]*")|'.
57
															'(formatdatepro="[^"]*")|'.
1471 alexandre_ 58
															'(template=".*")|'.
1165 jp_milcent 59
														')'.
60
													')+'.
61
													'\s*\}\}';
62
// +------------------------------------------------------------------------------------------------------+
63
/** Inclusion du fichier de configuration de cette application.*/
64
require_once GEN_CHEMIN_APPLETTE.'syndication'.GEN_SEP.'configuration'.GEN_SEP.'synd_configuration.inc.php';
65
 
2059 aurelien 66
/** Inclusion du fichier de fonctions de cette application.*/
67
require_once GEN_CHEMIN_APPLETTE.'syndication'.GEN_SEP.'bibliotheque'.GEN_SEP.'syndication.fonct.php';
68
 
1165 jp_milcent 69
// Inclusion des fichiers de traduction de l'applette SYND de Papyrus
70
if (file_exists(SYND_CHEMIN_LANGUE.'synd_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php')) {
71
    /** Inclusion du fichier de traduction suite à la transaction avec le navigateur.*/
72
    require_once SYND_CHEMIN_LANGUE.'synd_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php';
73
} else {
74
    /** Inclusion du fichier de traduction par défaut.*/
75
    require_once SYND_CHEMIN_LANGUE.'synd_langue_'.SYND_I18N_DEFAUT.'.inc.php';
76
}
2059 aurelien 77
 
1165 jp_milcent 78
/** Inclusion du fichier de la bibliotheque permettant de manipuler les flux RSS.*/
1283 florian 79
//require_once(MAGPIE_DIR.'rss_fetch.inc');
1529 jp_milcent 80
require_once PAP_CHEMIN_API_PEAR.'XML/Feed/Parser.php';
1165 jp_milcent 81
// +------------------------------------------------------------------------------------------------------+
82
// |                                            CORPS du PROGRAMME                                        |
83
// +------------------------------------------------------------------------------------------------------+
84
/** Fonction afficherSyndication() - Retourne la liste des pages des sites syndiqués.
85
*
86
* Cette fonction retourne la liste des pages des sites syndiqués.
87
*
88
* @param  array contient les arguments de la fonction.
89
* @param  array  tableau global de Papyrus.
90
* @return string XHTML la liste des pages.
91
*/
92
function afficherSyndication($tab_applette_arguments, $_GEN_commun)
93
{
94
	// Initialisation des variables
95
    $sortie = '';
96
	$GLOBALS['_SYNDICATION_']['erreurs'] = array();
97
	$GLOBALS['_SYNDICATION_']['informations'] = array();
98
	$GLOBALS['_SYNDICATION_']['sites'] = array();
2059 aurelien 99
 
100
 
101
		$string_arguments = "";
1165 jp_milcent 102
	//+----------------------------------------------------------------------------------------------------------------+
103
	// Gestion des arguments
104
	$balise = $tab_applette_arguments[0];
105
    $tab_arguments = $tab_applette_arguments;
2083 jp_milcent 106
 
1165 jp_milcent 107
	unset($tab_arguments[0]);
108
    foreach($tab_arguments as $argument) {
109
    	if ($argument != '') {
2059 aurelien 110
	    		$string_arguments .= $argument;
1283 florian 111
	    	$tab_parametres = explode('=', $argument, 2);
1165 jp_milcent 112
	    	$options[$tab_parametres[0]] = trim($tab_parametres[1], '"');
113
    	}
114
    }
2059 aurelien 115
 
116
    $id_cache = md5($string_arguments);
2081 gduche 117
	//Greg : possibilité d'ajouter une durée au cache
118
	if (!isset($options['dureecache'])) {
119
		$options['dureecache'] = CACHE_LIFETIME;
120
	}
2059 aurelien 121
 
2081 gduche 122
	if($contenu_cache = verifierCache($id_cache, $options['dureecache'])) {
2059 aurelien 123
		return $contenu_cache;
124
	}
1961 alexandre_ 125
	//
1165 jp_milcent 126
	//+----------------------------------------------------------------------------------------------------------------+
1283 florian 127
    // Gestion des erreurs de paramétrage
2083 jp_milcent 128
 
1165 jp_milcent 129
	if (!isset($options['url'])) {
130
		$GLOBALS['_SYNDICATION_']['erreurs'][] = sprintf(SYND_LG_ERREUR_URL, $balise);
131
	}
132
	if (!isset($options['titre'])) {
133
		$options['titre'] = '';
134
	}
135
	if (!isset($options['nb'])) {
136
		$options['nb'] = SYND_NOMBRE;
137
	}
2059 aurelien 138
	if (!isset($options['nbmax'])) {
139
		$options['nbmax'] = SYND_NOMBRE_MAX;
140
	}
2081 gduche 141
    	if (!isset($options['nouvellefenetre'])) {
1165 jp_milcent 142
		$options['nouvellefenetre'] = SYND_OUVRIR_LIEN_RSS_NOUVELLE_FENETRE;
143
	}
144
	if (!isset($options['formatdate'])) {
145
		$options['formatdate'] = SYND_FORMAT_DATE;
146
	}
147
	if (!isset($options['formatdatepro'])) {
1471 alexandre_ 148
		$options['formatdatepro'] = false;
1165 jp_milcent 149
	}
150
	if (!isset($options['template'])) {
151
		$options['template'] = SYND_CHEMIN_SQUELETTE.SYND_SQUELETTE_LISTE;
152
	} else {
153
		if (file_exists(SYND_CHEMIN_SQUELETTE.$options['template'])) {
154
			$options['template'] = SYND_CHEMIN_SQUELETTE.$options['template'];
155
		}
156
	}
2083 jp_milcent 157
 
158
 
159
 
160
 
1165 jp_milcent 161
    //+----------------------------------------------------------------------------------------------------------------+
1283 florian 162
    // Recuperation des donnees
1165 jp_milcent 163
    if (count($GLOBALS['_SYNDICATION_']['erreurs']) == 0) {
164
		$tab_url = array_map('trim', explode(',', $options['url']));
165
        foreach ($tab_url as $cle => $url) {
166
			if ($url != '') {
167
				$aso_site = array();
1745 jp_milcent 168
				// Liste des encodages acceptés pour les flux
169
				$encodages = 'UTF-8, ISO-8859-1, ISO-8859-15';
1529 jp_milcent 170
				try {
2083 jp_milcent 171
					$xml = file_get_contents($url);
172
					$feed = new XML_Feed_Parser($xml);
1529 jp_milcent 173
				} catch (XML_Feed_Parser_Exception $e) {
2083 jp_milcent 174
					creer_cache('erreur', $xml, 604800);
1767 alexandre_ 175
					return('Le flux RSS est invalide : ' . $e->getMessage());
1529 jp_milcent 176
				}
2059 aurelien 177
 
1165 jp_milcent 178
				if ($options['template'] != '' && !file_exists($options['template'])) {
179
					$i = 0 ;
180
					$res= '';
1529 jp_milcent 181
					foreach ($feed as $item) {
1165 jp_milcent 182
						// Le test suivant pour savoir s il faut reduire l excendent de description
183
						// Si {all} est present dans le template on ne reduit pas
184
						if (preg_match ('/{all}/', $options['template'])) {
185
							$template = str_replace('{all}', '', $options['template']);
186
							$all = true ;
187
						} else {
188
							$all = false;
189
						}
1529 jp_milcent 190
						if (isset($item->summary)) {
2059 aurelien 191
							$item->description = mb_convert_encoding($item->summary, 'HTML-ENTITIES', $encodages);
1165 jp_milcent 192
						} else {
1529 jp_milcent 193
							if (strlen($item->description) > 200 && !$all) {
1745 jp_milcent 194
								$item->description = 	substr(mb_convert_encoding($item->description, 'HTML-ENTITIES', $encodages), 0, 300).
195
														'... <a href="'.htmlentities($item->link).'">Lire la suite</a>';
1165 jp_milcent 196
							}
197
						}
1529 jp_milcent 198
						if (!isset($item->pubdate)) {
199
							$item->pubdate = date('dmY');
1165 jp_milcent 200
						}
1204 alexandre_ 201
						// Le code ci-apres est pour rattraper les dates du type 01012005 parsees par magpie
202
						// lorsque les flux donne des dates au format iso
1529 jp_milcent 203
						if (preg_match('/^([0-3][0-9])([0-1][0-9])([0-9][0-9][0-9][0-9])$/', $item->pubdate, $match)) {
204
							$item->pubdate = $match[3].'-'.$match[2].'-'.$match[1];
1204 alexandre_ 205
							//echo $item['pubdate'];
206
						}
2059 aurelien 207
						$res .= str_replace ('{num}', ++$i,
208
								str_replace ('{item}', '<a href="'.htmlentities($item->link).'" target="_top">'.mb_convert_encoding($item->title, 'HTML-ENTITIES', $encodages).'</a>',
1529 jp_milcent 209
								str_replace ('{date}', strftime('%d.%m.%Y',strtotime($item->pubdate)),
1745 jp_milcent 210
								str_replace ('{description}', mb_convert_encoding($item->description, 'HTML-ENTITIES', $encodages), $options['template'])))) ;
1165 jp_milcent 211
						$res .= "\n";
212
						if ($i > $options['nb']) {
213
							break;
214
						}
215
					}
216
					return $res;
217
				}
218
				// Gestion du titre
219
				if ( $options['titre'] == '' ) {
1745 jp_milcent 220
					$aso_site['titre'] = mb_convert_encoding($feed->title, 'HTML-ENTITIES', $encodages);
1165 jp_milcent 221
				} else if ( $options['titre'] != '0' ) {
1529 jp_milcent 222
					$aso_site['titre'] = $options['titre'];
1165 jp_milcent 223
				}
2083 jp_milcent 224
 
2081 gduche 225
				//Gestion de l'ID
226
				if ( $options['id'] != '' ) {
227
					$aso_site['id'] = $options['id'];
228
				}
2083 jp_milcent 229
 
2081 gduche 230
				//Gestion du lien vers la suite
231
				if ( $options['voirsuite'] != '' ) {
232
					$aso_site['voirsuite'] = $options['voirsuite'];
233
				}
2083 jp_milcent 234
 
1165 jp_milcent 235
				// Gestion de l'url du site
1529 jp_milcent 236
				$aso_site['url'] = htmlentities($feed->link);
237
 
1283 florian 238
				// Ouverture du lien dans une nouvelle fenetre
1165 jp_milcent 239
				$aso_site['ext'] = false;
240
				if ($options['nouvellefenetre'] == 1) {
241
					$aso_site['ext'] = true;
242
				}
1283 florian 243
				// Gestion des pages syndiquees
1165 jp_milcent 244
				$i = 0;
1529 jp_milcent 245
			    $nb_item = $feed->numberEntries;
1961 alexandre_ 246
 
1529 jp_milcent 247
				foreach ($feed as $item) {
2083 jp_milcent 248
 
1170 jp_milcent 249
					if ($options['nb'] != 0 && $nb_item >= $options['nb'] && $i >= $options['nb']) {
250
						break;
251
					}
252
					$i++;
2059 aurelien 253
 
1165 jp_milcent 254
					$aso_page = array();
255
					$aso_page['site'] = $aso_site;
1745 jp_milcent 256
					$aso_page['url'] = htmlentities($item->link);
257
					$aso_page['titre'] = mb_convert_encoding($item->title, 'HTML-ENTITIES', $encodages);
1961 alexandre_ 258
					$aso_page['description'] = mb_convert_encoding($item->description, 'HTML-ENTITIES', $encodages);
2083 jp_milcent 259
 
2081 gduche 260
					/* Extraction de l'image si incluse dans description */
261
					$image = "";
262
					$description = $aso_page['description'];
2083 jp_milcent 263
 
2081 gduche 264
					$taille = $options['tailledesc'];
2083 jp_milcent 265
 
2081 gduche 266
					if (!(strpos($description, '<img') === false))	{
267
						$pos_debut = strpos($description, '<img');
268
						$pos_fin_image = strpos($description, '>', $posimage) + 1;
269
						$image = substr($description, $pos_debut, ($pos_fin_image - $pos_debut));
270
						$description = substr_replace($description,' ', $pos_debut,  ($pos_fin_image - $pos_debut));
271
					}
2083 jp_milcent 272
 
2081 gduche 273
					$aso_page['image'] = $image;
2083 jp_milcent 274
					$aso_page['description_sans_image'] = $description;
2081 gduche 275
 
276
					if ($taille != null)	{
2083 jp_milcent 277
 
2081 gduche 278
						//Attention : si on coupe simplement, on peut couper une balise en plein milieu.
2083 jp_milcent 279
						//On va donc vérifier
2081 gduche 280
						//1. recherche de tags simples <i> ou <b>
281
						$description = html_entity_decode($description);
282
						$description = strip_tags($description, "<i><b>");
2083 jp_milcent 283
 
2081 gduche 284
						//Va-ton couper un mot ?
2083 jp_milcent 285
 
2081 gduche 286
						if ($description[$taille] != ' ' && $description[$taille+1] != ' ' && $description[$taille-1] != ' ')	{
287
  								$strpos = strpos($description, ' ', $taille);
288
  								if ($strpos === true)	{
289
  									$taille = $strpos;
290
  								}
291
  						}
2083 jp_milcent 292
 
293
 
2081 gduche 294
						$description = substr($description, 0, $taille);
295
						$description.='(...)';
2083 jp_milcent 296
 
2081 gduche 297
						$pattern = '#<([ib])[ ]*[a-z]*>(.*?)</\1>#i';
298
						//1. remplacer toutes le	s balises fermées
299
						$chaine = preg_replace($pattern, '$2', $description);
300
						$nb_occurences_i = substr_count($chaine, '<i');
301
						for ($occurences = 0; $occurences < $nb_occurences_i; $occurences++)	{
302
							$description .= "</i>";
303
						}
2083 jp_milcent 304
 
2081 gduche 305
						$nb_occurences_b = substr_count($chaine, '<b');
306
						for ($occurences = 0; $occurences < $nb_occurences_b; $occurences++)	{
307
							$description .= "</b>";
308
						}
309
					}
2083 jp_milcent 310
 
2081 gduche 311
					$aso_page['description_light'] = $description;
312
 
313
					//Greg : ajout GUID
314
					$aso_page['guid'] = mb_convert_encoding($item->model->getElementsByTagName('guid')->item(0)->nodeValue, 'HTML-ENTITIES', $encodages);
2083 jp_milcent 315
 
1961 alexandre_ 316
					$aso_page['category'] = mb_convert_encoding($item->model->getElementsByTagName('category')->item(0)->nodeValue, 'HTML-ENTITIES', $encodages);
317
					$aso_page['author'] = mb_convert_encoding($item->author, 'HTML-ENTITIES', $encodages);
2083 jp_milcent 318
 
319
 
2059 aurelien 320
					$aso_page['date'] = $item->pubDate;
1165 jp_milcent 321
					if ($options['formatdatepro']) {
1283 florian 322
						switch ($options['formatdatepro']) {
323
							case 'jm' :
1529 jp_milcent 324
								$aso_page['date'] = strftime('%d.%m', $aso_page['date']);
1283 florian 325
								break;
326
							case 'jma' :
1529 jp_milcent 327
								$aso_page['date'] = strftime('%d.%m.%Y', $aso_page['date']);
1283 florian 328
								break;
329
							case 'jmh' :
1529 jp_milcent 330
								$aso_page['date'] = strftime('%d.%m %H:%M', $aso_page['date']);
1283 florian 331
								break;
332
							case 'jmah' :
1529 jp_milcent 333
								$aso_page['date'] = strftime('%d.%m.%Y %H:%M', $aso_page['date']);
1283 florian 334
								break;
335
							default :
1529 jp_milcent 336
								$aso_page['date'] = strftime('%d.%m.%Y %H:%M', $aso_page['date']);
1283 florian 337
						}
1165 jp_milcent 338
					} else {
339
						switch ($options['formatdate']) {
340
							case 'jm' :
1529 jp_milcent 341
								$aso_page['date'] = strftime('%d.%m', $aso_page['date']);
1165 jp_milcent 342
								break;
343
							case 'jma' :
1529 jp_milcent 344
								$aso_page['date'] = strftime('%d.%m.%Y', $aso_page['date']);
1165 jp_milcent 345
								break;
346
							case 'jmh' :
1529 jp_milcent 347
								$aso_page['date'] = strftime('%d.%m %H:%M', $aso_page['date']);
1165 jp_milcent 348
								break;
349
							case 'jmah' :
1529 jp_milcent 350
								$aso_page['date'] = strftime('%d.%m.%Y %H:%M', $aso_page['date']);
1165 jp_milcent 351
								break;
352
							default :
1529 jp_milcent 353
								$aso_page['date'] = strftime('%d.%m.%Y %H:%M', $aso_page['date']);
1165 jp_milcent 354
						}
355
					}
356
					$aso_site['pages'][] = $aso_page;
357
					$GLOBALS['_SYNDICATION_']['pages'][strtotime($aso_page['date'])] = $aso_page;
358
				}
359
				$GLOBALS['_SYNDICATION_']['sites'][] = $aso_site;
360
			}
361
        }
362
    }
363
	// Trie des pages par date
364
	krsort($GLOBALS['_SYNDICATION_']['pages']);
2059 aurelien 365
 
366
	$GLOBALS['_SYNDICATION_']['sites'] = array_slice($GLOBALS['_SYNDICATION_']['sites'],0,$options['nbmax'],true) ;
367
	$GLOBALS['_SYNDICATION_']['pages'] = array_slice($GLOBALS['_SYNDICATION_']['pages'],0,$options['nbmax'],true) ;
368
 
1165 jp_milcent 369
	//+----------------------------------------------------------------------------------------------------------------+
1283 florian 370
    // Extrait les variables et les ajoutes a l'espace de noms local
1165 jp_milcent 371
	// Gestion des squelettes
372
	extract($GLOBALS['_SYNDICATION_']);
1283 florian 373
	// Demarre le buffer
1165 jp_milcent 374
	ob_start();
375
	// Inclusion du fichier
376
	include($options['template']);
1283 florian 377
	// Recuperer le  contenu du buffer
1165 jp_milcent 378
	$sortie = ob_get_contents();
2081 gduche 379
	creer_cache($id_cache,$sortie, $options['dureecache']);
1283 florian 380
	// Arrete et detruit le buffer
1165 jp_milcent 381
	ob_end_clean();
2059 aurelien 382
 
1165 jp_milcent 383
	//+----------------------------------------------------------------------------------------------------------------+
384
	// Sortie
385
    return $sortie;
386
}
387
 
388
/* +--Fin du code ----------------------------------------------------------------------------------------+
389
*
390
* $Log: not supported by cvs2svn $
1961 alexandre_ 391
* Revision 1.10  2007-12-13 14:10:51  alexandre_tb
392
* Fusion avec la livraison AHA : 13 decembre 2007
393
*
1767 alexandre_ 394
* Revision 1.9  2007-12-03 14:54:14  jp_milcent
395
* Fusion avec la livraison AHA : 3 décembre 2007
396
*
1745 jp_milcent 397
* Revision 1.7.2.2  2007-12-03 14:52:21  jp_milcent
398
* Correction bogue : & dans les urls.
399
*
400
* Revision 1.8  2007-11-30 14:17:30  jp_milcent
401
* Fusion avec la livraison AHA : 30 novembre 2007
402
*
1739 jp_milcent 403
* Revision 1.7.2.1  2007-11-30 14:15:02  jp_milcent
404
* Amélioration du décodage utf8.
405
*
406
* Revision 1.7  2007-07-25 15:09:44  jp_milcent
407
* Fusion avec la livraison Narmer.
408
*
1529 jp_milcent 409
* Revision 1.5.2.4  2007-07-25 15:07:52  jp_milcent
410
* Correction problème url.
411
*
412
* Revision 1.5.2.3  2007-07-25 14:50:21  jp_milcent
413
* Corrections, meilleure utilisation de XML_Feed_Parser.
414
*
415
* Revision 1.5.2.2  2007-07-25 09:45:07  jp_milcent
416
* Utilisation de XML_Feed_Parser de Pear pour l'applette Syndication.
417
*
418
* Revision 1.6  2007-06-25 12:15:07  alexandre_tb
419
* merge from narmer
420
*
1471 alexandre_ 421
* Revision 1.5.2.1  2007-06-06 15:24:37  jp_milcent
422
* Amélioration de la compatibilité avec les anciennes version des balises de l'applette syndication.
423
*
424
* Revision 1.5  2007-04-20 12:50:18  florian
425
* correction bugs suite au merge
426
*
1359 florian 427
* Revision 1.4  2007/03/28 15:53:27  florian
428
* correction pb date, encodage utf-8
429
*
1283 florian 430
* Revision 1.3  2007/01/23 14:17:19  alexandre_tb
431
* backport : hack pour rattraper les dates du type 01012005 parsees par magpie
432
* lorsque les flux donne des dates au format iso
433
*
1204 alexandre_ 434
* Revision 1.2  2006/12/13 17:20:51  jp_milcent
435
* Correction bogue : paramètre nb non pris en compte
436
*
1170 jp_milcent 437
* Revision 1.1  2006/12/13 17:06:36  jp_milcent
438
* Ajout de l'applette Syndication.
1165 jp_milcent 439
*
1170 jp_milcent 440
*
1165 jp_milcent 441
* +-- Fin du code ----------------------------------------------------------------------------------------+
442
*/
2081 gduche 443
?>