Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

55 lines (37 sloc) 1.288 kB
(*
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 ] .
Util.del_ws_tab .
Pam.record ]
let lns = ( empty | comment | include | record ) *
let filter = incl "/etc/pam.conf"
. Util.stdexcl
let xfm = transform lns filter
(* Local Variables: *)
(* mode: caml *)
(* End: *)
Jump to Line
Something went wrong with that request. Please try again.