mirror of
https://github.com/empayre/fleet.git
synced 2024-11-07 09:18:59 +00:00
31 lines
788 B
Plaintext
31 lines
788 B
Plaintext
|
(*
|
||
|
|
Module: Rmt
|
||
|
|
Parses rmt's configuration file
|
||
|
|
|
||
|
|
Author: Dominic Cleal <dcleal@redhat.com>
|
||
|
|
|
||
|
|
About: Reference
|
||
|
|
This lens is based on rmt(1)
|
||
|
|
|
||
|
|
About: License
|
||
|
|
This file is licensed under the LGPL v2+, like the rest of Augeas.
|
||
|
|
*)
|
||
|
|
|
||
|
|
module Rmt =
|
||
|
|
autoload xfm
|
||
|
|
|
||
|
|
let sto_to_tab = store Rx.no_spaces
|
||
|
|
|
||
|
|
let debug = Build.key_value_line "DEBUG" Sep.equal ( store Rx.fspath )
|
||
|
|
let user = Build.key_value_line "USER" Sep.equal sto_to_tab
|
||
|
|
let access = Build.key_value_line "ACCESS" Sep.equal
|
||
|
|
( [ label "name" . sto_to_tab ] . Sep.tab .
|
||
|
|
[ label "host" . sto_to_tab ] . Sep.tab .
|
||
|
|
[ label "path" . sto_to_tab ] )
|
||
|
|
|
||
|
|
let lns = ( debug | user | access | Util.comment | Util.empty )*
|
||
|
|
|
||
|
|
let filter = incl "/etc/default/rmt"
|
||
|
|
|
||
|
|
let xfm = transform lns filter
|