undef/git-commit-vandalism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

git-svn: Fix branch detection when repository root is inaccessible

Browse Source 
For the case of multiple projects sharing a single SVN repository, it is
common practice to create the standard SVN directory layout within a
subdirectory for each project. In such setups, access control is often
used to limit what projects a given user may access. git-svn failed to
detect branches (e.g. when passing --stdlayout to clone) because it
relied on having access to the root directory in the repository. This
patch solves this problem by making git-svn use paths relative to the
given repository URL instead of the repository root.

Signed-off-by: Mattias Nissler <mattias.nissler@gmx.de>
Acked-by: Eric Wong <normalperson@yhbt.net>
This commit is contained in:
Mattias Nissler 2009-07-07 01:40:02 +02:00 committed by Eric Wong
parent 3c49a03524
commit 0b2af457a4
2 changed files with 21 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
git-svn.perl
View File

@ -876,10 +876,6 @@ sub cmd_multi_init {
usage(1); usage(1);
} }
# there are currently some bugs that prevent multi-init/multi-fetch
# setups from working well without this.
$Git::SVN::_minimize_url = 1;
$_prefix = '' unless defined $_prefix; $_prefix = '' unless defined $_prefix;
if (defined $url) { if (defined $url) {
$url = canonicalize_url($url); $url = canonicalize_url($url);
@ -1180,7 +1176,7 @@ sub complete_url_ls_init {
"wanted to set to: $gs->{url}\n"; "wanted to set to: $gs->{url}\n";
} }
command_oneline('config', $k, $gs->{url}) unless $orig_url; command_oneline('config', $k, $gs->{url}) unless $orig_url;
my $remote_path = "$ra->{svn_path}/$repo_path"; my $remote_path = "$gs->{path}/$repo_path";
$remote_path =~ s#/+#/#g; $remote_path =~ s#/+#/#g;
$remote_path =~ s#^/##g; $remote_path =~ s#^/##g;
$remote_path .= "/*" if $remote_path !~ /\*/; $remote_path .= "/*" if $remote_path !~ /\*/;
@ -2177,16 +2173,6 @@ sub ra {
$ra; $ra;
} }
sub rel_path {
my ($self) = @_;
my $repos_root = $self->ra->{repos_root};
return $self->{path} if ($self->{url} eq $repos_root);
my $url = $self->{url} .
(length $self->{path} ? "/$self->{path}" : $self->{path});
$url =~ s!^\Q$repos_root\E(?:/+|$)!!g;
$url;
}
# prop_walk(PATH, REV, SUB) # prop_walk(PATH, REV, SUB)
# ------------------------- # -------------------------
# Recursively traverse PATH at revision REV and invoke SUB for each # Recursively traverse PATH at revision REV and invoke SUB for each
@ -2512,10 +2498,7 @@ sub match_paths {
if (my $path = $paths->{"/$self->{path}"}) { if (my $path = $paths->{"/$self->{path}"}) {
return ($path->{action} eq 'D') ? 0 : 1; return ($path->{action} eq 'D') ? 0 : 1;
} }
my $repos_root = $self->ra->{repos_root}; $self->{path_regex} ||= qr/^\/\Q$self->{path}\E\//;
my $extended_path = $self->{url} . '/' . $self->{path};
$extended_path =~ s#^\Q$repos_root\E(/|$)##;
$self->{path_regex} ||= qr/^\/\Q$extended_path\E\//;
if (grep /$self->{path_regex}/, keys %$paths) { if (grep /$self->{path_regex}/, keys %$paths) {
return 1; return 1;
} }
@ -2545,7 +2528,7 @@ sub find_parent_branch {
return undef unless defined $paths; return undef unless defined $paths;
# look for a parent from another branch: # look for a parent from another branch:
my @b_path_components = split m#/#, $self->rel_path; my @b_path_components = split m#/#, $self->{path};
my @a_path_components; my @a_path_components;
my $i; my $i;
while (@b_path_components) { while (@b_path_components) {
@ -2563,11 +2546,11 @@ sub find_parent_branch {
my $r = $i->{copyfrom_rev}; my $r = $i->{copyfrom_rev};
my $repos_root = $self->ra->{repos_root}; my $repos_root = $self->ra->{repos_root};
my $url = $self->ra->{url}; my $url = $self->ra->{url};
my $new_url = $repos_root . $branch_from; my $new_url = $url . $branch_from;
print STDERR "Found possible branch point: ", print STDERR "Found possible branch point: ",
"$new_url => ", $self->full_url, ", $r\n"; "$new_url => ", $self->full_url, ", $r\n";
$branch_from =~ s#^/##; $branch_from =~ s#^/##;
my $gs = $self->other_gs($new_url, $url, $repos_root, my $gs = $self->other_gs($new_url, $url,
$branch_from, $r, $self->{ref_id}); $branch_from, $r, $self->{ref_id});
my ($r0, $parent) = $gs->find_rev_before($r, 1); my ($r0, $parent) = $gs->find_rev_before($r, 1);
{ {
@ -2752,9 +2735,9 @@ sub parse_svn_date {
} }
sub other_gs { sub other_gs {
my ($self, $new_url, $url, $repos_root, my ($self, $new_url, $url,
$branch_from, $r, $old_ref_id) = @_; $branch_from, $r, $old_ref_id) = @_;
my $gs = Git::SVN->find_by_url($new_url, $repos_root, $branch_from); my $gs = Git::SVN->find_by_url($new_url, $url, $branch_from);
unless ($gs) { unless ($gs) {
my $ref_id = $old_ref_id; my $ref_id = $old_ref_id;
$ref_id =~ s/\@\d+$//; $ref_id =~ s/\@\d+$//;
@ -4436,14 +4419,22 @@ sub get_log {
# externally passed pool (instead of our temporary and quickly cleared # externally passed pool (instead of our temporary and quickly cleared
# pool in Git::SVN::Ra) does not help matters at all... # pool in Git::SVN::Ra) does not help matters at all...
my $receiver = pop @args; my $receiver = pop @args;
my $prefix = "/".$self->{svn_path};
$prefix =~ s#/+($)##;
my $prefix_regex = qr#^\Q$prefix\E#;
push(@args, sub { push(@args, sub {
my ($paths) = $_[0]; my ($paths) = $_[0];
return &$receiver(@_) unless $paths; return &$receiver(@_) unless $paths;
$_[0] = (); $_[0] = ();
foreach my $p (keys %$paths) { foreach my $p (keys %$paths) {
my $i = $paths->{$p}; my $i = $paths->{$p};
my %s = map { $_ => $i->$_ } # Make path relative to our url, not repos_root
qw/copyfrom_path copyfrom_rev action/; $p =~ s/$prefix_regex//;
my %s = map { $_ => $i->$_; }
qw/copyfrom_path copyfrom_rev action/;
if ($s{'copyfrom_path'}) {
$s{'copyfrom_path'} =~ s/$prefix_regex//;
}
$_[0]{$p} = \%s; $_[0]{$p} = \%s;
} }
&$receiver(@_); &$receiver(@_);

8
t/t9138-git-svn-multiple-branches.sh
View File

@ -99,22 +99,22 @@ test_expect_success 'Multiple branch or tag paths require -d' '
test_expect_success 'create new branches and tags' ' test_expect_success 'create new branches and tags' '
( cd git_project && ( cd git_project &&
git svn branch -m "New branch 1" -d project/b_one New1 ) && git svn branch -m "New branch 1" -d b_one New1 ) &&
( cd svn_project && ( cd svn_project &&
svn_cmd up && test -e b_one/New1/a.file ) && svn_cmd up && test -e b_one/New1/a.file ) &&
( cd git_project && ( cd git_project &&
git svn branch -m "New branch 2" -d project/b_two New2 ) && git svn branch -m "New branch 2" -d b_two New2 ) &&
( cd svn_project && ( cd svn_project &&
svn_cmd up && test -e b_two/New2/a.file ) && svn_cmd up && test -e b_two/New2/a.file ) &&
( cd git_project && ( cd git_project &&
git svn branch -t -m "New tag 1" -d project/tags_A Tag1 ) && git svn branch -t -m "New tag 1" -d tags_A Tag1 ) &&
( cd svn_project && ( cd svn_project &&
svn_cmd up && test -e tags_A/Tag1/a.file ) && svn_cmd up && test -e tags_A/Tag1/a.file ) &&
( cd git_project && ( cd git_project &&
git svn tag -m "New tag 2" -d project/tags_B Tag2 ) && git svn tag -m "New tag 2" -d tags_B Tag2 ) &&
( cd svn_project && ( cd svn_project &&
svn_cmd up && test -e tags_B/Tag2/a.file ) svn_cmd up && test -e tags_B/Tag2/a.file )
' '