Add keyring option to vault program to set the CEPH_KEYRING envvar

CHANGELOG.md

@@ -1,6 +1,18 @@
+# 2.6.2
+
+## User interface
+
+ * The `CEPH_KEYRING` environment variable no longer needs to be manually
+   specified; it can be passed in as the `--ceph-keyring` command-line
+   option to the `vault` program.
+
+ * The unused `Event` type has been removed from the `Vaultaire.Writer`
+   module.
+
 # 2.6.1
 
 ## User interface
+
 To disable profiling, run ``vault --no-profiling``. By default,
 profiling is enabled with a period of 1s and an accuracy bound of 2048
 telemetric stats per second.

README.markdown

@@ -80,9 +80,11 @@ you want to make the broker highly-available, use a TCP load-balancer).
 
 The defaults assume your Rados pool is called `vaultaire`, and you're
 connecting with the username `vaultaire`; if this isn't the case,
-override with `-p` and `-u` respectively. In either case, you'll need to
-have the environment variable `CEPH_KEYRING` pointing to the correct
-place.
+override with `-p` and `-u` respectively.
+
+Additionally, if your Ceph keyring is not at the default path used by
+librados (`/etc/ceph/keyring` as of Feburary 2015) you'll need to
+override it with `-k /path/to/your/keyring/file`.
 
 ```
 vault -d broker # Start broker in debug mode

src/Vault.hs

@@ -20,6 +20,7 @@ import Data.Word (Word64)
 import Options.Applicative hiding (Parser, option)
 import qualified Options.Applicative as O
 import System.Directory
+import System.Environment
 import System.Log.Logger
 import Text.Read
 import Text.Trifecta
@@ -30,16 +31,17 @@ import Vaultaire.Program
 
 
 data Options = Options
-  { pool      :: String
-  , user      :: String
-  , broker    :: String
-  , debug     :: Bool
-  , quiet     :: Bool
-  , noprofile :: Bool
-  , period    :: Int
-  , bound     :: Int
-  , name      :: String
-  , component :: Component }
+  { pool         :: String
+  , user         :: String
+  , broker       :: String
+  , debug        :: Bool
+  , quiet        :: Bool
+  , noprofile    :: Bool
+  , period       :: Int
+  , bound        :: Int
+  , name         :: String
+  , ceph_keyring :: String
+  , component    :: Component }
 
 data Component = Broker
                | Reader
@@ -61,6 +63,7 @@ optionsParser Options{..} = Options <$> parsePool
                                     <*> parsePeriod
                                     <*> parseBound
                                     <*> parseName
+                                    <*> parseKeyring
                                     <*> parseComponents
   where
     parsePool = strOption $
@@ -123,6 +126,13 @@ optionsParser Options{..} = Options <$> parsePool
         <> showDefault
         <> help "Identifiable name for the daemon. Useful for telemetrics."
 
+    parseKeyring = strOption $
+           long "ceph-keyring"
+        <> short 'k'
+        <> metavar "CEPH-KEYRING"
+        <> value ""
+        <> help "Path to Ceph keyring file. If set, this will override the CEPH_KEYRING environment variable."
+
     parseComponents = subparser
        (  parseBrokerComponent
        <> parseReaderComponent
@@ -169,7 +179,7 @@ parseConfig fp = do
         else return defaultConfig
   where
     defaultConfig = Options "vaultaire" "vaultaire" "localhost"
-                            False False False 1000 2048 "" Broker
+                            False False False 1000 2048 "" "" Broker
     mergeConfig ls Options{..} = fromJust $
         Options <$> lookup "pool" ls `mplus` pure pool
                 <*> lookup "user" ls `mplus` pure user
@@ -180,6 +190,7 @@ parseConfig fp = do
                 <*> (join $ readMaybe <$> lookup "period" ls) `mplus` pure period
                 <*> (join $ readMaybe <$> lookup "bound" ls)  `mplus` pure period
                 <*> lookup "name" ls `mplus` pure name
+                <*> lookup "ceph_keyring" ls `mplus` pure ceph_keyring
                 <*> pure Broker
 
 configParser :: Parser [(String, String)]
@@ -196,6 +207,11 @@ possibleKeys =
 parseArgsWithConfig :: FilePath -> IO Options
 parseArgsWithConfig = parseConfig >=> execParser . helpfulParser
 
+-- If set, override CEPH_KEYRING envvar (used by librados).
+updateCephKeyring :: String -> IO ()
+updateCephKeyring "" = return ()
+updateCephKeyring k  = setEnv "CEPH_KEYRING" k
+
 --
 -- Main program entry point
 --
@@ -208,6 +224,8 @@ main = do
               | quiet     = Quiet
               | otherwise = Normal
 
+    updateCephKeyring ceph_keyring
+
     quit <- initializeProgram (package ++ "-" ++ version) level
 
     -- Run daemon(s, at present just one). These are all expected to fork

vaultaire.cabal

@@ -1,6 +1,6 @@
 cabal-version:       >= 1.10
 name:                vaultaire
-version:             2.6.1.4
+version:             2.6.2.0
 synopsis:            Data vault for metrics
 description:         Data vault for metrics
 license:             BSD3