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
secmod_fat=secrets/secmod.fat
tap_device=tap-mte
tap_device=tap0
check-kvm:
$(if $(wildcard /dev/kvm),,$(error KVM support not enabled))

14
network.sh
View file

@ -1,11 +1,9 @@
#!/bin/bash
set -e
sudo ip link add name bridge-mte 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 br0 type bridge
sudo ip addr add 10.0.0.1/24 dev br0
sudo ip tuntap add tap0 mode tap
sudo ip link set tap0 master br0
sudo ip link set br0 up
sudo ip link set tap0 up

3
src/global.ml
View file

@ -8,8 +8,9 @@ let db_conn =
| Error err ->
Fmt.failwith "Database connection failure: %a." Caqti_error.pp err
| Ok conn ->
let () = Pg.preflight conn in
Logs.info (fun m -> m "... connection done.");
let () = Pg.preflight conn in
Logs.info (fun m -> m "Preflight done.");
conn
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 service =
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
Mkernel.(run [ rng; storage; service ])
@@ fun rng storage (stack, tcp, udp) () ->

2
src/util.ml
View file

@ -56,7 +56,7 @@ module Log_reporter = struct
let setup () =
(*set_level_secmods (Some Logs.Debug);*)
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.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