Start9/start-os
2
0
Fork 0
mirror of https://github.com/Start9Labs/start-os.git synced 2026-04-04 22:39:46 +00:00
Code Issues Packages Projects Releases Wiki Activity

only run if ssl has been setup

Browse Source
This commit is contained in:
Keagan McClelland
2020-12-01 11:22:53 -07:00
parent 06c6805b3f
commit f14493a93c
1 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
agent/src/Lib/Synchronizers.hs
View File

@@ -448,11 +448,16 @@ syncConvertEcdsaCerts :: SyncOp
syncConvertEcdsaCerts = SyncOp "Convert Intermediate Cert to ECDSA P256" check migrate False syncConvertEcdsaCerts = SyncOp "Convert Intermediate Cert to ECDSA P256" check migrate False
where where
check = do check = do
fs <- asks $ appFilesystemBase . appSettings fs <- asks $ appFilesystemBase . appSettings
header <- liftIO $ headMay . lines <$> readFile (toS $ intermediateCaKeyPath `relativeTo` fs) let intCertKey = toS $ intermediateCaKeyPath `relativeTo` fs
pure $ case header of exists <- liftIO $ doesPathExist intCertKey
Nothing -> False if exists
Just y -> "BEGIN RSA PRIVATE KEY" `T.isInfixOf` y then do
header <- liftIO $ headMay . lines <$> readFile intCertKey
pure $ case header of
Nothing -> False
Just y -> "BEGIN RSA PRIVATE KEY" `T.isInfixOf` y
else pure False
migrate = cantFail $ do migrate = cantFail $ do
base <- asks $ appFilesystemBase . appSettings base <- asks $ appFilesystemBase . appSettings
(runM . runExceptT) (injectFilesystemBase base replaceDerivativeCerts) >>= \case (runM . runExceptT) (injectFilesystemBase base replaceDerivativeCerts) >>= \case