Migration system added.

Install scripts for database schema and dummy data too.

Core/DredgeFramework.module.fs

@@ -7,8 +7,8 @@ open System.Drawing
 open System.IO
 open System.Linq
 open System.Xml;
-open System.Xml.XPath;
 open System.Xml.Xsl
+open DredgePos.Types
 open FSharp.Reflection
 
 open Thoth.Json.Net
@@ -100,4 +100,14 @@ let GetImageSize image =
     let loadedImage = loadImage image
     loadedImage.Width, loadedImage.Height
 
-let CurrentTime() = DateTimeOffset.Now.ToUnixTimeSeconds() |> int
+let CurrentTime() = DateTimeOffset.Now.ToUnixTimeSeconds() |> int
+
+let getConfig () =
+    "config.json"
+    |> GetFileContents
+    |> Decode.Auto.fromString<config>
+    |> (fun result ->
+            match result with
+            | Ok config -> config
+            | Error message -> failwith ("config.json is not valid :" + message)
+        )