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
49
50
51
52
53
54
|
(*
Module: Postfix_Canonical
Parses /etc/postfix/*canonical
Author: James Brown <jbrown@uber.com> based on work by Raphael Pinson <raphael.pinson@camptocamp.com>
About: Reference
This lens tries to keep as close as possible to `man 5 canonical` where possible.
About: License
This file is licenced under the LGPL v2+, like the rest of Augeas.
About: Lens Usage
To be documented
About: Configuration files
This lens applies to /etc/postfix/*canonical. See <filter>.
About: Examples
The <Test_Postfix_Canonical> file contains various examples and tests.
*)
module Postfix_Canonical =
autoload xfm
(* Variable: space_or_eol_re *)
let space_or_eol_re = /([ \t]*\n)?[ \t]+/
(* View: space_or_eol *)
let space_or_eol (sep:regexp) (default:string) =
del (space_or_eol_re? . sep . space_or_eol_re?) default
(* View: word *)
let word = store /[A-Za-z0-9@\*.+-_!$&'=?^`{|}~]+/
(* View: comma *)
let comma = space_or_eol "," ", "
(* View: destination *)
let destination = [ label "destination" . word ]
(* View: record *)
let record = [ label "pattern" . word
. space_or_eol Rx.space " " . destination
. Util.eol ]
(* View: lns *)
let lns = (Util.empty | Util.comment | record)*
(* Variable: filter *)
let filter = incl "/etc/postfix/*canonical"
let xfm = transform lns filter
|
