Changeset Navigation

Changeset 21

Timestamp:

02/10/05 20:01:52

Author:

brad

Message:

Added option to allow through comments without any URLs.

Files:

r20	r21
31	31	use constant IGNORE => undef;
32	32
33
34	33	sub instance {
35	34	$plugin;
…	…
37	36
38	37	1;
	38
39	39	__DATA__
40	40	sub config_params {
41	41	qw( comment_filter ping_filter
42		allow_auth
	42	allow_auth allow_urlless
43	43	ipbl_enabled ipbl_moderate ipbl_service
44	44	domainbl_enabled domainbl_moderate domainbl_service
…	…
84	84	$data->{ping_filter} = 1 unless exists $data->{ping_filter};
85	85	$data->{allow_auth} = 0 unless exists $data->{allow_auth};
	86	$data->{allow_urlless} = 0 unless exists $data->{allow_urlless};
86	87
87	88	$data->{ipbl_enabled} = 1 unless exists $data->{ipbl_enabled};
…	…
122	123	return 1 unless $data->{comment_filter};
123	124
	125	$data->{__type} = 'comment';
	126
124	127	# comment
125		if ($data->{domainbl_enabled}) {
126		@urls = extract_urls($obj->text);
127		push @urls, extract_urls($obj->url) if $obj->url;
128		}
129		$data->{__type} = 'comment';
	128	@urls = extract_urls($obj->text);
	129	push @urls, extract_urls($obj->url) if $obj->url;
	130
	131	return 1 if scalar(@urls) == 0 && $data->{allow_urlless};
130	132
131	133	if ($data->{allow_auth}) {
…	…
144	146
145	147	$data->{__type} = 'Trackback ping';
	148
146	149	if ($data->{domainbl_enabled}) {
147	150	@urls = extract_urls($obj->excerpt);

r17	r21
31	31	<input type="checkbox" name="comment_filter" value="1" <TMPL_IF NAME=COMMENT_FILTER>checked="checked"</TMPL_IF> /> Filter inbound comments<br />
32	32	<input type="checkbox" name="ping_filter" value="1" <TMPL_IF NAME=PING_FILTER>checked="checked"</TMPL_IF> /> Filter inbound Trackback pings<br />
33		<input type="checkbox" name="allow_auth" value="1" <TMPL_IF NAME=ALLOW_AUTH>checked="checked"</TMPL_IF> /> Don't filter comments from valid TypeKey identities.
	33	<input type="checkbox" name="allow_auth" value="1" <TMPL_IF NAME=ALLOW_AUTH>checked="checked"</TMPL_IF> /> Don't filter comments from valid TypeKey identities.<br />
	34	<input type="checkbox" name="allow_urlless" value="1" <TMPL_IF NAME=ALLOW_URLLESS>checked="checked"</TMPL_IF> /> Only filter comments with hyperlinks (approves comments with no discernable URL).
34	35	</p>
35	36

r19	r21
105	105	* Added a configuration screen.
106	106	* Removed requirement of Net::DNS package.
	107	* Added option granting a free pass for authenticated commenters.
	108	* Added option granting a free pass for comments without any URLs.
107	109
108	110	11/5/2004 - 1.1 release