xmltv/grab/ch_search tv_grab_ch_search.in, 1.18, 1.19

Update of /cvsroot/xmltv/xmltv/grab/ch_search
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv14486

Modified Files:
	tv_grab_ch_search.in 
Log Message:
(major) Fix broken grabber - website has significantly changed, so use a legacy url for now

Index: tv_grab_ch_search.in
===================================================================
RCS file: /cvsroot/xmltv/xmltv/grab/ch_search/tv_grab_ch_search.in,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** tv_grab_ch_search.in	24 Oct 2012 08:17:11 -0000	1.18
--- tv_grab_ch_search.in	20 Jun 2015 15:45:13 -0000	1.19
***************
*** 1,637 ****
! #!/usr/bin/perl
! 
! =pod
! 
! =head1 NAME
! 
! tv_grab_ch_search - Grab TV listings for Switzerland (from tv.search.ch webpage).
! 
! =head1 SYNOPSIS
! 
[...1245 lines suppressed...]
! 
! 
! 
! ## get_page($url) :: try to download $url via http://, look for closing </body> tag or die
! sub get_page($) {
!     my $url = shift;
!     my $retry = 0;
! 
!     local $SIG{__DIE__} = sub { die "\n$url: $_[0]" };
!     
!     while($retry < 2) {
!         my $got = eval { get_nice($url . ($retry ? "&retry=$retry" : "")); };
!         $retry ++;
! 
!         next if($@); # unable to download, doesn't look too good for us.
!         return $got;
!     }
! 
!     die "cannot grab webpage $url (tried $retry times). giving up. sorry";
! }


------------------------------------------------------------------------------