Start9/start-os
2
0
Fork 0
mirror of https://github.com/Start9Labs/start-os.git synced 2026-03-26 10:21:52 +00:00
Code Issues Packages Projects Releases Wiki Activity

agent: invert autoCheckUpdates

Browse Source
This commit is contained in:
Aiden McClelland
2021-01-20 13:38:39 -07:00
committed by Aiden McClelland
parent df05fade25
commit 7417bfdbfa
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
agent/src/Handler/V0.hs
View File

@@ -58,7 +58,7 @@ getServerR = handleS9ErrT $ do
wifi <- WpaSupplicant.runWlan0 $ liftA2 WifiList WpaSupplicant.getCurrentNetwork WpaSupplicant.listNetworks
specs <- getSpecs settings
welcomeAck <- fmap isJust . lift . runDB . Persist.get $ WelcomeAckKey agentVersion
autoCheckUpdates <- runM $ injectFilesystemBaseFromContext settings $ existsSystemPath autoCheckUpdatesPath
autoCheckUpdates <- runM $ injectFilesystemBaseFromContext settings $ fmap not (existsSystemPath disableAutoCheckUpdatesPath)
let sid = T.drop 7 $ specsNetworkId specs
@@ -125,8 +125,8 @@ patchAutoCheckUpdatesR = do
settings <- getsYesod appSettings
BoolPatchReq val <- requireCheckJsonBody
runM $ injectFilesystemBaseFromContext settings $ if val
then writeSystemPath autoCheckUpdatesPath ""
else deleteSystemPath autoCheckUpdatesPath
then deleteSystemPath disableAutoCheckUpdatesPath
else writeSystemPath disableAutoCheckUpdatesPath ""
patchFile :: SystemPath -> Handler ()
patchFile path = do

4
agent/src/Lib/SystemPaths.hs
View File

@@ -193,8 +193,8 @@ agentTorHiddenServicePrivateKeyPath = agentTorHiddenServiceDirectory <> "/hs_ed2
serverNamePath :: SystemPath
serverNamePath = "/root/agent/name.txt"
autoCheckUpdatesPath :: SystemPath
autoCheckUpdatesPath = "/root/agent/.autoCheckUpdates"
disableAutoCheckUpdatesPath :: SystemPath
disableAutoCheckUpdatesPath = "/root/agent/.disableAutoCheckUpdates"
altRegistryUrlPath :: SystemPath
altRegistryUrlPath = "/root/agent/alt_registry_url.txt"