Deployment: initial templated version

Author: ForNeVeR

Codingteam.Devops.sln

@@ -26,6 +26,8 @@ Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "Fabricator.Core", "Fabricat
 EndProject
 Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "Fabricator.Resources", "Fabricator\Fabricator.Resources\Fabricator.Resources.fsproj", "{414C5063-3201-43AC-9DA1-B18A18802C0D}"
 EndProject
+Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "Fabricator.Templates", "Fabricator\Fabricator.Templates\Fabricator.Templates.fsproj", "{E4F7858D-B0F7-4B42-928F-02688E843566}"
+EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU
@@ -51,11 +53,16 @@ Global
 		{414C5063-3201-43AC-9DA1-B18A18802C0D}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{414C5063-3201-43AC-9DA1-B18A18802C0D}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{414C5063-3201-43AC-9DA1-B18A18802C0D}.Release|Any CPU.Build.0 = Release|Any CPU
+		{E4F7858D-B0F7-4B42-928F-02688E843566}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{E4F7858D-B0F7-4B42-928F-02688E843566}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{E4F7858D-B0F7-4B42-928F-02688E843566}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{E4F7858D-B0F7-4B42-928F-02688E843566}.Release|Any CPU.Build.0 = Release|Any CPU
 	EndGlobalSection
 	GlobalSection(NestedProjects) = preSolution
 		{67164D20-A669-4BC3-A40E-751D3045BA89} = {C4672A21-FB21-4BBF-A0A1-512AC1B66C9A}
 		{0157906C-006C-45F8-A79A-0D55F16B16B2} = {853E359A-18C5-4472-A712-D5C80EE99D6B}
 		{C57439E9-20AF-4EEB-8C91-5D74D346374B} = {853E359A-18C5-4472-A712-D5C80EE99D6B}
 		{414C5063-3201-43AC-9DA1-B18A18802C0D} = {853E359A-18C5-4472-A712-D5C80EE99D6B}
+		{E4F7858D-B0F7-4B42-928F-02688E843566} = {853E359A-18C5-4472-A712-D5C80EE99D6B}
 	EndGlobalSection
 EndGlobal

Fabricator

@@ -14,6 +14,7 @@
   <ItemGroup>
     <ProjectReference Include="..\Fabricator\Fabricator.Console\Fabricator.Console.fsproj" />
     <ProjectReference Include="..\Fabricator\Fabricator.Resources\Fabricator.Resources.fsproj" />
+    <ProjectReference Include="..\Fabricator\Fabricator.Templates\Fabricator.Templates.fsproj" />
   </ItemGroup>
 
 </Project>

ctor/Codingteam.Ctor.fsproj

@@ -3,6 +3,7 @@
 open Fabricator.Core
 open Fabricator.Resources.Files
 open Fabricator.Resources.Docker
+open Fabricator.Templates.FileTemplates
 
 let private hostConfigDirectory = "/opt/green-captcha-bot/"
 let private docker =
@@ -20,6 +21,9 @@ let private docker =
         |]
     }
 
-let private configFile = FileResource(templatedFile "GreenCaptchaBot.template.json", $"{hostConfigDirectory}/appsettings.json")
+let private configFile parameters = FileResource(
+    templatedFile "GreenCaptchaBot.template.json" parameters,
+    $"{hostConfigDirectory}/appsettings.json"
+)
 
-let resources: IResource[] = [| configFile; docker |]
+let resources(parameters: Map<string, string>): IResource[] = [| configFile parameters; docker |]

ctor/GreenCaptchaBot.fs

@@ -1,17 +1,21 @@
-open Codingteam.Ctor
-open Fabricator.Console
+open Fabricator.Console
 open Fabricator.Core
+open Fabricator.Templates.FileTemplates
 
-let private cluster mode =
-    let connectionsFileName = if mode = RunMode.Verify then "connections.stub.json" else "connections.private.json"
-    [|
+open Codingteam.Ctor
+
+let private cluster mode = task {
+    let connectionsFileName = if mode = EntryPoint.RunMode.Verify then "connections.stub.json" else "connections.private.json"
+    let! parameters = readParameterFile "parameters.json"
+    return [|
         {
             Name = "ctor"
             Designator = Designators.fromConnectionsFile connectionsFileName "ctor"
-            Resources = GreenCaptchaBot.resources
+            Resources = GreenCaptchaBot.resources parameters
             Type = MachineType.Linux
         }
     |]
+}
 
 let main (args: string[]): int =
-    EntryPoint.main args cluster
+    EntryPoint.main args (fun m -> (cluster m).GetAwaiter().GetResult())