xmltv/tools tv_find_grabbers, 1.4, 1.5 tv_validate_grabber.in, 1.4, 1.5 tv_validate_file.in, 1.3, 1.4

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

Modified Files:
	tv_find_grabbers tv_validate_grabber.in tv_validate_file.in 
Log Message:
Whitespace: remove trailing whitespace

Index: tv_validate_grabber.in
===================================================================
RCS file: /cvsroot/xmltv/xmltv/tools/tv_validate_grabber.in,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** tv_validate_grabber.in	2 Sep 2010 05:07:40 -0000	1.4
--- tv_validate_grabber.in	12 Jul 2015 00:46:37 -0000	1.5
***************
*** 25,29 ****
  
  tv_validate_grabber runs a grabber through a series of test to determine
! if it follows the recommendations described at 
  L<http://wiki.xmltv.org/index.php/XmltvCapabilities>
  
--- 25,29 ----
  
  tv_validate_grabber runs a grabber through a series of test to determine
! if it follows the recommendations described at
  L<http://wiki.xmltv.org/index.php/XmltvCapabilities>
  
***************
*** 38,42 ****
  B<--config-file <configfile>> Use the specified file as configuration file
  for the grabber. If the file does not exist,
! the grabber is run with --configure to 
  create it. Default is to always run the grabber
  with --configure first and store the configuration
--- 38,42 ----
  B<--config-file <configfile>> Use the specified file as configuration file
  for the grabber. If the file does not exist,
! the grabber is run with --configure to
  create it. Default is to always run the grabber
  with --configure first and store the configuration
***************
*** 44,53 ****
  
  B<--keep-files> Do not delete the output-files generated during
! the validation. 
  
  
  =head1 AUTHOR
  
! Mattias Holmlund, mattias -at- holmlund -dot- se. 
  
  =cut
--- 44,53 ----
  
  B<--keep-files> Do not delete the output-files generated during
! the validation.
  
  
  =head1 AUTHOR
  
! Mattias Holmlund, mattias -at- holmlund -dot- se.
  
  =cut
***************
*** 114,123 ****
      print "$errors errors found.\n";
      exit 1;
! } 
  else {
      print "Validated ok.\n";
      exit 0;
  }
!    
  =head1 COPYRIGHT
  
--- 114,123 ----
      print "$errors errors found.\n";
      exit 1;
! }
  else {
      print "Validated ok.\n";
      exit 0;
  }
! 
  =head1 COPYRIGHT
  

Index: tv_validate_file.in
===================================================================
RCS file: /cvsroot/xmltv/xmltv/tools/tv_validate_file.in,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** tv_validate_file.in	31 Oct 2007 06:43:49 -0000	1.3
--- tv_validate_file.in	12 Jul 2015 00:46:37 -0000	1.4
***************
*** 18,22 ****
  
  tv_validate_grabber [--dtd-file <dtdfile>] <file>
!                 
  =head1 DESCRIPTION
  
--- 18,22 ----
  
  tv_validate_grabber [--dtd-file <dtdfile>] <file>
! 
  =head1 DESCRIPTION
  
***************
*** 28,32 ****
  =head1 AUTHOR
  
! Mattias Holmlund, mattias -at- holmlund -dot- se. 
  
  =cut
--- 28,32 ----
  =head1 AUTHOR
  
! Mattias Holmlund, mattias -at- holmlund -dot- se.
  
  =cut
***************
*** 71,80 ****
      print "$errors error" . ($errors > 1 ? "s" : "") . " found.\n";
      exit 1;
! } 
  else {
      print "Validated ok.\n";
      exit 0;
  }
!    
  =head1 COPYRIGHT
  
--- 71,80 ----
      print "$errors error" . ($errors > 1 ? "s" : "") . " found.\n";
      exit 1;
! }
  else {
      print "Validated ok.\n";
      exit 0;
  }
! 
  =head1 COPYRIGHT
  

Index: tv_find_grabbers
===================================================================
RCS file: /cvsroot/xmltv/xmltv/tools/tv_find_grabbers,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** tv_find_grabbers	22 Nov 2010 23:40:07 -0000	1.4
--- tv_find_grabbers	12 Jul 2015 00:46:37 -0000	1.5
***************
*** 21,25 ****
  
  tv_find_grabbers [-I <dir>] [--slow] [capability] ...
