#!/usr/local/bin/perl
# version 1.1
# If the host+path are in matrix then the redirect is to a single location
# if just the host is in matrix then the redirect is to host+the request URI
require "./init";
$path = $ENV{'REQUEST_URI'};
$host = $ENV{'HTTP_HOST'};
$test = join('/', $host, $path);
$test =~ s/\/\//\//g;
$test =~ s/\/$//;
$| = 1;
$0 = "itured";
unless (@matrix{$test}){
$destURI = @matrix{$host};
$location = join("",$destURI,$path);
}
if (@matrix{$test}){
$destURI = "1";
$location = (…)
Forum général.hors-sujets Job d'étudiant
10
août
2010