3 Parses Samba username maps
5 Author: Raphael Pinson <raphink@gmail.com>
8 This file is licenced under the LGPL v2+, like the rest of Augeas.
14 The <Test_SmbUsers> file contains various examples and tests.
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
28 let lns = (Util.empty | Util.comment | entry)*
30 (* Variable: filter *)
31 let filter = incl "/etc/samba/smbusers"
32 . incl "/etc/samba/usermap.txt"
34 let xfm = transform lns filter