From 602015e0e6ec5d3d79b71b0d5e2583fd015417e6 Mon Sep 17 00:00:00 2001 From: Eygene Ryabinkin Date: Sat, 6 Oct 2007 22:57:19 +0400 Subject: [PATCH] git-svn: respect Subversion's [auth] section configuration values Parameters 'store-passwords' and 'store-auth-creds' from Subversion's configuration (~/.subversion/config) were not respected. This was fixed: the default values for these parameters are set to 'yes' to follow Subversion behaviour. Signed-off-by: Eygene Ryabinkin Signed-off-by: Lars Hjemli Acked-by: Eric Wong Signed-off-by: Shawn O. Pearce --- git-svn.perl | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/git-svn.perl b/git-svn.perl index 777e4361f..2c8a1580f 100755 --- a/git-svn.perl +++ b/git-svn.perl @@ -3065,6 +3065,29 @@ sub new { my ($baton, $callbacks) = SVN::Core::auth_open_helper(_auth_providers); my $config = SVN::Core::config_get_config($config_dir); $RA = undef; + my $dont_store_passwords = 1; + my $conf_t = ${$config}{'config'}; + { + # The usage of $SVN::_Core::SVN_CONFIG_* variables + # produces warnings that variables are used only once. + # I had not found the better way to shut them up, so + # warnings are disabled in this block. + no warnings; + if (SVN::_Core::svn_config_get_bool($conf_t, + $SVN::_Core::SVN_CONFIG_SECTION_AUTH, + $SVN::_Core::SVN_CONFIG_OPTION_STORE_PASSWORDS, + 1) == 0) { + SVN::_Core::svn_auth_set_parameter($baton, + $SVN::_Core::SVN_AUTH_PARAM_DONT_STORE_PASSWORDS, + bless (\$dont_store_passwords, "_p_void")); + } + if (SVN::_Core::svn_config_get_bool($conf_t, + $SVN::_Core::SVN_CONFIG_SECTION_AUTH, + $SVN::_Core::SVN_CONFIG_OPTION_STORE_AUTH_CREDS, + 1) == 0) { + $Git::SVN::Prompt::_no_auth_cache = 1; + } + } my $self = SVN::Ra->new(url => $url, auth => $baton, config => $config, pool => SVN::Pool->new, -- 2.30.2