スパムコメントが増えつつあるので、対策としてCaptchaを導入した。
% cpan cpan > install Authen::Captcha
# Captcha - A simple plugin for commenting with CAPTCHA test. # # $Id: captcha.pl 266 2006-10-17 01:40:34Z ogawa $ # # This software is provided as-is. You may use it for commercial or # personal use. If you distribute it, please keep this notice intact. # # Copyright (c) 2006 Hirotaka Ogawa package MT::Plugin::Captcha; use lib qw(/var/www/home/elastic965/perl/lib); use strict; use MT;
#!/usr/bin/perl # # $Id: captcha_js.cgi 264 2006-10-07 16:23:10Z ogawa $ # use lib qw(/var/www/home/elastic965/perl/lib); use Authen::Captcha;
<script type="text/javascript" src="<$MTCaptchaJsURL$>"></script> <noscript><p>コメントを書き込むにはJavaScriptを有効にしてください。</p></noscript>
2008年5月19日
広告
広告