reachableceo/aitest-reasonml-mon-fbk
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feat: initial commit - complete website monitoring application

Browse Source 
Build a comprehensive website monitoring application with ReasonML, OCaml, and server-reason-react.

Features:
- Real-time website monitoring with HTTP status checks
- Email and webhook alerting system
- Beautiful admin dashboard with Tailwind CSS
- Complete REST API for CRUD operations
- Background monitoring scheduler
- Multi-container Docker setup with 1-core CPU constraint
- PostgreSQL database with Caqti
- Full documentation and setup guides

Tech Stack:
- OCaml 5.0+ with ReasonML
- Dream web framework
- server-reason-react for UI
- PostgreSQL 16 database
- Docker & Docker Compose

Files:
- 9 OCaml source files (1961 LOC)
- 6 documentation files (1603 LOC)
- Complete Docker configuration
- Comprehensive API documentation

💘 Generated with Crush
This commit is contained in:
Charles N Wyble
2026-01-13 15:56:42 -05:00
commit e1ff581603
30 changed files with 4178 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

91
bin/main.ml Normal file
View File

@@ -0,0 +1,91 @@
(* Main entry point for website monitor application *)
open Dream
open Lwt.Infix
let () =
let env = Dream.run ~interface:"0.0.0.0" ~port:8080 @@ fun _ ->
(* CORS middleware *)
let cors =
Dream.middleware
@@ fun next req ->
let origin = Dream.header "Origin" req |> Option.value ~default:"*" in
Dream.respond_with_headers
[
("Access-Control-Allow-Origin", origin);
("Access-Control-Allow-Methods", "GET, POST, PUT, DELETE, OPTIONS");
("Access-Control-Allow-Headers", "Content-Type, Authorization");
("Access-Control-Allow-Credentials", "true");
]
@@ fun res -> next req res
in
(* Logging middleware *)
let logger =
Dream.middleware
@@ fun next req ->
Lwt.finalize
(fun () ->
Logs.app (fun m -> m "%s %s" (Dream.method_str req) (Dream.target req));
next req)
(fun () -> Lwt.return_unit)
in
(* Routes *)
let router =
Dream.group
[
(* Health check *)
Dream.get "/health" @@ fun _ ->
Lwt.return @@ Dream.json `Ok (Yojson.Basic.(assoc ["status", `String "healthy"]));
(* API routes *)
Dream.scope "/api"
(Dream.group
[
(* Website monitoring endpoints *)
Dream.get "/websites" Website_monitor_api.list_websites;
Dream.post "/websites" Website_monitor_api.create_website;
Dream.get "/websites/:id" Website_monitor_api.get_website;
Dream.put "/websites/:id" Website_monitor_api.update_website;
Dream.delete "/websites/:id" Website_monitor_api.delete_website;
Dream.post "/websites/:id/check" Website_monitor_api.check_website_now;
Dream.get "/websites/:id/history" Website_monitor_api.get_website_history;
Dream.get "/websites/:id/status" Website_monitor_api.get_website_status;
(* Alert configuration endpoints *)
Dream.get "/alerts" Website_monitor_api.list_alerts;
Dream.post "/alerts" Website_monitor_api.create_alert;
Dream.get "/alerts/:id" Website_monitor_api.get_alert;
Dream.put "/alerts/:id" Website_monitor_api.update_alert;
Dream.delete "/alerts/:id" Website_monitor_api.delete_alert;
(* Stats endpoints *)
Dream.get "/stats/summary" Website_monitor_api.get_stats_summary;
]);
(* Admin dashboard routes - server-side rendered with server-reason-react *)
Dream.get "/" Website_monitor_ui.serve_dashboard;
Dream.get "/dashboard" Website_monitor_ui.serve_dashboard;
Dream.get "/dashboard/websites" Website_monitor_ui.serve_websites_page;
Dream.get "/dashboard/alerts" Website_monitor_ui.serve_alerts_page;
Dream.get "/dashboard/settings" Website_monitor_ui.serve_settings_page;
(* Static assets *)
Dream.get "/static/*" (Dream.static ~loader:(Dream.filesystem "") "");
]
in
(* Apply middlewares and router *)
Dream.logger ~level:`Debug
@@ cors
@@ logger
@@ router
in
(* Start monitoring scheduler *)
Website_monitor_scheduler.start ();
(* Run the server *)
env