forked from hercules-team/augeas
/
webmin.aug
48 lines (33 loc) · 1.27 KB
/
webmin.aug
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
(* Webmin module for Augeas
Author: Free Ekanayaka <free@64studio.com>
Reference:
*)
module Webmin =
autoload xfm
(************************************************************************
* USEFUL PRIMITIVES
*************************************************************************)
let eol = Util.eol
let comment = Util.comment
let empty = Util.empty
let sep_eq = del /=/ "="
let sto_to_eol = store /([^ \t\n].*[^ \t\n]|[^ \t\n])/
let word = /[A-Za-z0-9_.-]+/
(************************************************************************
* ENTRIES
*************************************************************************)
let entry = [ key word
. sep_eq
. sto_to_eol?
. eol ]
(************************************************************************
* LENS
*************************************************************************)
let lns = (comment|empty|entry) *
let wm_incl (n:string)
= (incl ("/etc/webmin/" . n))
let filter
= wm_incl "miniserv.conf"
. wm_incl "ldap-useradmin/config"
. Util.stdexcl
let xfm = transform lns filter