2

我正在为 Apache 中的各种登录相关功能编写一系列相关的 mod_perl 处理程序，所以我的 Apache 配置文件看起来像这样（例如）

PerlAccessHandler MyApache::MyAccess    
PerlAuthenHandler MyApache::MyAuthen
PerlAuthzHandler MyApache::MyAuthz

每个模块 ( MyAccess, MyAuthen, MyAuthz) 定义了一个

sub handler() {}

它mod_perl在请求处理的相关点调用。

我想知道的是，是否有一种方法可以用一个 Perl 模块而不是三个来做到这一点（安装一个模块而不是 3 个模块更整洁，用户工作量也更少）？

有没有办法定义处理程序方法的名称，也许。或者有没有办法从handler()代码中检测我应该做哪种处理？

4

2 回答 2

5

从mod_perl 2.0 文档中可以看出，您可以使用“方法”语法来执行您想要的操作（我尚未对此进行测试）：

PerlAccessHandler MyApache::MyLoginModule->access_handler
PerlAuthenHandler  MyApache::MyLoginModule->authen_handler
PerlAuthzHandler MyApache::MyLoginModule->authz_handler

MyApache::MyLoginModule我相信这会导致 mod_perl 在你的类上以静态方式调用每个命名方法。

handler如果您愿意，还可以创建一个在调用方法时使用的对象：

<Perl>
  use MyApache::MyLoginModule;
  $MyApache::MyLoginModule::access = MyApache::MyLoginModule->new(phase => 'access');
  $MyApache::MyLoginModule::authen = MyApache::MyLoginModule->new(phase => 'authen');
  $MyApache::MyLoginModule::authz = MyApache::MyLoginModule->new(phase => 'authz');
</Perl>

PerlAccessHandler $MyApache::MyLoginModule::access->handler
PerlAuthenHandler $MyApache::MyLoginModule::authen->handler
PerlAuthzHandler $MyApache::MyLoginModule::authz->handler

这种方法将允许您拥有一个handler方法，该方法可以根据创建对象时设置的对象属性具有不同的行为。

免责声明：自从我使用 mod_perl 配置的这一部分以来已经有一段时间了，所以您的结果可能会有所不同！

于 2009-02-12T13:40:26.167 回答
1

看起来一种可能性可能是使用push_handlers()调用并在代码中而不是在 apache conf 文件中设置处理程序

见这里：http ://tinyurl.com/bwdeew

于 2009-02-12T06:49:06.810 回答