From dce691d4d729adcee266fcc315391e6f3ed979e6 Mon Sep 17 00:00:00 2001
From: "Pierre Habouzit (MadCoder" <pierre.habouzit@m4x.org>
Date: Thu, 17 Feb 2005 20:52:34 +0000
Subject: [PATCH] the big redirection script

git-archimport-id: opensource@polytechnique.org--2005/platal--mainline--0.9--patch-481
---
 scripts/listes_redirect.php | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 scripts/listes_redirect.php

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");
+        }
+    }
+}
+?>
-- 
2.1.4