Changeset Navigation

Changeset 679

Timestamp:

05/05/06 14:51:07

Author:

miyagawa

Message:

make Rule::URLBL work with $args->{entry} so it can be used with SmartFeed/Fresh?::Rule

Files:

r469	r679
9	9	my $self = shift;
10	10
11		Plagger->context->error("~~plase dnbl~~")
12		unless $self->{dnsbl};
	11	Plagger->context->error("No dnsbl configuration")
	12	unless $self->{dnsbl};
13	13	}
14	14
…	…
16	16	my($self, $args) = @_;
17	17
18		my $feed = $args->{feed}
19		or Plagger->context->error("No feed object in this plugin phase");
	18	my $url;
	19	if ($args->{entry}) {
	20	$url = $args->{entry}->permalink;
	21	} elsif ($args->{feed}) {
	22	$url = $args->{feed}->url;
	23	} else {
	24	Plagger->context->error("No feed nor entry object in this plugin phase");
	25	}
20	26
21		my $url = $args->{feed}->url;
	27	return unless $url;
	28
22	29	my $res = Net::DNS::Resolver->new;
23	30	my $dnsbl = $self->{dnsbl};
…	…
29	36
30	37	for my $dns (@$dnsbl) {
31		Plagger->context->log(debug => "looking up $domain.$dns");
32		my $q = $res->search("$domain.$dns");
33		if ($q && $q->answer) {
34		~~Plagger->context->log(warn~~ => "$domain.$dns found.");
35		return 0;
36		}
	38	Plagger->context->log(debug => "looking up $domain.$dns");
	39	my $q = $res->search("$domain.$dns");
	40	if ($q && $q->answer) {
	41	Plagger->context->log(info => "$domain.$dns found.");
	42	return 0;
	43	}
37	44	}
38	45	return 1;