xmltv/grab/uk_tvguide tv_grab_uk_tvguide,1.15,1.16

Nick Morrott <[email protected]> Mon, 29 Jun 2015 16:38:12 +0000
Newsgroups gmane.comp.tv.xmltv.cvs
Message-ID <[email protected]>
Update of /cvsroot/xmltv/xmltv/grab/uk_tvguide
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv4387/grab/uk_tvguide

Modified Files:
	tv_grab_uk_tvguide 
Log Message:
Update for changes to decoding support in get_nice_tree

Index: tv_grab_uk_tvguide
===================================================================
RCS file: /cvsroot/xmltv/xmltv/grab/uk_tvguide/tv_grab_uk_tvguide,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** tv_grab_uk_tvguide	24 Dec 2014 10:32:55 -0000	1.15
--- tv_grab_uk_tvguide	29 Jun 2015 16:38:09 -0000	1.16
***************
*** 200,204 ****
  				
  				# Fetch the page
! 				my $tree = XMLTV::Get_nice::get_nice_tree($url, \&utf8);
  				# $tree->dump; exit;
  
--- 200,204 ----
  				
  				# Fetch the page
! 				my $tree = XMLTV::Get_nice::get_nice_tree($url);
  				# $tree->dump; exit;
  
***************
*** 264,268 ****
  
  							# Fetch the page
! 							my $treedetail = XMLTV::Get_nice::get_nice_tree($url, \&utf8);
  							
  							my $showdetail = $treedetail->look_down('_tag' => 'div', 'id' => 'content-engage');						
--- 264,268 ----
  
  							# Fetch the page
! 							my $treedetail = XMLTV::Get_nice::get_nice_tree($url);
  							
  							my $showdetail = $treedetail->look_down('_tag' => 'div', 'id' => 'content-engage');						
***************
*** 727,731 ****
  
    # Get the page containing the list of channels 
!   my $tree = XMLTV::Get_nice::get_nice_tree($channel_list, \&utf8);
  	#		$tree->dump;
    my $_channels = $tree->look_down('_tag' => 'select', 'name' => 'ch');
--- 727,731 ----
  
    # Get the page containing the list of channels 
!   my $tree = XMLTV::Get_nice::get_nice_tree($channel_list);
  	#		$tree->dump;
    my $_channels = $tree->look_down('_tag' => 'select', 'name' => 'ch');
***************
*** 836,848 ****
  }
  
- sub utf8 {
- 		# Catch the error:
- 		#    "Parsing of undecoded UTF-8 will give garbage when decoding entities at /usr/lib/perl5/site_perl/5.8.8/XMLTV/Get_nice.pm line 57."
- 		# (e.g. http://eli.thegreenplace.net/2007/07/20/parsing-of-undecoded-utf-8-will-give-garbage-when-decoding-entities/ )
- 		#
- 		my ($html) = @_;
- 		return decode('UTF-8', $html); 
- }
- 
  sub debug ( $$ ) {
      my( $message, $nonewline ) = @_;
--- 836,839 ----


------------------------------------------------------------------------------
Monitor 25 network devices or servers for free with OpManager!
OpManager is web-based network management software that monitors 
network devices and physical & virtual servers, alerts via email & sms 
for fault. Monitor 25 devices for free with no restriction. Download now
http://ad.doubleclick.net/ddm/clk/292181274;119417398;o