diff --git a/network.sh b/network.sh index f2eb77f2..86be088f 100755 --- a/network.sh +++ b/network.sh @@ -8,4 +8,9 @@ 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 name bridge-mte-db type bridge +#sudo ip addr add 10.1.0.1/24 dev bridge-mte-db +#sudo ip tuntap add name tap-mte-db mode tap +#sudo ip link set tap-mte-db master bridge-mte-db +#sudo ip link set bridge-mte-db up +#sudo ip link set tap-mte-db up diff --git a/src/global.ml b/src/global.ml index 30006f70..04a76dfb 100644 --- a/src/global.ml +++ b/src/global.ml @@ -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 diff --git a/src/mte.ml b/src/mte.ml index a13c7d28..b88a69df 100644 --- a/src/mte.ml +++ b/src/mte.ml @@ -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) () -> diff --git a/src/util.ml b/src/util.ml index 99dfe8f0..594205b7 100644 --- a/src/util.ml +++ b/src/util.ml @@ -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; ()