CVSROOT: cvslog.pl - protect spaces in URL

[qboosh]

Author: qboosh                       Date: Tue Sep 30 18:32:34 2008 GMT
Module: CVSROOT                       Tag: HEAD
---- Log message:
- protect spaces in URL

---- Files affected:
CVSROOT:
   cvslog.pl (1.84 -> 1.85) 

---- Diffs:

================================================================
Index: CVSROOT/cvslog.pl
diff -u CVSROOT/cvslog.pl:1.84 CVSROOT/cvslog.pl:1.85
--- CVSROOT/cvslog.pl:1.84	Tue Sep 30 20:29:50 2008
+++ CVSROOT/cvslog.pl	Tue Sep 30 20:32:28 2008
@@ -369,6 +369,7 @@
 
     for (my $j = 0; $j < @$commits; $j++) {
       my $ref;
+      my $webname;
       my $commit = $commits->[$j];
       my ($name, $oldrev, $newrev, $op) = ("NAME","NONE","NONE",-1);
       ($name, $oldrev, $newrev, $op) = ($commit->{name}, $commit->{oldrev}, $commit->{newrev}, $commit->{op});
@@ -382,7 +383,9 @@
       $files_affected_part .= " (?! contact devils)" if ($op eq '?');
       $files_affected_part .= ", " if $j < @$commits-1;
 #      $files_affected_part .= "\n";
-      $cvsweb_part .= "    $cvsweb_url/$dir/$name?r1=$oldrev&r2=$newrev&f=u\n"
+      $webname = $name;
+      $webname =~ s/ /%20/g;
+      $cvsweb_part .= "    $cvsweb_url/$dir/$webname?r1=$oldrev&r2=$newrev&f=u\n"
         if defined $cvsweb_url and $op ne 'add' and $op ne 'remove';
       $ref=$dir."_".$name.".".$newrev;
       $ref =~ s/[^a-zA-Z0-9.]/_/g;
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/CVSROOT/cvslog.pl?r1=1.84&r2=1.85&f=u