用Perl编写Apache模块续二

banjina

　　代码地址：https://code.csdn.net/x3dcn/svnauth
　　以禅道项目管理系统的数据库结构为标准，实现了可用的svn authz验证功能。
　　以用户名、密码、项目的acl开发程度open、private、custom三种关系进行相应的匹配，实现动态的验证。
　　由于不懂perl，所以只是简单的修改，完成了相应功能。
　　
　　做完后，灵机一动，既然有mod_perl，是否mod_python也可以，一查modpython的官网api，果然有相关接口，也就是说理论上可以用python来实现同样的逻辑。但实现原理与mod_perl有点不同，mod_perl是支持直接编写apache模块，相关配置也是被放到apache的conf文件中，但mod_python或者其他不是以mod方式执行的语言则需以代理层的方式实现类似功能，以前也看过有人用go写过一个代理。
　　
　　开发时，是以xampp 1.7.2版本为基础进行测试，集成了perl的5.10版本

• 加载perl模块
  

LoadFile "D:/PHP/xampp/perl/bin/perl510.dll"
LoadModule perl_module modules/mod_perl.so

• 配置svn
  

PerlLoadModule Apache::Authn::ZentaoPMS
<Location /svn/>
#ErrorDocument 404 default
DAV svn
SVNParentPath "D:\PHP\xampp\SvnRepo\svn"
SVNListParentPath on
Require valid-user
AuthName "ZentaoPMS"
AuthType Basic
#SVNPathAuthz off
PerlAccessHandler Apache::Authn::ZentaoPMS::access_handler
PerlAuthenHandler Apache::Authn::ZentaoPMS::authen_handler
## for mysql
RedmineDSN "DBI:mysql:database=usvn;host=127.0.0.1"
RedmineDbUser "root"
RedmineDbPass ""

</Location>