From deca4cd90ad599f859fc9efafe509ed7375c6f39 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 30 Nov 2016 15:26:16 -0400 Subject: use P2P auth for git-remote-tor-annex This changes the environment variable name to the more generic GIT_ANNEX_P2P_AUTHTOKEN. This commit was sponsored by andrea rota. --- CmdLine/GitRemoteTorAnnex.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'CmdLine') diff --git a/CmdLine/GitRemoteTorAnnex.hs b/CmdLine/GitRemoteTorAnnex.hs index 3b2dcc050..ea4532ae6 100644 --- a/CmdLine/GitRemoteTorAnnex.hs +++ b/CmdLine/GitRemoteTorAnnex.hs @@ -16,6 +16,8 @@ import Remote.Helper.Tor import Utility.Tor import Utility.AuthToken import Annex.UUID +import P2P.Address +import P2P.Auth run :: [String] -> IO () run (_remotename:address:[]) = forever $ do @@ -54,7 +56,7 @@ connectService address port service = do state <- Annex.new =<< Git.CurrentRepo.get Annex.eval state $ do authtoken <- fromMaybe nullAuthToken - <$> getTorAuthTokenFor address + <$> loadP2PRemoteAuthToken (TorAnnex address port) myuuid <- getUUID g <- Annex.gitRepo h <- liftIO $ torHandle =<< connectHiddenService address port @@ -62,4 +64,4 @@ connectService address port service = do v <- auth myuuid authtoken case v of Just _theiruuid -> connect service stdin stdout - Nothing -> giveup $ "authentication failed, perhaps you need to set " ++ torAuthTokenEnv + Nothing -> giveup $ "authentication failed, perhaps you need to set " ++ p2pAuthTokenEnv -- cgit v1.2.3