[mythtv-users] Immir tv_grab_au 1.57

Eyal Lebedinsky eyal at eyal.emu.id.au
Sun Jun 18 12:29:12 UTC 2006


Michael Smith wrote:
>>Thanks for all the success/failure reports and comments and suggestions. 
>>I've added a few quick fixes. Testing right now. Included the W channel 
>>fix. Strip non-printables from pages all the time --- hopefully that'll 
>>fix the stupid errors in their data. Still a memory leak somewhere...
> 
> Screwed up. Forgot to strip characters *after* deobfuscation. Script 
> updated (without version change: naughty me!)

Assuming the latest 1.57 is really there (I checked just now to be sure),
it is not running clean for me. As suggested on the list, I had to add
two more lines:

  $title1 =~ s/\s+$//;  # EL: avoid 'title element' trailing whitespace
  $title2 =~ s/^\s*-\s*//;
  $title2 =~ s/\s+$//;  # EL: avoid 'sub-title element' trailing whitespace

Maybe there is a more generic place for removing trailing whitespace, but
this stopped two kinds of errors:

sub-title element: stripping trailing whitespace from value 'Moonlight ' for sub-title at /usr/share/perl5/XMLTV.pm line 1725.
bad data inside programme element, not writing

title element: stripping trailing whitespace from value 'La y Luc ' for title at /usr/share/perl5/XMLTV.pm line 1725.
bad data inside programme element, not writing

I now see only one failure:

tv_grab_au 1.57: grabbing 7 days into /tmp/mythdDLLXs
Warning: parsed data incomplete for pid=14985726, url=http://tvguide.ninemsn.com.au/cu/default.asp?pid=14985726
td[0] = <12:00 am>
td[1] = <>
td[2] = <12:00 am>
td[3] = <>
td[4] = <( mins)>
td[5] = <Genre:>
td[6] = <>
td[7] = <>
td[8] = <>
td[9] = <>
td[10] = <Discuss this program>
td[11] = <( mins)>
td[12] = <Genre:>
td[13] = <>
td[14] = <>
td[15] = <>
td[16] = <>
td[17] = <Discuss this program>
body: q{HTML::Element=HASH(0xce0d744)->as_text}
tv_grab_au: downloads = 7 guide pages, 1367 detail pages
1 failed detail pages, 0 stop times adjusted
tv_grab_au: finished in 1178 seconds

-- 
Eyal Lebedinsky (eyal at eyal.emu.id.au) <http://samba.org/eyal/>
	attach .zip as .dat


More information about the mythtv-users mailing list