用Perl编写Apache模块续二 – SVN动态鉴权实现SVNAuth 禅道版

代码地址：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版本

1. 加载perl模块

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

1. 配置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>