Как я могу получить доступ к конфигурации сервера Apache в блоке BEGIN в mod_perl?

StackOverflow https://stackoverflow.com/questions/462824

Вопрос

Я пытался перейти от использования PerlSetEnv к использованию пользовательского директивы конфигурации . У меня есть модуль конфигурации с копией set_val из документов: 

sub set_val
{
    local our ($key, $self, $parms, $arg) = @_;
    $self->{$key} = $arg;
    unless ($parms->path)
    {
        local our $srv_cfg = Apache2::Module::get_config($self, $parms->server);
        $srv_cfg->{$key} = $arg;
    }
}

... который вызывается каждой пользовательской директивой sub. Тогда у меня есть в моем .conf: 

PerlLoadModule MyModule::ServerConfig
MyCustomDirective 'hello'

Это прекрасно работает, так как httpd -t соответствует синтаксису файла. Проблема в том, что я не могу получить значение из файла конфигурации из блока BEGIN, что мне нужно сделать.

Я пытался возиться со всеми видами вещей: 

BEGIN
{
    use Apache2::CmdParms ();
#   use Apache2::Directive ();
    use Apache2::Module ();
#   use Apache2::ServerUtil ();
#   use Apache2::RequestUtil ();

    use Data::Dump;
    warn ddx(Apache2::Module::get_config('MyModule::ServerConfig', Apache2::CmdParms->server));
#   warn ddx(Apache2::Directive->as_hash);
#   warn Apache2::ServerUtil->dir_config('MyCustomDirective);
#   warn Apache2::CmdParms->server->server_hostname();
}

... но безрезультатно. Большинство моих усилий (например, попытки доступа к CmdParms->server) приводят к Parent: child process exited with status 3221225477 -- Restarting и автоматическому перезапуску Apache, как он говорит. Если я пройду ServerUtil->server to get_config(), сервер останется в живых, но в предупреждении будет напечатано только «1».

Я где-то читал, что это потому, что вы не можете получить что-либо связанное с запросом в блоке BEGIN, потому что запросы различаются. Это имеет смысл, за исключением того, что с PerlOptions + GlobalRequest я смог видеть $ENV внутри блока Apache2::RequestUtil->request->per\_dir\_config(), так почему бы мне не увидеть мои собственные директивы, настолько же зависимые, насколько они зависят от того, как запрос происходит? Особенно сбивает с толку то, что если я пытаюсь передать get_config() в Global $r object is not available., он говорит <=> Если это правда в <=> блоке, как я могу получить <=>?

Это было полезно?

Решение 2

Частично, дамп используется неправильно. Это работает лучше: 

use Data::Dump qw(pp);
warn pp(Apache2::Module::get_config('MyModule::ServerConfig', Apache2::ServerUtil->server));

Однако, он не показывает никаких директив, которые появляются в < Directory > блоки.

В моем конкретном случае, если подумать, мне не нужны эти функции; это как раз то, где я их застрял.

Другие советы

Попробуйте добавить то, что вы хотите import, для работы с другим модулем и use этот модуль в коде, где вы обычно ставите BEGIN блок. Это должно работать так же. Может быть, это помогает.

Лицензировано под: CC-BY-SA с атрибуция
Не связан с StackOverflow
scroll top