Initial commit

Program.fs

@@ -0,0 +1,61 @@
+namespace WebApplication
+
+open Clerk
+open Microsoft.AspNetCore.Http
+open Microsoft.AspNetCore.Mvc.RazorPages
+open Microsoft.Extensions.Hosting;
+open Reservations
+open Saturn
+open Giraffe
+open DredgeFramework
+
+module Program =
+
+    let handlePostRoute<'a> handlerFunction post next ctx   =
+        json (handlerFunction ctx post) next ctx
+
+    let browser = pipeline {
+        use_warbler
+    }
+
+    let ajaxRouter = router {
+        pipe_through browser
+        post "/authenticateClerk" (bindJson<int> (handlePostRoute AjaxController.loginWithLoginCode) )
+        post "/getTableData" (bindJson<int> AjaxController.getTableData)
+        post "/updateTableShape" (bindJson<Floorplan.floorplan_table_shape> AjaxController.updateTableShape)
+        post "/transformTable" (bindJson<Floorplan.floorplan_table_transform> AjaxController.transformTable)
+        post "/createTable" (bindJson<Floorplan.floorplan_table> AjaxController.createTable)
+        post "/addDecoration" (bindJson<Decorations.decoration_creator> AjaxController.AddDecoration)
+        post "/updateDecoration" (bindJson<Decorations.floorplan_decoration> AjaxController.UpdateDecoration)
+        post "/deleteDecoration" (bindJson<int> AjaxController.DeleteDecoration)
+        post "/newEmptyReservation" (bindJson<int> AjaxController.newEmptyReservation)
+        post "/getReservation" (bindJson<int> (fun reservation -> json <| GetReservationById reservation) )
+        post "/unreserveTable" (bindJson<int> (fun tableNumber -> json <| Floorplan.unReserveTable tableNumber) )
+        getf "/getRoomData/%i" AjaxController.getRoomData
+        getf "/getTablesAndDecorations/%i" AjaxController.getRoomTablesAndDecorations
+        get "/languageVars" (json <| AjaxController.getLanguageVars)
+        get "/getOpenTables" (json <| Floorplan.getActiveTables Floorplan.currentVenue)
+        getf "/getActiveTables/%i" AjaxController.getActiveTables
+        getf "/tableIsOpen/%i" (fun tableNumber -> json <| Floorplan.tableIsOpen tableNumber)
+        getf "/transferTables/%i/%i" AjaxController.transferTable
+        getf "/mergeTables/%i/%i" AjaxController.mergeTables
+        getf "/unmergeTable/%i" AjaxController.unmergeTable
+        getf "/tableExists/%i" (fun tableNumber -> json <| Floorplan.tableExists tableNumber)
+        getf "/deleteTable/%i" (fun tableNumber -> json <| Floorplan.deleteTable tableNumber)
+    }
+
+    let pageRouter = router {
+        pipe_through browser
+        not_found_handler (setStatusCode 404 >=> text "404")
+        get "/" (redirectTo false "/login")
+        get "/login" (warbler (fun _ -> PageController.loadHomePage() ))
+        get "/floorplan" (warbler (fun ctx -> PageController.loadFloorplan (snd ctx)))
+        forward "/ajax" ajaxRouter
+    }
+
+    let app = application {
+        use_static "wwwroot"
+        use_router pageRouter
+    }
+
+    run app