如何在mod_perl2下的startup.pl中学习DOCUMENT_ROOT？

Question

我想学习startup.pl中的DOCUMENT_ROOT，但我能做的最好的就是学习server_root：

use Apache2::ServerUtil ();
$server_root = Apache2::ServerUtil::server_root();

这是毫无用处的。我可以设置环境变量，

SetPerlEnv DOCUMENT_ROOT /path/to/www

但如果可能的话，我不喜欢额外的配置。

有没有办法通过其他方式获取DOCUMENT_ROOT？

Answer 1

请参阅 Apache2::Directive。例如，在我的开发系统上：

use Apache2::Directive ();
my $tree = Apache2::Directive::conftree();
my $vhost = $tree->lookup(VirtualHost => 'unur.localdomain:8080');

File::Slurp::write_file "C:/bzzzt.txt", [ $vhost->{DocumentRoot}, "\n" ];

在我发现之后创建了一个文件 C:/bzzzt.txt ，其内容为 "E:/srv/unur/deploy/htdocs"我必须使用

<VirtualHost unur.localdomain:8080>
...
</VirtualHost>

<VirtualHost qtau.localdomain:8080>
...
</VirtualHost>

来指定我的虚拟主机。否则，每个 部分都会覆盖前一个部分。

这很烦人。我本以为每个 VirtualHost 条目都会由所使用的 ServerName 键入。

至于是否有更简单的方法，如果您想在 startup.pl 中执行此操作，恐怕没有。但是，我不确定是否有必要在 startup.pl 中执行此操作。您还可以在处理请求时找到文档根目录 Apache2::RequestUtil::document_root 。

如果您正在运行注册表脚本，并且想要更改为 DOCUMENT_ROOT，那么您应该能够将：添加

chdir $ENV{DOCUMENT_ROOT} 
    or die "Cannot chdir to '$ENV{DOCUMENT_ROOT}': $!";

到脚本中，而不必与 startup.pl 和处理程序等混在一起。