Updated Syndicated Content to use new improved RSS feed reader.

This commit is contained in:
JT Smith 2003-04-10 03:04:09 +00:00
parent 40927d91aa
commit c53feaf14f
2 changed files with 327 additions and 326 deletions

View file

@ -86,8 +86,8 @@ sub www_view {
unless (defined $rssFile) {
$rssFile = $cache->setByHTTP($_[0]->get("rssUrl"),3600);
}
$rssFile =~ s#(<title>)(.*?)(</title>)#$1.encode_entities($2).$3#ges;
eval{parseXML(\%rss, \$rssFile)};
$rssFile =~ s#(<title>)(.*?)(</title>)#$1.encode_entities(decode_entities($2)).$3#ges;
eval{parseRSS(\%rss, \$rssFile)};
if ($@) {
WebGUI::ErrorHandler::warn($_[0]->get("rssUrl")." ".$@);
}
@ -96,7 +96,7 @@ sub www_view {
$var{"channel.link"} = $rss{link};
$var{"channel.description"} = $rss{description};
my @items;
foreach my $item (@{$rss{items}}) {
foreach my $item (@{$rss{item}}) {
push (@items,{
link=>$item->{link},
title=>$item->{title},