forked from DGNum/liminix
32 lines
1,013 B
Fennel
32 lines
1,013 B
Fennel
(local { : system } (require :anoia))
|
|
(local svc (require :anoia.svc))
|
|
|
|
(fn deletions [old-addresses new-addresses]
|
|
(let [deleted {}]
|
|
(each [n address (pairs old-addresses)]
|
|
(let [now (. new-addresses n)]
|
|
(if (or (not now) (not (= now.len address.len)))
|
|
(table.insert deleted address))))
|
|
deleted))
|
|
|
|
(fn update-prefixes [wan-device addresses new-addresses exec]
|
|
(each [_ p (ipairs (deletions addresses new-addresses))]
|
|
(exec
|
|
(.. "ip address del " p.address "1/" p.len " dev " wan-device)))
|
|
(each [_ p (pairs new-addresses)]
|
|
(exec
|
|
(.. "ip address change " p.address "1/" p.len
|
|
" dev " wan-device
|
|
" valid_lft " p.valid
|
|
" preferred_lft " p.preferred
|
|
)))
|
|
new-addresses)
|
|
|
|
(fn run []
|
|
(let [[state-directory lan-device] arg
|
|
dir (svc.open state-directory)]
|
|
(accumulate [addresses []
|
|
v (dir:events)]
|
|
(update-prefixes lan-device addresses (v:output "prefix") system))))
|
|
|
|
{ : changes : run }
|