swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2026-03-13 16:05:25 +01:00
parent 010c7a79dd
commit c642bb3614
5 changed files with 20 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

2
GNUmakefile
View file

@ -5,7 +5,7 @@ vendor_list := \
base32 cohttp mirage-mtime mirage-ptime base32 cohttp mirage-mtime mirage-ptime
secmod_fat=secrets/secmod.fat secmod_fat=secrets/secmod.fat
tap_device=tap-mte tap_device=tap0
check-kvm: check-kvm:
$(if $(wildcard /dev/kvm),,$(error KVM support not enabled)) $(if $(wildcard /dev/kvm),,$(error KVM support not enabled))

22
network.sh
View file

@ -1,11 +1,19 @@
#!/bin/bash #!/bin/bash
set -e set -e
sudo ip link add name bridge-mte type bridge sudo ip link add name br0 type bridge
sudo ip addr add 10.0.0.1/24 dev bridge-mte
sudo ip tuntap add name tap-mte mode tap
sudo ip link set tap-mte master bridge-mte
sudo ip link set bridge-mte up
sudo ip link set tap-mte up
# TODO setup postgresql sudo ip link add veth0 type veth peer name veth0-host
sudo ip link set veth0 master br0
sudo ip tuntap add name tap0 mode tap
sudo ip link set tap0 master br0
sudo ip addr add 10.0.0.1/24 dev br0
sudo ip addr add 10.0.0.2/24 dev veth0-host
sudo ip addr add 10.0.0.3/24 dev tap0
sudo ip link set br0 up
sudo ip link set veth0 up
sudo ip link set veth0-host up
sudo ip link set tap0 up

3
src/global.ml
View file

@ -8,8 +8,9 @@ let db_conn =
| Error err -> | Error err ->
Fmt.failwith "Database connection failure: %a." Caqti_error.pp err Fmt.failwith "Database connection failure: %a." Caqti_error.pp err
| Ok conn -> | Ok conn ->
let () = Pg.preflight conn in
Logs.info (fun m -> m "... connection done."); Logs.info (fun m -> m "... connection done.");
let () = Pg.preflight conn in
Logs.info (fun m -> m "Preflight done.");
conn conn
in in
let finally (module Conn : Pg.CONN) = Conn.disconnect () in let finally (module Conn : Pg.CONN) = Conn.disconnect () in

2
src/mte.ml
View file

@ -75,7 +75,7 @@ let () =
in in
let storage = Mkernel.block "storage" in let storage = Mkernel.block "storage" in
let service = let service =
let ipv4 = Ipaddr.V4.Prefix.of_string_exn "10.0.0.2/24" in let ipv4 = Ipaddr.V4.Prefix.of_string_exn "10.0.0.3/24" in
Mnet.stack ~name:"service" ipv4 Mnet.stack ~name:"service" ipv4
in in
Mkernel.(run [ rng; storage; service ]) Mkernel.(run [ rng; storage; service ])

2
src/util.ml
View file

@ -56,7 +56,7 @@ module Log_reporter = struct
let setup () = let setup () =
(*set_level_secmods (Some Logs.Debug);*) (*set_level_secmods (Some Logs.Debug);*)
let level = Some Logs.Info in let level = Some Logs.Info in
Logs.set_level ~all:false level; Logs.set_level ~all:true level;
Logs.Src.set_level Logs.default level; Logs.Src.set_level Logs.default level;
Logs.set_reporter reporter; Logs.set_reporter reporter;
() ()