Moving to GitHub.
[platal.git] / htdocs / listes_redirect.php
1 <?php
2 /***************************************************************************
3 * Copyright (C) 2003-2014 Polytechnique.org *
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
22 require_once dirname(__FILE__).'/../include/xorg.inc.php';
23 $platal = new Xorg();
24
25 preg_match('!^/(moderate|admin|members|archives)/(.*)_([^_]*)(/.*)?$!', $_SERVER['REQUEST_URI'], $matches);
26
27 if ($matches) {
28
29 $action = $matches[1];
30 $mbox = $matches[2];
31 $fqdn = strtolower($matches[3]);
32 $sup = @$matches[4];
33
34 if ($fqdn == 'polytechnique.org') {
35 http_redirect("https://www.polytechnique.org/lists/$action/$mbox$sup");
36 }
37
38 $res = XDB::query("SELECT diminutif FROM groups WHERE mail_domain = {?}", $fqdn);
39 if ($gpx = $res->fetchOneCell()) {
40 http_redirect("http://www.polytechnique.net/$gpx/lists/$action/$mbox$sup");
41 }
42 }
43 ?>
44 <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
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>
55 </html>
56 <?php
57 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker fenc=utf-8:
58 ?>