Changeset Navigation

Changeset 613

Timestamp:

04/17/06 21:27:16

Author:

miyagawa

Message:

deprecate *Permalink modules and autoload Filter::PermalinkNormalize?

Files:

r582	r613
3	3	use base qw( Plagger::Plugin );
4	4
5		sub register {
6		my($self, $context) = @_;
7		$context->register_hook(
8		$self,
9		'update.entry.fixup' => \&filter,
10		);
	5	sub init {
	6	my $self = shift;
	7	$self->SUPER::init(@_);
	8	Plagger->context->log(warn => $self->class_id . " is now deprecated. Use Filter::PermalinkNormalize");
	9	Plagger->context->autoload_plugin('Filter::PermalinkNormalize');
11	10	}
12	11
13		sub filter {
14		my($self, $context, $args) = @_;
15
16		if($args->{entry}->permalink =~ m\|^http://rss\.s2ch\.net/\|) {
17		my $permalink = $args->{entry}->permalink;
18		$permalink =~ s!rss\.s2ch\.net/test/\-/!!;
19		$permalink =~ s!(2ch\.net/)!\1test/read.cgi/!;
20		$args->{entry}->link($permalink);
21		$context->log(info => "Permalink rewritten to $permalink");
22		}
23		}
	12	sub register { }
24	13
25	14	1;
…	…
32	21
33	22	=head1 SYNOPSIS
	23
	24	B<THIS MODULE IS DEPRECATED. USE Filter::PermalinkNormalize INSTEAD>
34	25
35	26	- module: Filter::2chRSSPermalink

r420	r613
3	3	use base qw( Plagger::Plugin );
4	4
5		use URI;
6
7		sub register {
8		my($self, $context) = @_;
9		$context->register_hook(
10		$self,
11		'update.entry.fixup' => \&filter,
12		);
	5	sub init {
	6	my $self = shift;
	7	$self->SUPER::init(@_);
	8	Plagger->context->log(warn => $self->class_id . " is now deprecated. Use Filter::PermalinkNormalize");
	9	Plagger->context->autoload_plugin('Filter::PermalinkNormalize');
13	10	}
14	11
15		sub filter {
16		my($self, $context, $args) = @_;
17
18		my $entry = $args->{entry};
19		if ($entry->permalink =~ m!^http://www\.namaan\.net/rd\?!) {
20		my %param = URI->new( $entry->permalink )->query_form;
21		if ($param{url}) {
22		$entry->permalink($param{url});
23		$context->log(info => "Permalink rewritten to " . $param{url});
24		}
25		}
26		}
	12	sub register { }
27	13
28	14	1;
…	…
35	21
36	22	=head1 SYNOPSIS
	23
	24	B<THIS MODULE IS DEPRECATED. USE Filter::PermalinkNormalize INSTEAD>
37	25
38	26	- module: Filter::NamaanPermalink

r528	r613
3	3	use base qw( Plagger::Plugin );
4	4
5		use URI;
6
7		sub register {
8		my($self, $context) = @_;
9		$context->register_hook(
10		$self,
11		'update.entry.fixup' => \&filter,
12		);
	5	sub init {
	6	my $self = shift;
	7	$self->SUPER::init(@_);
	8	Plagger->context->log(warn => $self->class_id . " is now deprecated. Use Filter::PermalinkNormalize");
	9	Plagger->context->autoload_plugin('Filter::PermalinkNormalize');
13	10	}
14	11
15		sub filter {
16		my($self, $context, $args) = @_;
17
18		my $entry = $args->{entry};
19		my $permalink = $entry->permalink;
20		if ($permalink =~ s!^http://rd\.yahoo\.co\.jp/rss/l/blogsearch/search/\*!!) {
21		$entry->permalink($permalink);
22		$context->log(info => "Permalink rewritten to $permalink");
23		}
24		}
	12	sub register { }
25	13
26	14	1;
…	…
33	21
34	22	=head1 SYNOPSIS
	23
	24	B<THIS MODULE IS DEPRECATED. USE Filter::PermalinkNormalize INSTEAD>
35	25
36	26	- module: Filter::YahooBlogSearchPermalink