Changeset Navigation

Changeset 788

Timestamp:

05/19/06 19:26:24

Author:

miyagawa

Message:

CustomFeed?::Simple: dedupe links by URL
CustomFeed?::Simple: don't add links if trimmed text is IMG without alt
Filter::TruePermalink?: Added youtube.yaml from http://subtech.g.hatena.ne.jp/otsune/20060419/TruePermalinkyoutube
Filter::EntryFullText?: Added youtube.yaml which replaces CustomFeed?::YouTube?

Files:

r737	r788
50	50	my $re = $args->{match};
51	51
	52	my %seen;
52	53	my $parser = HTML::TokeParser->new(\$content);
53	54	while (my $token = $parser->get_tag('a')) {
…	…
55	56
56	57	my $text = $parser->get_trimmed_text('/a');
	58	next if !$text \|\| $text eq '[IMG]';
	59
	60	my $url = URI->new_abs($token->[1]->{href}, $url);
	61	next if $seen{$url->as_string}++;
	62
57	63	my $entry = Plagger::Entry->new;
58	64	$entry->title($text);
59		$entry->link( ~~URI->new_abs($token->[1]->{href}, $url)~~ );
	65	$entry->link($url);
60	66	$feed->add_entry($entry);
61	67
62		$context->log(debug => "Add $token->[1]->{href}");
	68	$context->log(debug => "Add $token->[1]->{href} ($text)");
63	69	}
64	70

r689	r788
178	178	# decode as UTF-8
179	179	for my $key ( qw(extract extract_date_format) ) {
	180	next unless defined $data->{$key};
180	181	if (ref $data->{$key} && ref $data->{$key} eq 'ARRAY') {
181	182	$data->{$key} = [ map decode("UTF-8", $_), @{$data->{$key}} ];
…	…
227	228	$format = [ $format ] unless ref $format;
228	229	$data->{date} = (map { Plagger::Date->strptime($_, $data->{date}) } @$format)[0];
	230	if ($data->{date} && $self->{extract_date_timezone}) {
	231	$data->{date}->set_time_zone($self->{extract_date_timezone});
	232	}
229	233	} else {
230	234	$data->{date} = Plagger::Date->parse_dwim($data->{date});

r559	r788
9	9	- %Y年%m月%d日%H時%M分
10	10	- %Y/%m/%d %H:%M
11
	11	extract_date_timezone: Asia/Tokyo