40 lines
861 B
Plaintext
40 lines
861 B
Plaintext
|
(*
|
||
|
|
Module Sssd
|
||
|
|
Lens for parsing sssd.conf
|
||
|
|
|
||
|
|
Author: Erinn Looney-Triggs <erinn.looneytriggs@gmail.com>
|
||
|
|
|
||
|
|
About: License
|
||
|
|
This file is licensed under the LGPL v2+, like the rest of Augeas.
|
||
|
|
|
||
|
|
About: Configuration files
|
||
|
|
This lens applies to /etc/sssd/sssd.conf. See <filter>.
|
||
|
|
*)
|
||
|
|
|
||
|
|
module Sssd =
|
||
|
|
autoload xfm
|
||
|
|
|
||
|
|
let comment = IniFile.comment /[#;]/ "#"
|
||
|
|
|
||
|
|
let sep = IniFile.sep "=" "="
|
||
|
|
|
||
|
|
let entry = IniFile.indented_entry IniFile.entry_re sep comment
|
||
|
|
|
||
|
|
(* View: title
|
||
|
|
An sssd.conf section title *)
|
||
|
|
let title = IniFile.indented_title_label "target" IniFile.record_label_re
|
||
|
|
|
||
|
|
(* View: record
|
||
|
|
An sssd.conf record *)
|
||
|
|
let record = IniFile.record title entry
|
||
|
|
|
||
|
|
(* View: lns
|
||
|
|
The sssd.conf lens *)
|
||
|
|
let lns = ( comment | IniFile.empty )* . (record)*
|
||
|
|
|
||
|
|
(* View: filter *)
|
||
|
|
let filter = (incl "/etc/sssd/sssd.conf")
|
||
|
|
|
||
|
|
let xfm = transform lns filter
|
||
|
|
|