On Dec 21, 2005, at 4:07 AM, Phill Edwards wrote: You inspired me. I just wrote this quick script to display my MythNews headlines. Anyone know if it's possible to trigger an external script while watching TV? I set it to run every hour, but I'd much prefer it to run when I hit a button on my remote and feel like being depressed.
Use/modify it if you like.
#!/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'} - $item-> {'description'} "; } }
$sNews = HTML::Entities::encode($sNews); `mythtvosd --template=scroller scroll_text="$sNews"`;
Thanks Brad. I tried it but when I do a test run from the command line I get these errors:
Yeah, sorry about that. I wasn't handling some HTML entities that the shell doesn't like. Apply the mod that Graeme Hilton suggested earlier in the thread and you should be all set. Look at my quoted text above for where the lines go. |
_______________________________________________
mythtv-users mailing list
[email protected]
http://mythtv.org/cgi-bin/mailman/listinfo/mythtv-users
