Current File : //usr/share/augeas/lenses/dist/pamconf.aug
(*
Module: PamConf
Parses /etc/pam.conf files
Author: Dominic Cleal <dcleal@redhat.com>
About: Reference
This lens tries to keep as close as possible to `man pam.conf` where
possible.
About: Licence
This file is licensed under the LGPL v2+, like the rest of Augeas.
About: Lens Usage
About: Configuration files
This lens applies to /etc/pam.conf. See <filter>.
*)
module PamConf =
autoload xfm
(************************************************************************
* Group: USEFUL PRIMITIVES
*************************************************************************)
let indent = Util.indent
let comment = Util.comment
let empty = Util.empty
let include = Pam.include
let service = Rx.word
(************************************************************************
* Group: LENSES
*************************************************************************)
let record = [ seq "record" . indent .
[ label "service" . store service ] .
Sep.space .
Pam.record ]
let lns = ( empty | comment | include | record ) *
let filter = incl "/etc/pam.conf"
let xfm = transform lns filter
(* Local Variables: *)
(* mode: caml *)
(* End: *)
Mini Shell