«

Fighting Comment Spam Without MT-Blacklist

<p> # Copyright 2001-2004 Six Apart. This code cannot be redistributed without<br /> # permission from www.movabletype.org.<br /> #<br /> # $Id: mt-comments.cgi,v 1.35 2004/05/17 19:51:25 ezra Exp $<br /> use strict; </p> <p> use CGI;<br /> my $cgi = new CGI;<br /> my $commentText = $cgi->param(&#8216;text&#8217;); </p> <p> if ($commentText =~ m/http:/i)<br /> {<br /> print &#8220;Content-Type: text/html;\n&#8221;;<br /> print &#8220;Status: 404 Not Found\n&#8221;;<br /> print &#8220;\n&#8221;;<br /> }<br /> else<br /> {<br /> my($MT_DIR);<br /> BEGIN {<br /> if ($0 =~ m!…

»