mirror of
https://salsa.debian.org/freeipa-team/freeipa.git
synced 2024-12-28 18:01:23 -06:00
4d36cbf6ad
Introduce new IPAKrb5 lens to handle krb5.conf and kdc.conf changes using Augeas. The stock Krb5 lens does not work on our krb5.conf and kdc.conf. https://pagure.io/freeipa/issue/6831 Reviewed-By: Stanislav Laznicka <slaznick@redhat.com> Reviewed-By: Martin Babinsky <mbabinsk@redhat.com>
47 lines
1.4 KiB
Plaintext
47 lines
1.4 KiB
Plaintext
module IPAKrb5 =
|
|
autoload xfm
|
|
|
|
let dels (s:string) = Util.del_str s
|
|
|
|
let indent = Util.indent
|
|
let space = Sep.space
|
|
let opt_space = Sep.opt_space
|
|
let sep = Sep.space_equal
|
|
let eol = IniFile.eol
|
|
|
|
let kw = Rx.word
|
|
let val = Rx.space_in
|
|
|
|
let comment = IniFile.comment IniFile.comment_re "# "
|
|
let empty = IniFile.empty
|
|
|
|
let entry_generic (v:lens) = [ indent . key kw . sep . v . eol ]
|
|
|
|
(*
|
|
FIXME: combine entry and subrecord into a single recursive lens
|
|
|
|
This does not work for some reason:
|
|
let rec entry = entry_generic ( store ( val - "{" ) )
|
|
| entry_generic ( dels "{" . eol
|
|
. ( entry | comment | empty )*
|
|
. indent . dels "}" )
|
|
*)
|
|
let entry = entry_generic ( store ( val - "{" ) )
|
|
let subrecord = entry_generic ( dels "{" . eol
|
|
. ( entry | comment | empty )*
|
|
. indent . dels "}" )
|
|
|
|
let title = IniFile.indented_title kw
|
|
let record = IniFile.record title ( entry | subrecord | comment )
|
|
|
|
let directive = Build.key_value_line kw space ( store val )
|
|
|
|
let lns = IniFile.lns record ( directive | comment )
|
|
|
|
let filter = incl "/etc/krb5.conf"
|
|
. incl "/etc/krb5.conf.d/*"
|
|
. incl "/var/kerberos/krb5kdc/kdc.conf"
|
|
. Util.stdexcl
|
|
|
|
let xfm = transform lns filter
|