feat: initial commit - complete website monitoring application
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:
36
bin/init_db.ml
Normal file
36
bin/init_db.ml
Normal file
@@ -0,0 +1,36 @@
|
||||
(* Database initialization script *)
|
||||
|
||||
open Lwt.Infix
|
||||
|
||||
let () =
|
||||
(* Initialize logger *)
|
||||
Logs.set_reporter (Logs_fmt.reporter ());
|
||||
Logs.set_level (Some Logs.Debug);
|
||||
|
||||
(* Get database URL *)
|
||||
let db_url =
|
||||
try Sys.getenv "DATABASE_URL"
|
||||
with Not_found ->
|
||||
"postgresql://monitor_user:changeme@localhost:5432/website_monitor"
|
||||
in
|
||||
|
||||
Printf.printf "Database URL: %s\n" db_url;
|
||||
|
||||
(* Initialize database connection *)
|
||||
let pool = Database.pool in
|
||||
|
||||
(* Initialize schema *)
|
||||
Database.init_schema ()
|
||||
>>= fun () ->
|
||||
Lwt_io.printl "Database initialized successfully!"
|
||||
>>= fun () ->
|
||||
Lwt.return_unit
|
||||
|
||||
let () =
|
||||
Lwt_main.run @@ begin
|
||||
Database.init_schema ()
|
||||
>>= fun () ->
|
||||
Lwt_io.printl "Database schema initialized successfully!"
|
||||
>>= fun () ->
|
||||
Lwt.return_unit
|
||||
end
|
||||
Reference in New Issue
Block a user