viewvc.cgi/pg-getfeed/getfeed.sql

create type blog as (feed text, title text, content text, pubdate timestamptz, link text);

create or replace function getfeed(text)
returns setof blog
language plperlu
as $$
        my ($uri) = @_;

        use XML::Feed;

        my $feed = XML::Feed->parse(URI->new($uri)) or die XML::Feed->errstr;

        for my $entry ($feed->entries) {
                return_next({
                        feed => $feed->title,
                        title => $entry->title,
                        content => $entry->content->body,
                        link => $entry->link,
                        pubdate => $entry->issued,
                });
        }

        return undef;
$$;

create view my_feeds as
select feed,title,substr(content,0,80),pubdate,link from getfeed('http://blog.rot13.org/index.xml')
union
select feed,title,substr(content,0,80),pubdate,link from getfeed('http://saturn.ffzg.hr/noauth/feed/workspace/rot13?category=Recent%20Changes;type=Atom')
;

-- if your terminal isn't iso-8859-2, change this!
set client_encoding  = 'iso-8859-2';

select *
from my_feeds
order by pubdate desc
limit 10;
1	create type blog as (feed text, title text, content text, pubdate timestamptz, link text);
2
3	create or replace function getfeed(text)
4	returns setof blog
5	language plperlu
6	as $$
7	my ($uri) = @_;
8
9	use XML::Feed;
10
11	my $feed = XML::Feed->parse(URI->new($uri)) or die XML::Feed->errstr;
12
13	for my $entry ($feed->entries) {
14	return_next({
15	feed => $feed->title,
16	title => $entry->title,
17	content => $entry->content->body,
18	link => $entry->link,
19	pubdate => $entry->issued,
20	});
21	}
22
23	return undef;
24	$$;
25
26	create view my_feeds as
27	select feed,title,substr(content,0,80),pubdate,link from getfeed('http://blog.rot13.org/index.xml')
28	union
29	select feed,title,substr(content,0,80),pubdate,link from getfeed('http://saturn.ffzg.hr/noauth/feed/workspace/rot13?category=Recent%20Changes;type=Atom')
30	;
31
32	-- if your terminal isn't iso-8859-2, change this!
33	set client_encoding = 'iso-8859-2';
34
35	select *
36	from my_feeds
37	order by pubdate desc
38	limit 10;