104 lines
2.9 KiB
Gleam
104 lines
2.9 KiB
Gleam
|
import backend/roomhandler
|
||
|
|
import backend/sockethandler
|
||
|
|
import backend/statehandler
|
||
|
|
import gleam/bytes_tree
|
||
|
|
import gleam/erlang/application
|
||
|
|
import gleam/erlang/process
|
||
|
|
import gleam/http/request
|
||
|
|
import gleam/http/response.{type Response}
|
||
|
|
import gleam/list
|
||
|
|
import gleam/option.{None}
|
||
|
|
import gleam/result
|
||
|
|
import gleam/string
|
||
|
|
import mist.{type ResponseData, File}
|
||
|
|
import web/components/answerlist
|
||
|
|
import web/components/card
|
||
|
|
import web/components/control
|
||
|
|
import web/router
|
||
|
|
import wisp
|
||
|
|
import wisp/wisp_mist
|
||
|
|
|
||
|
|
pub fn main() {
|
||
|
|
wisp.configure_logger()
|
||
|
|
|
||
|
|
let assert Ok(state_handler) = statehandler.initialize()
|
||
|
|
let assert Ok(room_handler) = roomhandler.initialize(state_handler)
|
||
|
|
|
||
|
|
let assert Ok(_) =
|
||
|
|
fn(req) {
|
||
|
|
case request.path_segments(req) {
|
||
|
|
["lustre", "runtime.mjs"] -> serve_runtime()
|
||
|
|
[] | ["index.html"]-> serve_static("root.html")
|
||
|
|
["client.js"] -> serve_static("client.js")
|
||
|
|
["static", file] -> serve_static(file)
|
||
|
|
["socket", "card", id] ->
|
||
|
|
sockethandler.serve(req, card.component(), id, room_handler)
|
||
|
|
["socket", "control", id] ->
|
||
|
|
sockethandler.serve(req, control.component(), id, room_handler)
|
||
|
|
["socket", "slow", id] ->
|
||
|
|
sockethandler.serve_slow(
|
||
|
|
req,
|
||
|
|
answerlist.component(),
|
||
|
|
id,
|
||
|
|
room_handler,
|
||
|
|
state_handler,
|
||
|
|
)
|
||
|
|
_ ->
|
||
|
|
wisp_mist.handler(
|
||
|
|
router.handle_request(room_handler, state_handler, _),
|
||
|
|
"very_secret",
|
||
|
|
)(req)
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|> mist.new
|
||
|
|
|> mist.bind("0.0.0.0")
|
||
|
|
|> mist.port(1234)
|
||
|
|
|> mist.start
|
||
|
|
|
||
|
|
process.sleep_forever()
|
||
|
|
}
|
||
|
|
|
||
|
|
fn serve_static(filename: String) {
|
||
|
|
let assert Ok(priv) = application.priv_directory("quizterm")
|
||
|
|
let surname = string.split(filename, ".") |> list.last
|
||
|
|
let path = priv <> "/static/" <> filename
|
||
|
|
let data =
|
||
|
|
mist.send_file(path, offset: 0, limit: None)
|
||
|
|
|> result.map(fn(file) {
|
||
|
|
echo "SUCCESS " <> filename
|
||
|
|
response.new(200)
|
||
|
|
|> response.set_header("Content-Type", case surname {
|
||
|
|
Ok("css") -> "text/css"
|
||
|
|
Ok("js") -> "application/javascript"
|
||
|
|
Ok(_) | Error(_) -> "text/html"
|
||
|
|
})
|
||
|
|
|> response.set_body(file)
|
||
|
|
})
|
||
|
|
|> result.lazy_unwrap(fn() {
|
||
|
|
echo "FAIL " <> filename
|
||
|
|
response.new(404)
|
||
|
|
|> response.set_body(
|
||
|
|
bytes_tree.from_string("Requested resource not found") |> mist.Bytes,
|
||
|
|
)
|
||
|
|
})
|
||
|
|
echo "Attempting to serve file " <> filename <> " was "
|
||
|
|
|
||
|
|
data
|
||
|
|
}
|
||
|
|
|
||
|
|
fn serve_runtime() -> Response(ResponseData) {
|
||
|
|
let assert Ok(lustre_priv) = application.priv_directory("lustre")
|
||
|
|
let file_path = lustre_priv <> "/static/lustre-server-component.mjs"
|
||
|
|
|
||
|
|
case mist.send_file(file_path, offset: 0, limit: None) {
|
||
|
|
Ok(file) ->
|
||
|
|
response.new(200)
|
||
|
|
|> response.prepend_header("content-type", "application/javascript")
|
||
|
|
|> response.set_body(file)
|
||
|
|
|
||
|
|
Error(_) ->
|
||
|
|
response.new(404)
|
||
|
|
|> response.set_body(mist.Bytes(bytes_tree.new()))
|
||
|
|
}
|
||
|
|
}
|