projects
/
platal.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Retrieve dead redirections thanks to inactive redirections (Closes #680).
[platal.git]
/
htdocs
/
listes_redirect.php
diff --git
a/htdocs/listes_redirect.php
b/htdocs/listes_redirect.php
index
0828d69
..
29ad13f
100644
(file)
--- a/
htdocs/listes_redirect.php
+++ b/
htdocs/listes_redirect.php
@@
-1,6
+1,6
@@
<?php
/***************************************************************************
<?php
/***************************************************************************
- * Copyright (C) 2003-200
6
Polytechnique.org *
+ * Copyright (C) 2003-200
9
Polytechnique.org *
* http://opensource.polytechnique.org/ *
* *
* This program is free software; you can redistribute it and/or modify *
* http://opensource.polytechnique.org/ *
* *
* This program is free software; you can redistribute it and/or modify *
@@
-20,23
+20,24
@@
***************************************************************************/
require_once dirname(__FILE__).'/../include/xorg.inc.php';
***************************************************************************/
require_once dirname(__FILE__).'/../include/xorg.inc.php';
-
require_once dirname(__FILE__).'/../classes/XDB.php'
;
+
$platal = new Xorg()
;
-preg_match('
/^\/(moderate|admin|members)\/(.*)_([^_]*)$/
', $_SERVER['REQUEST_URI'], $matches);
+preg_match('
!^/(moderate|admin|members|archives)/(.*)_([^_]*)(/.*)?$!
', $_SERVER['REQUEST_URI'], $matches);
if ($matches) {
$action = $matches[1];
$mbox = $matches[2];
$fqdn = strtolower($matches[3]);
if ($matches) {
$action = $matches[1];
$mbox = $matches[2];
$fqdn = strtolower($matches[3]);
+ $sup = @$matches[4];
if ($fqdn == 'polytechnique.org') {
if ($fqdn == 'polytechnique.org') {
- http_redirect("https://www.polytechnique.org/lists/$action/$mbox");
+ http_redirect("https://www.polytechnique.org/lists/$action/$mbox
$sup
");
}
$res = XDB::query("select diminutif from groupex.asso where mail_domain = {?}", $fqdn);
if ($gpx = $res->fetchOneCell()) {
}
$res = XDB::query("select diminutif from groupex.asso where mail_domain = {?}", $fqdn);
if ($gpx = $res->fetchOneCell()) {
- http_redirect("http://www.polytechnique.net/$gpx/lists/$action/$mbox");
+ http_redirect("http://www.polytechnique.net/$gpx/lists/$action/$mbox
$sup
");
}
}
?>
}
}
?>
@@
-52,3
+53,6
@@
if ($matches) {
<address>Apache Server at www.carva.org Port 80</address>
</body>
</html>
<address>Apache Server at www.carva.org Port 80</address>
</body>
</html>
+<?php
+// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
+?>