xmltv/grab test_grabbers, 1.29, 1.30 Get_nice.pm, 1.31, 1.32

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

Modified Files:
	test_grabbers Get_nice.pm 
Log Message:
Whitespace: remove trailing whitespace

Index: Get_nice.pm
===================================================================
RCS file: /cvsroot/xmltv/xmltv/grab/Get_nice.pm,v
retrieving revision 1.31
retrieving revision 1.32
diff -C2 -d -r1.31 -r1.32
*** Get_nice.pm	28 Jun 2015 08:38:05 -0000	1.31
--- Get_nice.pm	12 Jul 2015 00:46:37 -0000	1.32
***************
*** 11,19 ****
  #
  #This random delay will be between 0 and 5 ($Delay) seconds. This means
! # some sites will complain you're grabbing too fast (since 20% of your 
! # grabs will be less than 1 second apart). To introduce a minimum delay 
  # set $XMLTV::Get_nice::MinDelay to a value in seconds.
! # This will be added to $Delay to derive the actual delay used. 
! # E.g. Delay = 5 and MinDelay = 3, then the actual delay will be 
  # between 3 and 8 seconds,
  #
--- 11,19 ----
  #
  #This random delay will be between 0 and 5 ($Delay) seconds. This means
! # some sites will complain you're grabbing too fast (since 20% of your
! # grabs will be less than 1 second apart). To introduce a minimum delay
  # set $XMLTV::Get_nice::MinDelay to a value in seconds.
! # This will be added to $Delay to derive the actual delay used.
! # E.g. Delay = 5 and MinDelay = 3, then the actual delay will be
  # between 3 and 8 seconds,
  #
***************
*** 68,72 ****
  }
  
! # Fetch page and return as HTML::Tree object.   
  # Optional arguments:
  # i) a function to put the page data through (eg, to clean up bad
--- 68,72 ----
  }
  
! # Fetch page and return as HTML::Tree object.
  # Optional arguments:
  # i) a function to put the page data through (eg, to clean up bad
***************
*** 92,96 ****
  }
  
! # Fetch page and return as XML::Parser 'Tree' object.  
  # Optional arguments:
  # i) a function to put the page data through (eg, to clean up bad
--- 92,96 ----
  }
  
! # Fetch page and return as XML::Parser 'Tree' object.
  # Optional arguments:
  # i) a function to put the page data through (eg, to clean up bad
***************
*** 113,117 ****
  }
  
! # Fetch page and return as JSON::PP object.  
  # Optional arguments:
  # i) a function to put the page data through (eg, to clean up bad
--- 113,117 ----
  }
  
! # Fetch page and return as JSON::PP object.
  # Optional arguments:
  # i) a function to put the page data through (eg, to clean up bad
***************
*** 156,160 ****
  		# expose the response object for those grabbers which need to process the headers, status code, etc.
  		$Response = $r;
! 		
      if ($r->is_error) {
          # At the moment download failures seem rare, so the script dies if
--- 156,160 ----
  		# expose the response object for those grabbers which need to process the headers, status code, etc.
  		$Response = $r;
! 
      if ($r->is_error) {
          # At the moment download failures seem rare, so the script dies if

Index: test_grabbers
===================================================================
RCS file: /cvsroot/xmltv/xmltv/grab/test_grabbers,v
retrieving revision 1.29
retrieving revision 1.30
diff -C2 -d -r1.29 -r1.30
*** test_grabbers	22 Jun 2011 19:16:15 -0000	1.29
--- test_grabbers	12 Jul 2015 00:46:37 -0000	1.30
***************
*** 15,19 ****
  use FindBin qw($Bin);
  use lib "$Bin/../blib/lib";
!     
  use XMLTV::ValidateFile qw/LoadDtd/;
  use XMLTV::ValidateGrabber qw/ValidateGrabber ConfigureGrabber/;
--- 15,19 ----
  use FindBin qw($Bin);
  use lib "$Bin/../blib/lib";
! 
  use XMLTV::ValidateFile qw/LoadDtd/;
  use XMLTV::ValidateGrabber qw/ValidateGrabber ConfigureGrabber/;
***************
*** 32,36 ****
  my %status;
  my %untested;
! my @grabbers; 
  
  my $result = GetOptions('configure' => \$opt_configure,
--- 32,36 ----
  my %status;
  my %untested;
! my @grabbers;
  
  my $result = GetOptions('configure' => \$opt_configure,
***************
*** 44,48 ****
      print << "EOH";
  usage: $0 [options]
!     
  Valid options:
  --only <grabber>  Only test the specified grabber.
--- 44,48 ----
      print << "EOH";
  usage: $0 [options]
! 
  Valid options:
  --only <grabber>  Only test the specified grabber.
***************
*** 145,149 ****
      w "Testing $exe";
  
!     my @errors = ValidateGrabber( $exe,  $cmd, $conf, $output_prefix, 
  				  "$root/blib/share/", 1 );
  
--- 145,149 ----
      w "Testing $exe";
  
!     my @errors = ValidateGrabber( $exe,  $cmd, $conf, $output_prefix,
  				  "$root/blib/share/", 1 );
  


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