support enabling IA repositories

This commit is contained in:
Joey Hess 2013-04-25 13:14:49 -04:00
parent 2810807ca5
commit 8284b310a7
4 changed files with 64 additions and 11 deletions

View file

@ -156,11 +156,17 @@ postAddGlacierR = glacierConfigurator $ do
setStandardGroup (Remote.uuid r) SmallArchiveGroup
getEnableS3R :: UUID -> Handler RepHtml
getEnableS3R = postEnableS3R
getEnableS3R uuid = do
m <- liftAnnex readRemoteLog
let host = fromMaybe "" $ M.lookup "host" $
fromJust $ M.lookup uuid m
if S3.isIAHost host
then redirect $ EnableIAR uuid
else postEnableS3R uuid
postEnableS3R :: UUID -> Handler RepHtml
#ifdef WITH_S3
postEnableS3R = awsConfigurator . enableAWSRemote S3.remote
postEnableS3R uuid = awsConfigurator $ enableAWSRemote S3.remote uuid
#else
postEnableS3R _ = error "S3 not supported by this build"
#endif