xmltv/grab/uk_bleb tv_grab_uk_bleb.in,1.21,1.22

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

Modified Files:
	tv_grab_uk_bleb.in 
Log Message:
Actively filter out unavailable channels during configuration

Index: tv_grab_uk_bleb.in
===================================================================
RCS file: /cvsroot/xmltv/xmltv/grab/uk_bleb/tv_grab_uk_bleb.in,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** tv_grab_uk_bleb.in	29 Jun 2015 16:24:28 -0000	1.21
--- tv_grab_uk_bleb.in	3 Jul 2015 01:42:13 -0000	1.22
***************
*** 154,158 ****
  my $now = parse_date('now');
  
! # Returns a hash mapping YYYMMDD to URL.
  sub urls_by_date( $$$ ) {
      my $pkg = shift;
--- 154,158 ----
  my $now = parse_date('now');
  
! # Returns a hash mapping YYYYMMDD to URL.
  sub urls_by_date( $$$ ) {
      my $pkg = shift;
***************
*** 289,292 ****
--- 289,312 ----
      if ($page =~ /Available channels are: <tt id="channels">(.*?)<\/tt>/) {
          my @channels = split(', ', $1);
+ 
+         # Actively filter out unavailable channels (as of 2015-07-02)
+         my @unavailable_channels = (
+             '4seven',               'al_jazeera_english',             'bbc7',
+             'bbc_6music',           'bbc_radio1',                     'bbc_radio1_xtra',
+             'bbc_radio2',           'bbc_radio3',                     'bbc_radio4',
+             'bbc_radio5_live',      'bbc_radio5_live_sports_extra',   'bbc_radio_scotland',
+             'bbc_world_service',    'bravo',                          'citv',
+             'discovery_real_time',  'itv1',                           'itv1_hd',
+             'itv2',                 'itv3',                           'itv4',
+             'men_and_motors',       'nick_junior',                    'oneword',
+             's4c2',                 'sky_movies_classics',            'sky_movies_hd1',
+             'sky_movies_hd2',       'sky_travel',                     'teachers_tv',
+             'virgin1',              'yesterday',
+         );
+         my %available_channels;
+         @available_channels{ @channels } = undef;
+         delete @available_channels{ @unavailable_channels };
+         @channels = sort keys %available_channels;
+ 
          my @questions;
  
***************
*** 311,313 ****
  Grab_XML_uk_bleb->go();
  
- 
--- 331,332 ----


------------------------------------------------------------------------------
Don't Limit Your Business. Reach for the Cloud.
GigeNET's Cloud Solutions provide you with the tools and support that
you need to offload your IT needs and focus on growing your business.
Configured For All Businesses. Start Your Cloud Today.
https://www.gigenetcloud.com/