cvsserver: cleanup extra slashes in filename arguments

Signed-off-by: Matthew Ogilvie <mmogilvi_git@miniinfo.net>
Signed-off-by: Junio C Hamano <gitster@pobox.com>

diff --git a/git-cvsserver.perl b/git-cvsserver.perl
index dca0ed62fccb51f25826963d048120018e5adadc..1d929dfacb4b152a3e27291b71823cb1a169c95e 100755 (executable)
--- a/git-cvsserver.perl
+++ b/git-cvsserver.perl
@@ -2309,6 +2309,9 @@ sub filenamesplit
     return ( $filepart, $dirpart );
 }
 
     return ( $filepart, $dirpart );
 }
 

+# Cleanup various junk in filename (try to canonicalize it), and
+# add prependdir to accomodate running CVS client from a
+# subdirectory (so the output is relative to top directory of the project).

 sub filecleanup
 {
     my $filename = shift;
 sub filecleanup
 {
     my $filename = shift;


@@ -2320,11 +2323,36 @@ sub filecleanup
         return undef;
     }
 
         return undef;
     }
 

+    if($filename eq ".")
+    {
+        $filename="";
+    }

     $filename =~ s/^\.\///g;
     $filename =~ s/^\.\///g;

+    $filename =~ s%/+%/%g;

     $filename = $state->{prependdir} . $filename;
     $filename = $state->{prependdir} . $filename;

+    $filename =~ s%/$%%;

     return $filename;
 }
 
     return $filename;
 }
 

+# Remove prependdir from the path, so that is is relative to the directory
+# the CVS client was started from, rather than the top of the project.
+# Essentially the inverse of filecleanup().
+sub remove_prependdir
+{
+    my($path) = @_;
+    if(defined($state->{prependdir}) && $state->{prependdir} ne "")
+    {
+        my($pre)=$state->{prependdir};
+        $pre=~s%/$%%;
+        if(!($path=~s%^\Q$pre\E/?%%))
+        {
+            $log->fatal("internal error missing prependdir");
+            die("internal error missing prependdir");
+        }
+    }
+    return $path;
+}
+

 sub validateGitDir
 {
     if( !defined($state->{CVSROOT}) )
 sub validateGitDir
 {
     if( !defined($state->{CVSROOT}) )