Changeset Navigation

Changeset 1775

Timestamp:

10/17/06 23:06:33

Author:

mizzy

Message:

CustomFeed?::YouTube?: encode query if no_decode_utf8 is not set and a little refactoring.

Files:

r1734	r1775
6	6	use Plagger::Enclosure;
7	7	use Plagger::UserAgent;
	8	use URI;
	9	use Encode;
8	10
9	11	sub register {
…	…
25	27	my($self, $context, $args) = @_;
26	28
27		my $q = $self->conf->{query};
28		$q =~ s/\s/\+/g;
	29	my $url = URI->new('http://youtube.com/results');
	30	my $file = $self->cache->path_to('youtube_search_result.html');
	31	my $query = $self->conf->{query};
29	32
30		~~my $file = $self->cache->path_to('youtube_search_result.html')~~;
	33	$query = encode('UTF-8', $query) unless $context->conf->{no_decode_utf8};
31	34
32		$context->log( info => 'Getting YouTube search results for ' . $~~self->conf->{query}~~ );
	35	$context->log( info => 'Getting YouTube search results for ' . $query );
33	36
34	37	my $ua = Plagger::UserAgent->new;
…	…
36	39	my $feed = Plagger::Feed->new;
37	40	$feed->type('youtubesearch');
38		$feed->title(~~'YouTube Search - ' . $self->conf->{query}~~);
	41	$feed->title("YouTube Search - $query");
39	42
40	43	my $page = $self->conf->{page} \|\| 1;
41	44	my $sort = $self->conf->{sort} \|\| 'video_date_uploaded';
	45
42	46	for ( 1 .. $page ){
43		my $res = $ua->mirror("http://youtube.com/results?search_type=search_videos&search_query=$q&search_sort=$sort&search_category=0&page=$_" => $file);
	47	$url->query_form(
	48	search_type => 'search_videos',
	49	search_query => $query,
	50	search_sort => $sort,
	51	search_category => 0,
	52	page => $_,
	53	);
	54
	55	my $res = $ua->mirror( $url->as_string => $file );
44	56
45	57	if($res->is_error){