xmltv/grab/dk_dr tv_grab_dk_dr,1.10,1.11

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

Modified Files:
	tv_grab_dk_dr 
Log Message:
(major) new url (FR#109) fixes broken grabber

Index: tv_grab_dk_dr
===================================================================
RCS file: /cvsroot/xmltv/xmltv/grab/dk_dr/tv_grab_dk_dr,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** tv_grab_dk_dr	5 Jan 2014 09:05:55 -0000	1.10
--- tv_grab_dk_dr	4 Jun 2014 14:07:30 -0000	1.11
***************
*** 69,76 ****
  my $id_prefix = '.dr.dk';
  
! my $default_root_url = 'http://www.dr.dk/tv/oversigt/json/guide/';
  
  my %grabber_tags = ( 'source-info-url'	   =>
! 		     'http://www.dr.dk/tv/oversigt/json/guide/',
  		     'source-info-name'	   =>
  		     'DR TV Oversigt',
--- 69,78 ----
  my $id_prefix = '.dr.dk';
  
! # FR#109  my $default_root_url = 'http://www.dr.dk/tv/oversigt/json/guide/';
! my $default_root_url = 'http://www.dr.dk/tjenester/program-guide/json/guide/';
  
  my %grabber_tags = ( 'source-info-url'	   =>
! 		     # FR109  'http://www.dr.dk/tv/oversigt/json/guide/',
! 				 'http://www.dr.dk/tjenester/program-guide/json/guide/',
  		     'source-info-name'	   =>
  		     'DR TV Oversigt',
***************
*** 252,255 ****
--- 254,258 ----
  	print STDERR "TYPE: $type\n" if $debug;
  	my $url = $conf->{'root-url'}->[0] . 'channels?mediaType=' . $type;
+ 	#  http://www.dr.dk/tjenester/program-guide/json/guide/channels?mediaType=tv
  	print STDERR "Get: $url\n" if $debug;
  	my $content = getUrl($url) || return 0;
***************
*** 294,297 ****
--- 297,301 ----
      my $url = $conf->{'root-url'}->[0] .
  	'schedule?startTimesectionId=1&days=' . $date . '&channelid=' . $chan->{'_dr_listing_id'} . '&oneTimesectionOnly=false&mediaType=tv';
+ 	 # http://www.dr.dk/tjenester/program-guide/json/guide/schedule?startTimesectionId=1&days=0&channelid=w_DR2&oneTimesectionOnly=false&mediaType=tv
      print STDERR "Get: $url\n" if $debug;
      my $content = getUrl($url) || return 0;
***************
*** 394,397 ****
--- 398,402 ----
  	    if ($listing->{'HasDescription'} eq 'true') {
  		my $desc_url = $conf->{'root-url'}->[0] . 'ProgramDetails/?id=' . $listing->{'Id'} . '&days=' . $date . '&channelid=' . $chan->{'_dr_listing_id'} . '&mediaType=tv';
+ 		# http://www.dr.dk/tjenester/program-guide/json/guide/ProgramDetails/?id=dr.dk/mas/whatson/216871786813&days=0&channelid=w_DR2&mediaType=tv
  		print STDERR "Get: $desc_url\n" if $debug;
  		my $desc_content = getUrl($desc_url);


------------------------------------------------------------------------------
Learn Graph Databases - Download FREE O'Reilly Book
"Graph Databases" is the definitive new guide to graph databases and their 
applications. Written by three acclaimed leaders in the field, 
this first edition is now available. Download your free book today!
http://p.sf.net/sfu/NeoTech