[platal.git] / htdocs / listes_redirect.php

<?php
/***************************************************************************
 *  Copyright (C) 2003-2014 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 dirname(__FILE__).'/../include/xorg.inc.php';
$platal = new Xorg();

preg_match('!^/(moderate|admin|members|archives)/(.*)_([^_]*)(/.*)?$!', $_SERVER['REQUEST_URI'], $matches);

if ($matches) {

    $action = $matches[1];
    $mbox   = $matches[2];
    $fqdn   = strtolower($matches[3]);
    $sup    = @$matches[4];

    if ($fqdn == 'polytechnique.org') {
        http_redirect("https://www.polytechnique.org/lists/$action/$mbox$sup");
    }

    $res = XDB::query("SELECT diminutif FROM groups WHERE mail_domain = {?}", $fqdn);
    if ($gpx = $res->fetchOneCell()) {
        http_redirect("http://www.polytechnique.net/$gpx/lists/$action/$mbox$sup");
    }
}
?>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html>
  <head>
    <title>404 Not Found</title>
  </head>
  <body>
    <h1>Not Found</h1>
    The requested URL <?php echo $_SERVER['REQUEST_URI'] ?> was not found on this server.<p>
    <hr>
    <address>Apache Server at www.carva.org Port 80</address>
  </body>
</html>
<?php
// vim:set et sw=4 sts=4 sws=4 foldmethod=marker fenc=utf-8:
?>
Commit	Line	Data
0337d704	1	<?php
0337d704	2	/***************************************************************************
c441aabe	3	* Copyright (C) 2003-2014 Polytechnique.org *
0337d704	4	* http://opensource.polytechnique.org/ *
	5	* *
	6	* This program is free software; you can redistribute it and/or modify *
	7	* it under the terms of the GNU General Public License as published by *
	8	* the Free Software Foundation; either version 2 of the License, or *
	9	* (at your option) any later version. *
	10	* *
	11	* This program is distributed in the hope that it will be useful, *
	12	* but WITHOUT ANY WARRANTY; without even the implied warranty of *
	13	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
	14	* GNU General Public License for more details. *
	15	* *
	16	* You should have received a copy of the GNU General Public License *
	17	* along with this program; if not, write to the Free Software *
	18	* Foundation, Inc., *
	19	* 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
	20	***************************************************************************/
	21
0c86c2ea FB	22	require_once dirname(__FILE__).'/../include/xorg.inc.php';
0c86c2ea FB	23	$platal = new Xorg();
e9e9306b	24
558662bc	25	preg_match('!^/(moderate\|admin\|members\|archives)/(.)_([^_])(/.*)?$!', $_SERVER['REQUEST_URI'], $matches);
e9e9306b	26
e9e9306b	27	if ($matches) {
0337d704	28
e9e9306b	29	$action = $matches[1];
	30	$mbox = $matches[2];
	31	$fqdn = strtolower($matches[3]);
0c86c2ea	32	$sup = @$matches[4];
eaf30d86	33
e9e9306b	34	if ($fqdn == 'polytechnique.org') {
19413120	35	http_redirect("https://www.polytechnique.org/lists/$action/$mbox$sup");
e9e9306b	36	}
e9e9306b	37
eb41eda9	38	$res = XDB::query("SELECT diminutif FROM groups WHERE mail_domain = {?}", $fqdn);
e9e9306b	39	if ($gpx = $res->fetchOneCell()) {
19413120	40	http_redirect("http://www.polytechnique.net/$gpx/lists/$action/$mbox$sup");
e9e9306b	41	}
	42	}
	43	?>
0337d704	44	<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
e9e9306b	45	<html>
	46	<head>
	47	<title>404 Not Found</title>
	48	</head>
	49	<body>
	50	<h1>Not Found</h1>
	51	The requested URL <?php echo $_SERVER['REQUEST_URI'] ?> was not found on this server.<p>
	52	<hr>
	53	<address>Apache Server at www.carva.org Port 80</address>
	54	</body>
19413120	55	</html>
19413120	56	<?php
448c8cdc	57	// vim:set et sw=4 sts=4 sws=4 foldmethod=marker fenc=utf-8:
a7de4ef7	58	?>