I was not paying attention and today I ran out of program data. I am using the old perl script from last year (kept up to date from time to time).
Turns out the URLs changed a little bit and the formatting is also newish. Attached is a small patch to make it work again. -- Eyal Lebedinsky ([EMAIL PROTECTED]) <http://samba.org/eyal/>
--- /usr/bin/tv_grab_au-before-20050809 2005-08-09 19:46:49.000000000 +1000 +++ /usr/bin/tv_grab_au 2005-08-09 20:18:29.000000000 +1000 @@ -100,6 +100,9 @@ # - Add Tasmania (from a post on the list) # - whitespace cleanup # - change config to use region/service for location/source +# 9 Aug 2005 Eyal Lebedinsky <[EMAIL PROTECTED]> +# - new URLs +# - new format pasrins use strict; use Getopt::Long; @@ -425,7 +428,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; @@ -468,17 +471,20 @@ 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; - +#print "rowspan='$rowspan'\n"; + my $name = $link; - $name =~ s/.+target=new>(<P>|)//g; + $name =~ s/.+class=tv>(<P>|)//g; $name =~ s/<\/a>.+//g; - +#print "name='$name'\n"; + $link =~ s/.+pid=//g; - $link =~ s/".+//g; #" + $link =~ s/ .+//g; #" +#print "pid='$link'\n"; 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
