Subversion Repositories Applications.projet

Rev

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

Rev Author Line No. Line
208 neiluj 1
<?php
316 alexandre_ 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 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
// | General Public License for more details.                                                             |
17
// |                                                                                                      |
18
// | You should have received a copy of the GNU 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 $
23
/**
24
* Application projet
25
*
26
* Action forums
27
*
28
*@package projet
29
//Auteur original :
30
*@author        Alexandre Granier <alexandre@tela-botanica.org>
31
//Autres auteurs :
32
*@author        Aucun
33
*@copyright     Tela-Botanica 2000-2008
359 aperonnet 34
*@version       $Revision: 1.6 $
316 alexandre_ 35
// +------------------------------------------------------------------------------------------------------+
36
*/
208 neiluj 37
include_once 'ezmlm-php-2.0/ezmlm.php' ;
38
 
417 raphael 39
error_reporting(E_ALL ^ E_NOTICE ^ E_DEPRECATED ^ E_STRICT);
40
date_default_timezone_set("Europe/Paris");
41
// extract($_GET); // PHP-5.4, sans register_globals
208 neiluj 42
 
43
// Parametrage de la liste
44
$info = new ezmlm_listinfo();
45
if (!$info) return 'Les fichiers de la liste ne sont pas visible sur le serveur' ;
46
$info->forcehref = $url;
47
$info->listdir = '/home/vpopmail/domains/'.$domaine.'/'.$liste ;
48
$info->listname = $liste;
49
$info->listdomain = $domaine ;
50
 
316 alexandre_ 51
include_once 'XML/Util.php' ;
52
 
53
$xml = XML_Util::getXMLDeclaration('1.0', 'ISO-8859-15', 'no') ;
54
 
55
if (!file_exists($info->listdir.'/num')) {
56
	$xml .= XML_Util::createStartElement ('ezmlm_derniers_messages', array('domaine' => $domaine, 'liste' => $liste, 'langue' => $langue)) ;
57
	$xml .= '<![CDATA[il n\'y a pas de messages dans cette liste pour le moment.]]>';
58
	$xml .= XML_Util::createEndElement('ezmlm_derniers_messages') ;
59
	header ('Content-type: text/xml');
60
	echo $xml;
61
	exit();
62
}
63
 
356 aperonnet 64
$html = $info->show_recentmsgs() ;
316 alexandre_ 65
 
356 aperonnet 66
if (!$html) {
249 alexandre_ 67
    if (!$info) {
359 aperonnet 68
    	echo 'Les fichiers de la liste ne sont pas visibles sur le serveur' ;
316 alexandre_ 69
    	exit();
249 alexandre_ 70
    }
208 neiluj 71
}
72
 
73
$xml .= XML_Util::createStartElement ('ezmlm_derniers_messages', array('domaine' => $domaine, 'liste' => $liste, 'langue' => $langue)) ;
74
 
75
$xml .= '<![CDATA[ '.$html.']]>';
76
 
77
$xml .= XML_Util::createEndElement('ezmlm_derniers_messages') ;
78
header ('Content-type: text/xml');
79
echo $xml ;
316 alexandre_ 80
 
81
/* +--Fin du code ----------------------------------------------------------------------------------------+
82
*
83
* $Log: not supported by cvs2svn $
359 aperonnet 84
* Revision 1.5  2008-11-04 17:11:10  aperonnet
85
* correction de bugs dans la liste des derniers messages
86
*
356 aperonnet 87
* Revision 1.4  2008-08-25 15:25:09  alexandre_tb
88
* optimisation et gestion des erreurs
316 alexandre_ 89
*
356 aperonnet 90
*
316 alexandre_ 91
* +-- Fin du code ----------------------------------------------------------------------------------------+
92
*/
208 neiluj 93
?>