| Current Path : /usr/share/augeas/lenses/dist/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/augeas/lenses/dist/slapd.aug |
(* Slapd module for Augeas
Author: Free Ekanayaka <free@64studio.com>
Reference: man slapd.conf(5), man slapd.access (5)
*)
module Slapd =
autoload xfm
(************************************************************************
* USEFUL PRIMITIVES
*************************************************************************)
let eol = Util.eol
let spc = Util.del_ws_spc
let sep = del /[ \t\n]+/ " "
let sto_to_eol = store /([^ \t\n].*[^ \t\n]|[^ \t\n])/
let sto_to_spc = store /[^\\# \t\n]+/
let sto_to_by = store (/[^\\# \t\n]+/ - "by")
let comment = Util.comment
let empty = Util.empty
(************************************************************************
* ACCESS TO
*************************************************************************)
let access_re = "access to"
let who = [ spc . label "who" . sto_to_spc ]
let what = [ spc . label "what" . sto_to_spc ]
(* TODO: parse the control field, see man slapd.access (5) *)
let control = [ spc . label "control" . sto_to_by ]
let by = [ sep . key "by". who . what. control? ]
let access = [ key access_re . spc. sto_to_spc . by+ . eol ]
(************************************************************************
* GLOBAL
*************************************************************************)
(* TODO: parse special field separately, see man slapd.conf (5) *)
let global_re = "allow"
| "argsfile"
| "attributeoptions"
| "attributetype"
| "authz-policy"
| "ldap"
| "dn"
| "concurrency"
| "cron_max_pending"
| "conn_max_pending_auth"
| "defaultsearchbase"
| "disallow"
| "ditcontentrule"
| "gentlehup"
| "idletimeout"
| "include"
| "index_substr_if_minlen"
| "index_substr_if_maxlen"
| "index_substr_any_len"
| "index_substr_any_step"
| "localSSF"
| "loglevel"
| "moduleload"
| "modulepath"
| "objectclass"
| "objectidentifier"
| "password-hash"
| "password-crypt-salt-format"
| "pidfile"
| "referral"
| "replica-argsfile"
| "replica-pidfile"
| "replicationinterval"
| "require"
| "reverse-lookup"
| "rootDSE"
| "sasl-host "
| "sasl-realm"
| "sasl-secprops"
| "schemadn"
| "security"
| "sizelimit"
| "sockbuf_max_incoming "
| "sockbuf_max_incoming_auth"
| "threads"
| "timelimit time"
| "tool-threads"
| "TLSCipherSuite"
| "TLSCACertificateFile"
| "TLSCACertificatePath"
| "TLSCertificateFile"
| "TLSCertificateKeyFile"
| "TLSDHParamFile"
| "TLSRandFile"
| "TLSVerifyClient"
| "TLSCRLCheck"
| "backend"
let global = Build.key_ws_value global_re
(************************************************************************
* DATABASE
*************************************************************************)
(* TODO: support all types of database backend *)
let database_hdb = "cachesize"
| "cachefree"
| "checkpoint"
| "dbconfig"
| "dbnosync"
| "directory"
| "dirtyread"
| "idlcachesize"
| "index"
| "linearindex"
| "lockdetect"
| "mode"
| "searchstack"
| "shm_key"
let database_re = "suffix"
| "lastmod"
| "limits"
| "maxderefdepth"
| "overlay"
| "readonly"
| "replica uri"
| "replogfile"
| "restrict"
| "rootdn"
| "rootpw"
| "suffix"
| "subordinate"
| "syncrepl rid"
| "updatedn"
| "updateref"
| database_hdb
let database = [ key "database"
. spc
. sto_to_eol
. eol
. (comment|empty|Build.key_ws_value database_re|access)* ]
(************************************************************************
* LENS
*************************************************************************)
let lns = (comment|empty|global|access)* . (database)*
let filter = incl "/etc/ldap/slapd.conf"
. incl "/etc/openldap/slapd.conf"
let xfm = transform lns filter