Daniel Barlow
53c6d506cf
when the peer bounces ppp, s6 will restart the ppp process but not restart the dependent services (because the service isn't considered to have gone down) so the dependent services need to notice when the outputs from ppp have changed
34 lines
1.1 KiB
Fennel
34 lines
1.1 KiB
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)]
|
|
(update-prefixes lan-device [] (or (dir:output "prefix") []) system)
|
|
(accumulate [addresses []
|
|
v (dir:events)]
|
|
(update-prefixes lan-device addresses (or (v:output "prefix") []) system))))
|
|
|
|
{ : changes : run }
|