mirror of
https://github.com/linuxkit/linuxkit.git
synced 2025-10-29 19:48:22 +00:00
e76d6c09a4
The rootfs were containing way too much binaries and runc command where not started in the correct directory. Signed-off-by: Thomas Gazagnaire <thomas@gazagnaire.org>
33 lines
977 B
OCaml
33 lines
977 B
OCaml
(* This file is a big hack and should be replaced ASAP with proper bindings *)
|
|
|
|
open Lwt.Infix
|
|
|
|
let src = Logs.Src.create "net" ~doc:"Network Configuration"
|
|
module Log = (val Logs.src_log src : Logs.LOG)
|
|
|
|
let run fmt =
|
|
Fmt.kstrf (fun str ->
|
|
Log.info (fun l -> l "run: %S" str);
|
|
match Sys.command str with
|
|
| 0 -> Lwt.return ()
|
|
| i -> Fmt.kstrf Lwt.fail_with "%S exited with code %d" str i
|
|
) fmt
|
|
|
|
let read fmt =
|
|
Fmt.kstrf (fun str ->
|
|
Lwt_process.pread ("/bin/sh", [|"/bin/sh"; "-c"; str|])
|
|
) fmt
|
|
|
|
let mac ethif =
|
|
read "ifconfig -a %s | grep -o -E '([[:xdigit:]]{1,2}:){5}[[:xdigit:]]{1,2}'"
|
|
ethif >|= fun mac ->
|
|
Macaddr.of_string_exn (String.trim mac)
|
|
|
|
let set_ip ethif ip =
|
|
(* FIXME: use language bindings to netlink instead *)
|
|
(* run "ip addr add %s/24 dev %s" ip ethif *)
|
|
run "ifconfig %s %a netmask 255.255.255.0" ethif Ipaddr.V4.pp_hum ip
|
|
|
|
let set_gateway gw =
|
|
run "ip route add default via %a" Ipaddr.V4.pp_hum gw
|