Hi tv_grab_au users, I've consolidated all changes posted on this list in this version. It was a big pain and is hopefully correct.
I've also included a fixes.diff of the simple change to get older versions to work. To use type 'patch tv_grab_au < fixes.diff' Maybe its time to changing to Michael Smith's version. But I and most people are reluctant (maybe too lazy) to change our settings in mythtv. There is a python xmltv site at http://pytvgrab.sf.net and I'm a developer if your interested David Collett. Paul --
tv_grab_au
Description: Perl program
--- tv_grab_au.25.pl 2005-08-04 21:41:19.940211496 +1000 +++ tv_grab_au.26.pl 2005-08-04 21:41:39.681210408 +1000 @@ -214,7 +214,7 @@ $ua->conn_cache($conn_cache); my $guide_url = "http://tvguide.ninemsn.com.au/guide/";; -my $details_url = "http://tvguide.ninemsn.com.au/closeup/default.asp?pid=";; +my $details_url = "http://tvguide.ninemsn.com.au/cu/default.asp?pid=";; my $XMLTV_prefix = $source . "." . $location . "."; my $XMLTV_suffix = "." . $XMLTVID_URL; @@ -401,17 +401,17 @@ my @names; foreach my $line (@day_lines) { foreach my $link (split /\n|tr|TR|TD|tr/, $line ) { - if ($link =~ /closeup\/default.asp/) { + if ($link =~ /cu\/default.asp/) { my $rowspan = $link; $rowspan =~ s/.+rowspan=//g; $rowspan =~ s/ .+//g; my $name = $link; - $name =~ s/.+target=new>(<P>|)//g; + $name =~ s/.+target=_new class=tv>//g; $name =~ s/<\/a>.+//g; $link =~ s/.+pid=//g; - $link =~ s/".+//g; #" + $link =~ s/ .+//g; if (($rowspan =~ /\d+/) and ($link =~ /\d\d+/)) { push @pids, $link; push @rowspans, $rowspan;
_______________________________________________ mythtv-users mailing list [email protected] http://mythtv.org/cgi-bin/mailman/listinfo/mythtv-users
