mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

work around what is likely a bug in a new version of ssh

Browse source 
This avoids running into it for new setups, but does not transition old
setups. Just a quick fix; I hope to get ssh fixed.
This commit is contained in:
Joey Hess 2014-02-14 16:45:39 -04:00
parent fd09798e40
commit f626d73442
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Assistant/Ssh.hs
View file

@ -315,10 +315,14 @@ setSshConfig sshdata config = do
- to allow unMangleSshHostName to work. Any unusual characters in the - to allow unMangleSshHostName to work. Any unusual characters in the
- username or directory are url encoded, except using "." rather than "%" - username or directory are url encoded, except using "." rather than "%"
- (the latter has special meaning to ssh). - (the latter has special meaning to ssh).
-
- The mangled hostname is lower-cased because openssh 6.5p1 does not work
- if ssh config Host lines contain any upper-case.
-} -}
mangleSshHostName :: SshData -> String mangleSshHostName :: SshData -> String
mangleSshHostName sshdata = "git-annex-" ++ T.unpack (sshHostName sshdata) mangleSshHostName sshdata = map toLower $
++ "-" ++ escape extra "git-annex-" ++ T.unpack (sshHostName sshdata)
++ "-" ++ escape extra
where where
extra = intercalate "_" $ map T.unpack $ catMaybes extra = intercalate "_" $ map T.unpack $ catMaybes
[ sshUserName sshdata [ sshUserName sshdata