git-archimport-id: opensource@polytechnique.org--2005/platal--mainline--0.9--patch-570
--- /dev/null
+../../htdocs/css/lists.archives.css
\ No newline at end of file
--- /dev/null
+<?php
+/***************************************************************************
+ * Copyright (C) 2003-2004 Polytechnique.org *
+ * http://opensource.polytechnique.org/ *
+ * *
+ * This program is free software; you can redistribute it and/or modify *
+ * it under the terms of the GNU General Public License as published by *
+ * the Free Software Foundation; either version 2 of the License, or *
+ * (at your option) any later version. *
+ * *
+ * This program 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 General Public License for more details. *
+ * *
+ * You should have received a copy of the GNU General Public License *
+ * along with this program; if not, write to the Free Software *
+ * Foundation, Inc., *
+ * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
+ ***************************************************************************/
+
+require_once 'xnet.inc.php';
+if (!Env::has('liste')) header('Location: index.php');
+$liste = strtolower(Env::get('liste'));
+
+new_skinned_page('listes/archives.tpl', AUTH_COOKIE);
+$page->setType($globals->asso('cat'));
+$page->useMenu();
+
+require_once('lists.inc.php');
+$client =& lists_xmlrpc(Session::getInt('uid'), Session::get('password'), $globals->asso('mail_domain'));
+require(dirname(dirname(dirname(__FILE__))).'/htdocs/listes/archives.php');
+
+?>
$liste = strtolower(Env::get('liste'));
new_admin_page('listes/check.tpl');
-require_once('lists.inc.php');
+$page->setType($globals->asso('cat'));
+$page->useMenu();
require_once('lists.inc.php');
$client =& lists_xmlrpc(Session::getInt('uid'), Session::get('password'), $globals->asso('mail_domain'));
* 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
***************************************************************************/
-require_once("xorg.inc.php");
-if (!Env::has('liste')) header('Location: index.php');
-$liste = strtolower(Env::get('liste'));
+if (!$page) {
+ require_once("xorg.inc.php");
+ if (!Env::has('liste')) header('Location: index.php');
+ $liste = strtolower(Env::get('liste'));
-new_skinned_page('listes/archives.tpl', AUTH_COOKIE);
-$page->addCssLink('css/lists.archives.css');
-require_once('lists.inc.php');
+ new_skinned_page('listes/archives.tpl', AUTH_COOKIE);
+ require_once('lists.inc.php');
-$client =& lists_xmlrpc(Session::getInt('uid'), Session::get('password'));
+ $client =& lists_xmlrpc(Session::getInt('uid'), Session::get('password'));
+}
+$page->addCssLink('css/lists.archives.css');
if (list($det) = $client->get_members($liste)) {
if ( substr($liste,0,5) != 'promo' && ( $det['ins'] || $det['priv'] ) && !$det['own'] && ($det['sub']<2) ) {
$page->kill("La liste n'existe pas ou tu n'as pas le droit de la consulter");