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

wip network setup

Browse source
This commit is contained in:
swrup 2026-03-13 16:05:25 +01:00
parent 010c7a79dd
commit c86ddb3ae8
6 changed files with 34 additions and 12 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))

14
network.sh
View file

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

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

5
src/mte.ml
View file

@ -76,7 +76,10 @@ let () =
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.2/24" in
Mnet.stack ~name:"service" ipv4 (* let gateway = Ipaddr.V4.of_string_exn "10.0.0.1" in *)
Mnet.stack ~name:"service"
(* ~gateway *)
ipv4
in in
Mkernel.(run [ rng; storage; service ]) Mkernel.(run [ rng; storage; service ])
@@ fun rng storage (stack, tcp, udp) () -> @@ fun rng storage (stack, tcp, udp) () ->

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;
() ()

20
veth_network.sh Executable file
View file

@ -0,0 +1,20 @@
#!/bin/bash
set -e
sudo ip link add name br0 type bridge
sudo ip tuntap add name tap0 mode tap
sudo ip link set tap0 master br0
sudo ip link add dev veth0 type veth peer name veth1
sudo ip link set veth0 master br0
sudo ip addr add 10.0.0.1/24 dev br0
sudo ip addr add 10.0.0.2/24 dev tap0
sudo ip addr add 10.0.0.234/24 dev veth1
sudo ip link set br0 up
sudo ip link set tap0 up
sudo ip link set veth0 up
sudo ip link set veth1 up