diff --git a/src/App/Messages/DNSManagerDaemon.purs b/src/App/Messages/DNSManagerDaemon.purs
index fc184ed..29aee8c 100644
--- a/src/App/Messages/DNSManagerDaemon.purs
+++ b/src/App/Messages/DNSManagerDaemon.purs
@@ -85,6 +85,16 @@ type DeleteRR = { domain :: String, rrid :: Int }
 codecDeleteRR ∷ CA.JsonCodec DeleteRR
 codecDeleteRR = CA.object "DeleteRR" (CAR.record { domain: CA.string, rrid: CA.int })
 
+{- 100 -}
+type GenerateAllZoneFiles = {}
+codecGenerateAllZoneFiles ∷ CA.JsonCodec GenerateAllZoneFiles
+codecGenerateAllZoneFiles = CA.object "GenerateAllZoneFiles" (CAR.record {})
+
+{- 101 -}
+type GenerateZoneFile = { domain :: String }
+codecGenerateZoneFile ∷ CA.JsonCodec GenerateZoneFile
+codecGenerateZoneFile = CA.object "GenerateZoneFile" (CAR.record { domain: CA.string })
+
 {- 250 -}
 type KeepAlive = { }
 codecKeepAlive ∷ CA.JsonCodec KeepAlive
@@ -238,17 +248,19 @@ codecInsufficientRights = CA.object "InsufficientRights" (CAR.record { })
 
 -- All possible requests.
 data RequestMessage
-  = MkLogin           Login            -- 0
-  | MkMaintenance     Maintenance      -- 7
-  | MkNewDomain       NewDomain        -- 9
-  | MkDeleteDomain    DeleteDomain     -- 10
-  | MkAddOrUpdateZone AddOrUpdateZone  -- 11
-  | MkGetZone         GetZone          -- 12
-  | MkUserDomains     UserDomains      -- 13
-  | MkAddRR           AddRR            -- 14
-  | MkUpdateRR        UpdateRR         -- 15
-  | MkDeleteRR        DeleteRR         -- 16
-  | MkKeepAlive       KeepAlive        -- 250
+  = MkLogin                Login                -- 0
+  | MkMaintenance          Maintenance          -- 7
+  | MkNewDomain            NewDomain            -- 9
+  | MkDeleteDomain         DeleteDomain         -- 10
+  | MkAddOrUpdateZone      AddOrUpdateZone      -- 11
+  | MkGetZone              GetZone              -- 12
+  | MkUserDomains          UserDomains          -- 13
+  | MkAddRR                AddRR                -- 14
+  | MkUpdateRR             UpdateRR             -- 15
+  | MkDeleteRR             DeleteRR             -- 16
+  | MkGenerateAllZoneFiles GenerateAllZoneFiles -- 100
+  | MkGenerateZoneFile     GenerateZoneFile     -- 101
+  | MkKeepAlive            KeepAlive            -- 250
 
 -- All possible answers from the authentication daemon (authd).
 data AnswerMessage
@@ -282,17 +294,19 @@ data AnswerMessage
 
 encode ∷ RequestMessage -> Tuple UInt String
 encode m = case m of
-    (MkLogin           request) -> get_tuple 0   codecLogin           request
-    (MkMaintenance     request) -> get_tuple 7   codecMaintenance     request
-    (MkNewDomain       request) -> get_tuple 9   codecNewDomain       request
-    (MkDeleteDomain    request) -> get_tuple 10  codecDeleteDomain    request
-    (MkAddOrUpdateZone request) -> get_tuple 11  codecAddOrUpdateZone request
-    (MkGetZone         request) -> get_tuple 12  codecGetZone         request
-    (MkUserDomains     request) -> get_tuple 13  codecUserDomains     request
-    (MkAddRR           request) -> get_tuple 14  codecAddRR           request
-    (MkUpdateRR        request) -> get_tuple 15  codecUpdateRR        request
-    (MkDeleteRR        request) -> get_tuple 16  codecDeleteRR        request
-    (MkKeepAlive       request) -> get_tuple 250 codecKeepAlive       request
+    (MkLogin                request) -> get_tuple 0   codecLogin                request
+    (MkMaintenance          request) -> get_tuple 7   codecMaintenance          request
+    (MkNewDomain            request) -> get_tuple 9   codecNewDomain            request
+    (MkDeleteDomain         request) -> get_tuple 10  codecDeleteDomain         request
+    (MkAddOrUpdateZone      request) -> get_tuple 11  codecAddOrUpdateZone      request
+    (MkGetZone              request) -> get_tuple 12  codecGetZone              request
+    (MkUserDomains          request) -> get_tuple 13  codecUserDomains          request
+    (MkAddRR                request) -> get_tuple 14  codecAddRR                request
+    (MkUpdateRR             request) -> get_tuple 15  codecUpdateRR             request
+    (MkDeleteRR             request) -> get_tuple 16  codecDeleteRR             request
+    (MkGenerateAllZoneFiles request) -> get_tuple 100 codecGenerateAllZoneFiles request
+    (MkGenerateZoneFile     request) -> get_tuple 101 codecGenerateZoneFile     request
+    (MkKeepAlive            request) -> get_tuple 250 codecKeepAlive            request
   where
     get_tuple :: forall a. Int -> CA.JsonCodec a -> a -> Tuple UInt String
     get_tuple num codec request = Tuple (fromInt num) (J.stringify $ CA.encode codec request)