Динамические поддомены, mod_python и trac

Я собираюсь запустить несколько поддоменов, в конечном итоге слишком много, чтобы у каждого были свои собственные файлы конфигурации. У меня vhosts работают так, как я хочу, поэтому каждый поддомен имеет свою собственную папку, например / web / test, которая будет обслуживать веб-страницы для этого поддомена. Я хочу, чтобы у каждого поддомена был свой собственный проект SVN и trac, например http: //test.mastersiege.com/trac, проблема в том, что вы не можете использовать переменные в apache.

<Location /trac>
   SetHandler mod_python
   PythonInterpreter main_interpreter
   PythonHandler trac.web.modpython_frontend 
   PythonOption TracEnv /var/trac/$1
   PythonOption TracUriRoot /trac
</Location>

где $ 1 = субдомен. и я не могу связать папку trac по символу с домашней папкой поддоменов, а затем использовать корень документа vhost_alias как TracEnv. Я попытался написать сценарий Perl в файлах конфигурации apache, который анализирует поддомен с URL-адреса, как и Динамическое использование URL-адреса в контейнере Vhost с mod_perl но это не сработало

            use Apache2::ServerRec () ;
            use Apache2::ServerUtil ();
            use Apache2::RequestRec ();
            use Apache2::RequestUtil ();
            use Apache2::Const qw/OK DECLINED/;
            my $s = Apache2::ServerUtil->server;

            $s->push_handlers(PerlHeaderParserHandler => sub { my($r) = @_;
            if ( $r->hostname =~ m/(.*)\.([^.]+\.\w+)$/ ) {
            my($subdomain,$domain) = ($1,$2);

            my($TracPath) = "TracEnv /srv/trac/"+$subdomain;
            my($TracUri) = "TracUriRoot /testTrac";
            $Location{"/testTrac/"} = {
            SetHandler => "mod_python",
            PythonInterpreter => "main_interpreter",
            PythonHandler => "trac.web.modpython_frontend",
            PythonOption => $TracPath,
            PythonOption => $TracUri
            };

            if ( $@ ) { warn $@ }

            return OK;

            } else {
            return DECLINED;
            }
            });
    </Perl>

Это мой первый perl-скрипт, поэтому я не уверен ... Можно использовать cgi для trac, который решит проблему, но он примерно в 100 раз медленнее, чем mod_python