Add settings option to disable registration

config/settings.yml

@@ -41,3 +41,4 @@ database:
 repo-dir:     repos
 ssh-port:     5022
 ssh-key-file: config/ssh-host-key
+registration: false

src/Vervis/Handler/Person.hs

@@ -44,6 +44,9 @@ getPeopleR = do
 -- | Create new user
 postPeopleR :: Handler Html
 postPeopleR = do
+    regEnabled <- appRegister . appSettings <$> getYesod
+    if regEnabled
+        then do
             ((result, widget), enctype) <- runFormPost formPersonNew
             case result of
                 FormSuccess pn -> do
@@ -68,6 +71,7 @@ postPeopleR = do
                 FormFailure l -> do
                     setMessage $ toHtml $ intercalate "; " l
                     defaultLayout $(widgetFile "person-new")
+        else notFound
     --TODO NEXT:
     -- * Maybe make the form return Form Person and just insert defaults (using
     -- 'pure') for the remaining Person fields? Then, maybe the same form can
@@ -80,10 +84,14 @@ getPersonNewR = do
     if isJust mpid
         then redirect HomeR
         else do
+            regEnabled <- appRegister . appSettings <$> getYesod
+            if regEnabled
+                then do
                     ((_result, widget), enctype) <- runFormPost formPersonNew
                     defaultLayout $ do
                         setTitle "Vervis > People > New"
                         $(widgetFile "person-new")
+                else notFound
 
 getPersonR :: Text -> Handler Html
 getPersonR ident = do

src/Vervis/Settings.hs

@@ -75,6 +75,8 @@ data AppSettings = AppSettings
     , appSshPort                :: Int
       -- | Path to the server's SSH private key file
     , appSshKeyFile             :: FilePath
+      -- | Whether new user accounts can be created.
+    , appRegister               :: Bool
     }
 
 instance FromJSON AppSettings where
@@ -101,6 +103,7 @@ instance FromJSON AppSettings where
         appRepoDir                <- o .: "repo-dir"
         appSshPort                <- o .: "ssh-port"
         appSshKeyFile             <- o .: "ssh-key-file"
+        appRegister               <- o .: "registration"
 
         return AppSettings {..}