[Cvs-cvs] ccvs/contrib ChangeLog log_accum.pl

[Derek Robert Price]

CVSROOT:        /cvsroot/cvs
Module name:    ccvs
Branch:         
Changes by:     Derek Robert Price <address@hidden>     06/05/14 03:27:12

Modified files:
        contrib        : ChangeLog log_accum.pl 

Log message:
        * log_accum.pl: Use only the last dir from CVSROOT in cvsweb URLs by
        default.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/cvs/ccvs/contrib/ChangeLog.diff?tr1=1.191&tr2=1.192&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/cvs/ccvs/contrib/log_accum.pl.diff?tr1=1.27&tr2=1.28&r1=text&r2=text

Patches:
Index: ccvs/contrib/ChangeLog
diff -u ccvs/contrib/ChangeLog:1.191 ccvs/contrib/ChangeLog:1.192
--- ccvs/contrib/ChangeLog:1.191        Fri May 12 22:13:19 2006
+++ ccvs/contrib/ChangeLog      Sun May 14 03:27:12 2006
@@ -1,3 +1,8 @@
+2006-05-13  Derek Price  <address@hidden>
+
+       * log_accum.pl: Use only the last dir from CVSROOT in cvsweb URLs by
+       default.
+
 2006-05-12  Derek Price  <address@hidden>
 
        * log_accum.pl: Restore URL creation.
Index: ccvs/contrib/log_accum.pl
diff -u ccvs/contrib/log_accum.pl:1.27 ccvs/contrib/log_accum.pl:1.28
--- ccvs/contrib/log_accum.pl:1.27      Fri May 12 22:13:19 2006
+++ ccvs/contrib/log_accum.pl   Sun May 14 03:27:12 2006
@@ -267,7 +267,11 @@
               || exists $config->{'diff-arg'});
 
     # Set defaults.
-    $config->{'cvsroot'} = $ENV{'CVSROOT'} if !exists $config->{'cvsroot'};
+    if (!exists $config->{'cvsroot'})
+    {
+       $config->{'cvsroot'} = $ENV{'CVSROOT'};
+       $config->{'cvsroot'} =~ s#^.*/([^/]*)$#$1#;
+    }
     $config->{'send-diff'} = 1 if !exists $config->{'send-diff'};
     $config->{'empty-diffs'} = 1 if !exists $config->{'empty-diffs'};
     $config->{'diff-arg'} = ["-ub"] if !exists $config->{'diff-arg'};