Deployment: preliminary GreenCaptchaBot schema

Author: ForNeVeR

.gitignore

@@ -2,3 +2,5 @@
 
 bin/
 obj/
+
+*.private.json

Codingteam.Devops.sln

@@ -24,6 +24,8 @@ Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "Fabricator", "Fabricator",
 EndProject
 Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "Fabricator.Core", "Fabricator\Fabricator.Core\Fabricator.Core.fsproj", "{C57439E9-20AF-4EEB-8C91-5D74D346374B}"
 EndProject
+Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "Fabricator.Resources", "Fabricator\Fabricator.Resources\Fabricator.Resources.fsproj", "{414C5063-3201-43AC-9DA1-B18A18802C0D}"
+EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU
@@ -45,10 +47,15 @@ Global
 		{C57439E9-20AF-4EEB-8C91-5D74D346374B}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{C57439E9-20AF-4EEB-8C91-5D74D346374B}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{C57439E9-20AF-4EEB-8C91-5D74D346374B}.Release|Any CPU.Build.0 = Release|Any CPU
+		{414C5063-3201-43AC-9DA1-B18A18802C0D}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{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
 	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}
 	EndGlobalSection
 EndGlobal

Codingteam.Devops.sln.DotSettings

@@ -0,0 +1,2 @@
+<wpf:ResourceDictionary xml:space="preserve" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" xmlns:s="clr-namespace:System;assembly=mscorlib" xmlns:ss="urn:shemas-jetbrains-com:settings-storage-xaml" xmlns:wpf="http://schemas.microsoft.com/winfx/2006/xaml/presentation">
+	<s:Boolean x:Key="/Default/UserDictionary/Words/=appsettings/@EntryIndexedValue">True</s:Boolean></wpf:ResourceDictionary>

ctor/Codingteam.Ctor.fsproj

@@ -6,7 +6,14 @@
   </PropertyGroup>
 
   <ItemGroup>
+    <Compile Include="GreenCaptchaBot.fs" />
     <Compile Include="Program.fs" />
+    <Content Include="GreenCaptchaBot.template.json" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <ProjectReference Include="..\Fabricator\Fabricator.Console\Fabricator.Console.fsproj" />
+    <ProjectReference Include="..\Fabricator\Fabricator.Resources\Fabricator.Resources.fsproj" />
   </ItemGroup>
 
 </Project>

ctor/GreenCaptchaBot.fs

@@ -0,0 +1,21 @@
+module internal Codingteam.Ctor.GreenCaptchaBot
+
+open Fabricator.Core
+open Fabricator.Resources.Files
+
+let private hostConfigDirectory = "/opt/green-captcha-bot/"
+let private docker = docker {
+    let version = "v1.15.1"
+    fromSources <| sources {
+        gitRepository "https://github.com/ImoutoChan/GreenCaptchaBot.git"
+        reference $"tags/{version}"
+    }
+    withDockerfile "CaptchaBot/Dockerfile"
+    withTag version
+    withName "green-captcha-bot"
+    withVolume(hostPath = hostConfigDirectory, containerPath = "/app/Configuration")
+}
+
+let private configFile = FileResource(templatedFile "GreenCaptchaBot.template.json", $"{hostConfigDirectory}/appsettings.json")
+
+let resources: IResource[] = [| configFile; docker |]

ctor/GreenCaptchaBot.template.json

@@ -0,0 +1,6 @@
+{
+    "Configuration": {
+        "BotToken": "$BOT_TOKEN",
+        "DeleteJoinMessages": "Unsuccessful"
+    }
+}

ctor/Program.fs

@@ -1,2 +1,18 @@
-printfn "TODO: Deployment"
-exit 1
+open Codingteam.Ctor
+open Fabricator.Console
+open Fabricator.Core
+
+let private cluster mode =
+    let connectionsFileName = if mode = RunMode.Verify then "connections.stub.json" else "connections.private.json"
+    [|
+        {
+            Name = "ctor"
+            Designator = Designators.fromConnectionsFile connectionsFileName "ctor"
+            Resources = GreenCaptchaBot.resources
+            Type = MachineType.Linux
+        }
+    |]
+
+let main (args: string[]): int =
+    let cluster =
+    EntryPoint.main args cluster