From 53909056da869eb79c2a20699794b63c8c87e7fd Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Sat, 1 Apr 2006 18:25:02 -0800 Subject: contrib/git-svn: accept configuration via repo-config repo-config keys are any of the long option names minus the '-' characters Signed-off-by: Eric Wong Signed-off-by: Junio C Hamano --- contrib/git-svn/git-svn.perl | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/contrib/git-svn/git-svn.perl b/contrib/git-svn/git-svn.perl index 59dd50404..edfb19c39 100755 --- a/contrib/git-svn/git-svn.perl +++ b/contrib/git-svn/git-svn.perl @@ -67,6 +67,23 @@ for (my $i = 0; $i < @ARGV; $i++) { 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; -- cgit v1.2.1