50 lines
1.5 KiB
Plaintext
50 lines
1.5 KiB
Plaintext
|
(*
|
||
|
|
Cyrus_Imapd module for Augeas
|
||
|
|
|
||
|
|
Author: Free Ekanayaka <free@64studio.com>
|
||
|
|
*)
|
||
|
|
|
||
|
|
module Cyrus_Imapd =
|
||
|
|
|
||
|
|
autoload xfm
|
||
|
|
|
||
|
|
(************************************************************************
|
||
|
|
* USEFUL PRIMITIVES
|
||
|
|
*************************************************************************)
|
||
|
|
|
||
|
|
let eol = Util.eol
|
||
|
|
let indent = del /[ \t]*(\n[ \t]+)?/ " "
|
||
|
|
let comment = Util.comment
|
||
|
|
let empty = Util.empty
|
||
|
|
let eq = del /[ \t]*:/ ":"
|
||
|
|
let word = /[A-Za-z0-9_.-]+/
|
||
|
|
|
||
|
|
(* The value of a parameter, after the '=' sign. Postfix allows that
|
||
|
|
* lines are continued by starting continuation lines with spaces.
|
||
|
|
* The definition needs to make sure we don't add indented comment lines
|
||
|
|
* into values *)
|
||
|
|
let value =
|
||
|
|
let chr = /[^# \t\n]/ in
|
||
|
|
let any = /.*/ in
|
||
|
|
let line = (chr . any* . chr | chr) in
|
||
|
|
let lines = line . (/\n[ \t]+/ . line)* in
|
||
|
|
store lines
|
||
|
|
|
||
|
|
(************************************************************************
|
||
|
|
* ENTRIES
|
||
|
|
*************************************************************************)
|
||
|
|
|
||
|
|
let entry = [ key word . eq . (indent . value)? . eol ]
|
||
|
|
|
||
|
|
(************************************************************************
|
||
|
|
* LENS
|
||
|
|
*************************************************************************)
|
||
|
|
|
||
|
|
let lns = (comment|empty|entry) *
|
||
|
|
|
||
|
|
let filter = (incl "/etc/imapd.conf")
|
||
|
|
. (incl "/etc/imap/*.conf")
|
||
|
|
. Util.stdexcl
|
||
|
|
|
||
|
|
let xfm = transform lns filter
|