xmltv/grab/nl tv_grab_nl,1.82,1.83

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

Modified Files:
	tv_grab_nl 
Log Message:
Silence progress messages when using --quiet

Index: tv_grab_nl
===================================================================
RCS file: /cvsroot/xmltv/xmltv/grab/nl/tv_grab_nl,v
retrieving revision 1.82
retrieving revision 1.83
diff -C2 -d -r1.82 -r1.83
*** tv_grab_nl	27 Jun 2015 17:26:41 -0000	1.82
--- tv_grab_nl	28 Jun 2015 08:33:44 -0000	1.83
***************
*** 1,3 ****
--- 1,6 ----
  #!/usr/bin/perl -w
+ 
+ eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}'
+     if 0; # not running under some shell
  =pod
  
***************
*** 530,534 ****
      my $t = get_nice_json($url, '', 1);
      if ( not $t->{ $ch_id }) {
!     	warn 'did not find any programmes in page';
      	return ();
      }
--- 533,537 ----
      my $t = get_nice_json($url, '', 1);
      if ( not $t->{ $ch_id }) {
!     	warn 'did not find any programmes in page' if not $opt_quiet;
      	return ();
      }
***************
*** 705,709 ****
      $t = get_nice_tree($url . '?cookieoptin=true');
      if ($@) {
!     	warn "error getting/parsing $url: $@";
      	return;
      }
--- 708,712 ----
      $t = get_nice_tree($url . '?cookieoptin=true');
      if ($@) {
!     	warn "error getting/parsing $url: $@" if not $opt_quiet;
      	return;
      }
***************
*** 712,716 ****
      my $_div = $t->look_down('_tag' => 'div', 'id' => 'prog-content');
      if (not $_div) {
!     	warn "did not see 'prog-content' element, skipping page";
      	return;
      }
--- 715,719 ----
      my $_div = $t->look_down('_tag' => 'div', 'id' => 'prog-content');
      if (not $_div) {
!     	warn "did not see 'prog-content' element, skipping page" if not $opt_quiet;
      	return;
      }
***************
*** 737,741 ****
      $_div = $t->look_down('_tag' => 'div', 'class' => 'programmering_details');
      if (not $_div) {
!         warn "did not see 'programmering_details' element, skipping";
          return;
      }
--- 740,744 ----
      $_div = $t->look_down('_tag' => 'div', 'class' => 'programmering_details');
      if (not $_div) {
!         warn "did not see 'programmering_details' element, skipping" if not $opt_quiet;
          return;
      }
***************
*** 768,772 ****
      $_div = $t->look_down('_tag' => 'div', 'class' => 'programmering_info_detail');
      if (not $_div) {
!         warn "did not see 'programmering_info_detail' element, skipping";
          return;
      }
--- 771,775 ----
      $_div = $t->look_down('_tag' => 'div', 'class' => 'programmering_info_detail');
      if (not $_div) {
!         warn "did not see 'programmering_info_detail' element, skipping" if not $opt_quiet;
          return;
      }


------------------------------------------------------------------------------
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