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

include creds info for glacier and webdav

Browse source 
That and S3 are all that uses creds currently, except that external
remotes can use creds. I have not handled showing info about external
remote creds because they can have 0, 1, or more separate cred pairs, and
there's no way for info to enumerate them or know how they're used.
So it seems ok to leave out creds info for external remotes.
This commit is contained in:
Joey Hess 2014-10-22 13:56:14 -04:00
parent 98881ffc6e
commit 3006b79c86
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Remote/Glacier.hs
View file

@ -67,7 +67,8 @@ gen r u c gc = new <$> remoteCost gc veryExpensiveRemoteCost
availability = GloballyAvailable, availability = GloballyAvailable,
remotetype = remote, remotetype = remote,
mkUnavailable = return Nothing, mkUnavailable = return Nothing,
getInfo = return [("glacier vault", getVault c)] getInfo = includeCredsInfo c (AWS.creds u) $
[ ("glacier vault", getVault c) ]
} }
specialcfg = (specialRemoteCfg c) specialcfg = (specialRemoteCfg c)
-- Disabled until jobList gets support for chunks. -- Disabled until jobList gets support for chunks.

3
Remote/WebDAV.hs
View file

@ -72,7 +72,8 @@ gen r u c gc = new <$> remoteCost gc expensiveRemoteCost
availability = GloballyAvailable, availability = GloballyAvailable,
remotetype = remote, remotetype = remote,
mkUnavailable = gen r u (M.insert "url" "http://!dne!/" c) gc, mkUnavailable = gen r u (M.insert "url" "http://!dne!/" c) gc,
getInfo = return [("url", fromMaybe "unknown" (M.lookup "url" c))] getInfo = includeCredsInfo c (davCreds u) $
[("url", fromMaybe "unknown" (M.lookup "url" c))]
} }
chunkconfig = getChunkConfig c chunkconfig = getChunkConfig c