htdocs/listes_redirect.php

   1 <?php
   2 /***************************************************************************
   3  *  Copyright (C) 2003-2008 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 'xorg.inc.php';
  23
  24 preg_match('!^/(moderate|admin|members|archives)/(.*)_([^_]*)(/.*)?$!', $_SERVER['REQUEST_URI'], $matches);
  25
  26 if ($matches) {
  27
  28     $action = $matches[1];
  29     $mbox   = $matches[2];
  30     $fqdn   = strtolower($matches[3]);
  31     $sup    = $matches[4];
  32
  33     if ($fqdn == 'polytechnique.org') {
  34         http_redirect("https://www.polytechnique.org/lists/$action/$mbox$sup");
  35     }
  36
  37     $res = XDB::query("select diminutif from groupex.asso where mail_domain = {?}", $fqdn);
  38     if ($gpx = $res->fetchOneCell()) {
  39         http_redirect("http://www.polytechnique.net/$gpx/lists/$action/$mbox$sup");
  40     }
  41 }
  42 ?>
  43 <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
  44 <html>
  45   <head>
  46     <title>404 Not Found</title>
  47   </head>
  48   <body>
  49     <h1>Not Found</h1>
  50     The requested URL <?php echo $_SERVER['REQUEST_URI'] ?> was not found on this server.<p>
  51     <hr>
  52     <address>Apache Server at www.carva.org Port 80</address>
  53   </body>
  54 </html>
  55 <?php
  56 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
  57 ?>