The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<VirtualHost 127.0.0.1>
    ServerName cpanblog
    ServerAlias blog.cpantesters.org
    ServerAdmin barbie@missbarbell.co.uk
    DocumentRoot /var/www/cpanblog/html

    RewriteEngine on
    RewriteRule ^/?$                            /cgi-bin/pages.cgi?act=home-main [PT]
    RewriteRule ^/index.html?$                  /cgi-bin/pages.cgi?act=home-main [PT]

    RewriteRule ^/meta/(\w+)$                   /cgi-bin/pages.cgi?act=diary-meta&data=$1 [PT]
    RewriteRule ^/volume/(\w+)$                 /cgi-bin/pages.cgi?act=diary-list&volume=$1 [PT]
    RewriteRule ^/page/(\w+)(.html?)?$          /cgi-bin/pages.cgi?act=home-$1 [PT]
    RewriteRule ^/diary/(\d+)$                  /cgi-bin/pages.cgi?act=diary-item&articleid=$1 [PT]
    RewriteRule ^/diary/(\w+)$                  /cgi-bin/pages.cgi?act=diary-$1 [PT]
    RewriteRule ^/article/(\w+)(.html?)?$       /cgi-bin/pages.cgi?act=arts-item&name=$1 [PT]
    RewriteRule ^/event/(\d+)(.html?)?$         /cgi-bin/pages.cgi?act=event-item&eventid=$1 [PT]
    RewriteRule ^/event/(\w+)$                  /cgi-bin/pages.cgi?act=event-$1 [PT]
    RewriteRule ^/user/(\d+)(.html)?$		/cgi-bin/pages.cgi?act=user-item&userid=$1 [PT]
    RewriteRule ^/(\w+)/(\d+)(.html?)?$         /cgi-bin/pages.cgi?act=$1-item&id=$2 [PT]
    RewriteRule ^/(\w+)/(\w+)(.html?)?$         /cgi-bin/pages.cgi?act=$1-$2 [PT]

    RewriteRule ^/cgi-bin/pages.cgi$            /cgi-bin/pages.cgi?%{QUERY_STRING} [PT]
    RewriteRule ^/cgi-bin/(.*)$                 /cgi-bin/pages.cgi?act=error-badcmd [PT]

    ScriptAlias /cgi-bin/ /var/www/cpanblog/cgi-bin/
    Options +ExecCGI

    ErrorLog /var/www/logs/cpanblog-error.log
    CustomLog /var/www/logs/cpanblog-access.log common
</VirtualHost>