31 October 2004
This post may be outdated due to it was written on 2004. The links may be broken. The code may be not working anymore. Leave comments if needed.
OS: Win2000 SP4
Apache: C:\Apache2
Perl: C:\usr
使用的是Perl-5.8-win32-bin.exe.
Apache/2.0.50 (Win32) mod_perl/1.99_15-dev Perl/v5.8.4

先cmd, cpan Maypole
经过一系列的prerequisite的模块安装。一切都很顺利。
然后拷贝.cpan/build/Maypole-2.04/ex/BeerDB.pm to C:/usr/site/lib.
编辑conf/perl.conf, 在其后增加
# Maypole
Alias /beerdb/ "E:/Fayland/beerdb/"
<Location /beerdb>
  SetHandler perl-script
  PerlHandler BeerDB
</Location>
首先编辑BeerDB.pm, 更改它的数据库地址。
BeerDB->setup("dbi:mysql:beerdb","user","pass");
将C:\.cpan\build\Maypole-2.04\templates下的模板文件移到beerdb目录下。
其中有点特别的是maypole.css要移到和beerdb同级目录下。
参考使用 Maypole 构建 Web 应用程序增加了数据库Table结构。
访问http://localhost/beerdb/就大致完成操作。其他的改天继续研究。

TroubleShooting

  • Access denied for user: '@localhost' to database 'beerdb'?
    例如是mysql的话
    BeerDB->setup("dbi:mysql:beerdb");
    在其后增加user/pass.
    BeerDB->setup("dbi:mysql:beerdb","user","pass");
  • Can't locate object method "set_db" via package "BeerDB::Beer"?
    我在Win2000下使用mysql时出现这问题,经过Search发现是Class::DBI::mysql的问题,重装此模块总是出错。后来装了mysql4的最新版得以解决。
Refer



blog comments powered by Disqus