lenses/pamconf.aug

   1 (*
   2 Module: PamConf
   3   Parses /etc/pam.conf files
   4
   5 Author: Dominic Cleal <dcleal@redhat.com>
   6
   7 About: Reference
   8   This lens tries to keep as close as possible to `man pam.conf` where
   9   possible.
  10
  11 About: Licence
  12   This file is licensed under the LGPL v2+, like the rest of Augeas.
  13
  14 About: Lens Usage
  15
  16 About: Configuration files
  17   This lens applies to /etc/pam.conf. See <filter>.
  18 *)
  19 module PamConf =
  20   autoload xfm
  21
  22 (************************************************************************
  23  * Group:                 USEFUL PRIMITIVES
  24  *************************************************************************)
  25
  26 let indent  = Util.indent
  27
  28 let comment = Util.comment
  29
  30 let empty   = Util.empty
  31
  32 let include = Pam.include
  33
  34 let service = Rx.word
  35
  36 (************************************************************************
  37  * Group:                 LENSES
  38  *************************************************************************)
  39
  40 let record  = [ seq "record" . indent .
  41               [ label "service" . store service ] .
  42               Sep.space .
  43               Pam.record ]
  44
  45 let lns = ( empty | comment | include | record ) *
  46
  47 let filter = incl "/etc/pam.conf"
  48
  49 let xfm = transform lns filter
  50
  51 (* Local Variables: *)
  52 (* mode: caml       *)
  53 (* End:             *)