!             
  =head1 DESCRIPTION
  
--- 21,25 ----
  
  tv_find_grabbers [-I <dir>] [--slow] [capability] ...
! 
  =head1 DESCRIPTION
  
***************
*** 45,49 ****
  =head1 AUTHOR
  
! Mattias Holmlund, mattias -at- holmlund -dot- se. 
  
  =cut
--- 45,49 ----
  =head1 AUTHOR
  
! Mattias Holmlund, mattias -at- holmlund -dot- se.
  
  =cut
***************
*** 76,80 ****
  push @paths, @{$opt->{include}};
  
! # Find only unique entries in PATH to avoid investigating the same 
  # grabber twice. From "perldoc -q duplicate".
  my %seen = ();
--- 76,80 ----
  push @paths, @{$opt->{include}};
  
! # Find only unique entries in PATH to avoid investigating the same
  # grabber twice. From "perldoc -q duplicate".
  my %seen = ();
***************
*** 102,106 ****
              while (my $line = <GRABBER>)
              {
!                 # First read the grabber script and try to determine the capabilities 
                  # it supports - first for older grabbers using XMLTV::Capabilities
                  if ($line =~ m{^use\s+XMLTV::Capabilities\s+qw/(.*)/;})
--- 102,106 ----
              while (my $line = <GRABBER>)
              {
!                 # First read the grabber script and try to determine the capabilities
                  # it supports - first for older grabbers using XMLTV::Capabilities
                  if ($line =~ m{^use\s+XMLTV::Capabilities\s+qw/(.*)/;})
***************
*** 119,123 ****
              }
          }
!         # Having not found the capabilities by checking the code directly, we 
          # compile and run the grabber and capture the output
          if (not defined $cap)
--- 119,123 ----
              }
          }
!         # Having not found the capabilities by checking the code directly, we
          # compile and run the grabber and capture the output
          if (not defined $cap)
***************
*** 148,152 ****
  	foreach my $c (@req_cap)
  	{
! 	    $failed=1 
  		if not defined( $capability{$c} );
  	}
--- 148,152 ----
  	foreach my $c (@req_cap)
  	{
! 	    $failed=1
  		if not defined( $capability{$c} );
  	}
***************
*** 157,165 ****
              next;
          }
!         
          my $desc = undef;
          my $desc_src = undef;
          seek GRABBER, 0, 0; # reset to start of file
!         
          unless ($opt->{slow})
          {
--- 157,165 ----
              next;
          }
! 
          my $desc = undef;
          my $desc_src = undef;
          seek GRABBER, 0, 0; # reset to start of file
! 
          unless ($opt->{slow})
          {
***************
*** 183,187 ****
              }
          }
!         # Having not found the description by checking the code directly, we 
          # compile and run the grabber and capture the output
          if (not defined $desc)
--- 183,187 ----
              }
          }
!         # Having not found the description by checking the code directly, we
          # compile and run the grabber and capture the output
          if (not defined $desc)
***************
*** 190,194 ****
              $desc_src = "run_capture";
          }
!         
  	if (not defined $desc)
  	{
--- 190,194 ----
              $desc_src = "run_capture";
          }
! 
  	if (not defined $desc)
  	{
***************
*** 201,214 ****
              print STDERR "  Found description ($desc_src): $desc\n" if $opt->{verbose};
          }
!         
  	$desc =~  s/^\s+//;
  	$desc =~  s/\s+$//;
          print "$grabber|$desc\n";
!         
          close GRABBER;
      }
  }
  
! # Run an external command and return the output. Exit if the command is 
  # interrupted with ctrl-c.
  sub run_capture {
--- 201,214 ----
              print STDERR "  Found description ($desc_src): $desc\n" if $opt->{verbose};
          }
! 
  	$desc =~  s/^\s+//;
  	$desc =~  s/\s+$//;
          print "$grabber|$desc\n";
! 
          close GRABBER;
      }
  }
  
! # Run an external command and return the output. Exit if the command is
  # interrupted with ctrl-c.
  sub run_capture {
***************
*** 233,237 ****
  	alarm 0;
      };
!     $SIG{HUP} = 'DEFAULT';    
  
      if( $killed )
--- 233,237 ----
  	alarm 0;
      };
!     $SIG{HUP} = 'DEFAULT';
  
      if( $killed )


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