agent: .autoCheckUpdates

agent/config/routes

@@ -7,6 +7,7 @@
 /v0                                   ServerR                  GET PATCH
 
 /v0/name                              NameR                    PATCH
+/v0/autoCheckUpdates                  AutoCheckUpdatesR        PATCH
 
 /v0/welcome/#Version                  WelcomeR                 POST
 /v0/specs                             SpecsR                   GET

agent/src/Handler/V0.hs

@@ -109,9 +109,24 @@ newtype NullablePatchReq = NullablePatchReq { mpatchValue :: Maybe Text } derivi
 instance FromJSON NullablePatchReq where
     parseJSON = withObject "Nullable Patch Request" $ \o -> NullablePatchReq <$> o .:? "value"
 
+newtype BoolPatchReq = BoolPatchReq { bpatchValue :: Bool } deriving (Eq, Show)
+
+instance FromJSON BoolPatchReq where
+  parseJSON = withObject "Patch Request" $ \o -> BoolPatchReq <$> o .: "value"
+
 patchNameR :: Handler ()
 patchNameR = patchFile serverNamePath
 
+patchAutoCheckUpdatesR :: Handler ()
+patchAutoCheckUpdatesR = do
+  settings <- getsYesod appSettings
+  BoolPatchReq val <- requireCheckJsonBody
+  runM $
+    injectFilesystemBaseFromContext settings $
+      if val
+        then writeSystemPath autoCheckUpdatesPath ""
+        else deleteSystemPath autoCheckUpdatesPath
+
 patchFile :: SystemPath -> Handler ()
 patchFile path = do
     settings     <- getsYesod appSettings

agent/src/Lib/SystemPaths.hs

@@ -188,6 +188,9 @@ agentTorHiddenServicePrivateKeyPath = agentTorHiddenServiceDirectory <> "/hs_ed2
 serverNamePath :: SystemPath
 serverNamePath = "/root/agent/name.txt"
 
+autoCheckUpdatesPath :: SystemPath
+autoCheckUpdatesPath = "/root/agent/.autoCheckUpdates"
+
 altRegistryUrlPath :: SystemPath
 altRegistryUrlPath = "/root/agent/alt_registry_url.txt"