thereadme/serverman
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fix(webserver, dhparam): only generate dhparam if it doesn't exist

Browse Source
This commit is contained in:
Mahdi Dibaiee 2017-02-22 14:03:05 +03:30
parent 4f38e2bd83
commit c4cc227935
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/System/Serverman/Actions/Nginx.hs
View File

@ -42,12 +42,16 @@ module System.Serverman.Actions.Nginx (nginx) where
wait =<< restart wait =<< restart
when ssl $ do when ssl $ do
let dhparamPath = "/etc/ssl/certs/dhparam.pem"
dhExists <- doesFileExist dhparamPath
when (not dhExists) $ do
dhparam <- async $ execute "openssl" ["dhparam", "-out", dhparamPath, "2048"] "" True
wait dhparam
return ()
case serverType of case serverType of
Static -> do Static -> do
dhparam <- async $ execute "openssl" ["dhparam", "-out", "/etc/ssl/certs/dhparam.pem", "2048"] "" True
wait dhparam
letsencrypt <- async $ createCert path "letsencrypt" letsencrypt <- async $ createCert path "letsencrypt"
wait letsencrypt wait letsencrypt