From: Pierre Habouzit (MadCoder <pierre.habouzit@m4x.org>
Date: Thu, 17 Feb 2005 20:52:34 +0000 (+0000)
Subject: the big redirection script
X-Git-Tag: xorg/old~279
X-Git-Url: http://git.polytechnique.org/?a=commitdiff_plain;h=dce691d4d729adcee266fcc315391e6f3ed979e6;p=platal.git

the big redirection script

git-archimport-id: opensource@polytechnique.org--2005/platal--mainline--0.9--patch-481
---

diff --git a/scripts/listes_redirect.php b/scripts/listes_redirect.php
new file mode 100644
index 0000000..5758af8
--- /dev/null
+++ b/scripts/listes_redirect.php
@@ -0,0 +1,20 @@
+<?php
+preg_match("/^\/(moderate|admin|members)\/(.*)_([^_]*)$/", $_SERVER["REQUEST_URI"], $matches);
+if (empty($matches)) {
+    exit();
+} else {
+    $action = $matches[1];
+    $mbox   = $matches[2];
+    $fqdn   = strtolower($matches[3]);
+    if ($action == 'members') { $action = 'membres'; }
+    if ($fqdn == 'polytechnique.org') {
+        header("Location: https://www.polytechnique.org/listes/$action?liste=$mbox");
+    } else {
+        require("../include/xorg.inc.php");
+        $res = $globals->xdb->query("select diminutif from groupex.asso where mail_domain = {?}", $fqdn);
+        if ($gpx = $res->fetchOneCell()) {
+            header("Location: http://www.polytechnique.net/$gpx/listes-$action?liste=$mbox");
+        }
+    }
+}
+?>