mirrors/git
1
0
Fork 0
mirror of https://github.com/git/git.git synced 2024-10-28 12:59:41 +01:00
Code Activity

contrib/git-svn: accept configuration via repo-config

Browse source 
repo-config keys are any of the long option names minus the '-'
characters

Signed-off-by: Eric Wong <normalperson@yhbt.net>
Signed-off-by: Junio C Hamano <junkio@cox.net>
This commit is contained in:
Eric Wong 2006-04-01 18:25:02 -08:00 committed by Junio C Hamano
parent bbbc8c3a8d
commit 53909056da
1 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
contrib/git-svn/git-svn.perl
View file

@ -67,6 +67,23 @@
my %opts = %{$cmd{$cmd}->[2]} if (defined $cmd);
# convert GetOpt::Long specs for use by git-repo-config
foreach my $o (keys %opts) {
my $v = $opts{$o};
my ($key) = ($o =~ /^([a-z\-]+)/);
$key =~ s/-//g;
my $arg = 'git-repo-config';
$arg .= ' --int' if ($o =~ /=i$/);
$arg .= ' --bool' if ($o !~ /=[sfi]$/);
$arg .= " svn.$key"; # $key only matches [a-z\-], always shell-safe
if (ref $v eq 'ARRAY') {
chomp(@$v = `$arg`);
} else {
chomp($$v = `$arg`);
$$v = 0 if $$v eq 'false';
}
}
GetOptions(%opts, 'help|H|h' => \$_help,
'version|V' => \$_version,
'id|i=s' => \$GIT_SVN) or exit 1;