http://efilmcritic.com/fo.rdf looks to be the culprit. They don't use a description element that the script is looking for. Here's my "I just woke up and don't feel like testing it" hack. Looks like it should work.. #!/usr/bin/perl -w use strict; use LWP::Simple; use XML::RSS; use DBI; use HTML::Entities (); my $dbh = DBI->connect('dbi:mysql:mythconverg','mythtv','mythtv'); my $sql = "SELECT url FROM newssites ORDER BY updated DESC"; my $sth = $dbh->prepare( $sql ); $sth->execute || die ('Could not execute SQL statement: $sql'); my $sNews; while ( my $row = $sth->fetchrow ) { my $rss = new XML::RSS; $rss->parse( get( $row ) ); foreach my $item (@{$rss->{'items'}}) { $sNews .= "$item->{'title'}" if ( $item->{'title'} ); $sNews .= " - $item->{'description'}" if ( $item->{'description'} ); $sNews .= " " if ( $item->{'title'} && $item->{'description'} ); } } $sNews = HTML::Entities::encode($sNews); `mythtvosd --template=scroller scroll_text="$sNews"`; On Dec 22, 2005, at 11:47 PM, Phill Edwards wrote:
|
_______________________________________________ mythtv-users mailing list mythtv-users@mythtv.org http://mythtv.org/cgi-bin/mailman/listinfo/mythtv-users