cvs commit: www/scripts svn2html.pl

lizardo at linuxfromscratch.org lizardo at linuxfromscratch.org
Sun Jul 11 13:50:11 PDT 2004


lizardo     04/07/11 14:50:11

  Modified:    scripts  svn2html.pl
  Log:
  svn2html.pl: Disabled support for --with-filename and --with-branchname until a bug with these options is fixed
  
  Revision  Changes    Path
  1.4       +17 -17    www/scripts/svn2html.pl
  
  Index: svn2html.pl
  ===================================================================
  RCS file: /home/cvsroot/www/scripts/svn2html.pl,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- svn2html.pl	11 Jul 2004 04:37:57 -0000	1.3
  +++ svn2html.pl	11 Jul 2004 20:50:10 -0000	1.4
  @@ -17,7 +17,7 @@
   # along with this program; if not, write to the Free Software
   # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
   
  -# $Id: svn2html.pl,v 1.3 2004/07/11 04:37:57 lizardo Exp $
  +# $Id: svn2html.pl,v 1.4 2004/07/11 20:50:10 lizardo Exp $
   
   use strict;
   use warnings;
  @@ -92,27 +92,27 @@
           $date = $1;
       }
   	elsif ($tag eq "path") {
  -		my @path = split('/', $buffer);
  +		#my @path = split('/', $buffer);
   		# Remove the first (empty) element from @path
  -		shift @path;
  -		my $branch = shift @path;
  -		$branch = shift @path if ($branch eq "branches" or $branch eq "tags");
  -		$branches .= $branch . ", " unless ($branches =~ /(^|\s+)$branch,/);
  -        $files .= File::Spec->catdir(join('/', @path)) . ", ";
  +		#shift @path;
  +		#my $branch = shift @path;
  +		#$branch = shift @path if ($branch eq "branches" or $branch eq "tags");
  +		#$branches .= $branch . ", " unless ($branches =~ /(^|\s+)$branch,/);
  +        #$files .= File::Spec->catdir(join('/', @path)) . ", ";
       }
       elsif ($tag eq "msg") {
   		# Remove ASCII "bullets" ("* like this") from commit messages
   		$buffer =~ s/^\s*\*\s+//;
  -        if ($with_filename) {
  -            $files =~ s/, $/: /;
  -            $buffer = $files . $buffer;
  -            $files = "";
  -        }
  -		if ($with_branchname) {
  -		    $branches =~ s/, $/: /;
  -		    $buffer = $branches . $buffer;
  -		    $branches = "";
  -		}
  +        #if ($with_filename) {
  +        #    $files =~ s/, $/: /;
  +        #    $buffer = $files . $buffer;
  +        #    $files = "";
  +        #}
  +		#if ($with_branchname) {
  +		#    $branches =~ s/, $/: /;
  +		#    $buffer = $branches . $buffer;
  +		#    $branches = "";
  +		#}
   		chomp $buffer;
           unshift @{$messages{$author}}, $buffer;
       }
  
  
  



More information about the website mailing list