[xmltv-commit] CVS: xmltv/grab/br_net tv_grab_br_net,1.6,1.7

[Max B. <b4...@us...>]

Update of /cvsroot/xmltv/xmltv/grab/br_net
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15394

Modified Files:
	tv_grab_br_net 
Log Message:
added CVS-headers and set version via CVS-revision


Index: tv_grab_br_net
===================================================================
RCS file: /cvsroot/xmltv/xmltv/grab/br_net/tv_grab_br_net,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** tv_grab_br_net	12 Apr 2006 22:38:36 -0000	1.6
--- tv_grab_br_net	15 Apr 2006 15:03:34 -0000	1.7
***************
*** 1,4 ****
--- 1,6 ----
  #!/usr/bin/perl
  
+ # $Id$
+ 
  =pod
  
***************
*** 140,143 ****
--- 142,147 ----
  my constant $lang = 'pt_BR';
  my constant $maxrating = 5; # maximum star-rating
+ my $rev = q$Revision$; # set from CVS-revision
+ $rev =~ s|^.*?(\d+(\.\d+)+).*?$|sprintf("%d." . "%s" x9, map sprintf("%03d", $_), split /\./, $1)|e;
  
  # XML-encoding
***************
*** 603,607 ****
      # write header
      $writer->start( {
! 	'generator-info-name'  => "$grabbername/0.92",
  	'generator-info-url'   => 'http://membled.com/work/apps/xmltv/',
  	'source-data-url'      => "$base/NETServ/br/prog/canais.jsp?$pname_sel=$conf->{selection}->[0]",
--- 607,611 ----
      # write header
      $writer->start( {
! 	'generator-info-name'  => "$grabbername/$rev",
  	'generator-info-url'   => 'http://membled.com/work/apps/xmltv/',
  	'source-data-url'      => "$base/NETServ/br/prog/canais.jsp?$pname_sel=$conf->{selection}->[0]",