lenses/smbusers.aug

   1 (*
   2 Module: SmbUsers
   3   Parses Samba username maps
   4
   5 Author: Raphael Pinson <raphink@gmail.com>
   6
   7 About: License
   8    This file is licenced under the LGPL v2+, like the rest of Augeas.
   9
  10 About: Lens Usage
  11    To be documented
  12
  13 About: Examples
  14    The <Test_SmbUsers> file contains various examples and tests.
  15 *)
  16
  17 module SmbUsers =
  18
  19 autoload xfm
  20
  21 (* View: entry *)
  22 let entry =
  23      let username = [ label "username" . store Rx.no_spaces ]
  24   in let usernames = Build.opt_list username Sep.space
  25   in Build.key_value_line Rx.word Sep.space_equal usernames
  26
  27 (* View: lns *)
  28 let lns = (Util.empty | (Util.comment_generic /[ \t]*[#;][ \t]*/ "# ") | entry)*
  29
  30 (* Variable: filter *)
  31 let filter = incl "/etc/samba/smbusers"
  32            . incl "/etc/samba/usermap.txt"
  33
  34 let xfm = transform lns filter