如何在 mod_perl 的 BEGIN 块中访问 Apache 服务器配置？

Question

我一直在尝试从使用 PerlSetEnv 切换到使用 自定义配置指令< /a>. 我的配置模块包含文档中的 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;
    }
}

...每个自定义指令子都会调用它。 然后我在我的 .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 传递给 get_config()，服务器保持活动状态，但警告仅打印出“1”。

我在某处读到，这是因为您无法在 BEGIN 块中获取与请求相关的任何内容，因为请求各不相同。 这有点有意义，除了使用 PerlOptions +GlobalRequest 我能够在 BEGIN 块中看到 $ENV ，那么为什么我看不到我的自己的指令，就像它们依赖于请求如何发生一样？ 特别令人困惑的是，如果我尝试将 Apache2::RequestUtil->request->per\_dir\_config() 传递给 get_config()，它会显示 全局 $r 对象不可用。如果在 BEGIN 块中是这样，我如何才能在 $ENV 处获取它？

Answer 1

尝试将您想要导入功能添加到其他模块，并在您通常放置BEGIN块的代码中使用此模块。 它应该工作相同。 也许有帮助。

Answer 2

部分原因是未正确使用转储。 这效果更好：

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

但是，它不会显示中出现的任何指令。 块。

不过，在我的具体情况下，我再想一想，我不需要这个功能； 那恰好是我把它们粘在的地方。